1. Help
Hi,
I have a sequence like this:
{"a-b-c-d-"}
and I want to take the first two items and make them one like this:
"a-"
and do that all the way through till the end.
Here is the part of the program that I figured would work:
global procedure play(sequence notes)
atom notelen, num
sequence tempnote
notelen = length(notes[1])
for junk = 1 to notelen by 2 do
tempnote = notes[1][junk] & notes[1][junk+1]
num = match(tempnote, scale)
?scale
end for
end procedure
This didn't work so I went through it with trace and this line isn't doing
what it is supposed to do:
tempnote = notes[1][junk] & notes[1][junk+1]
Thanks,
Albert
2. Re: Help
Albert Brauneis wrote:
>
> for junk = 1 to notelen by 2 do
> tempnote = notes[1][junk] & notes[1][junk+1] <--replace this one
> num = match(tempnote, scale)
You can use this line instead of the one above:
tempnote = notes[1][junk..junk+1]
If notes = "a-b-c-d-" then you would use
tempnote = notes[junk..junk+1]
I think.
3. Re: Help
In a message dated 11/8/98 11:57:24 PM !!!First Boot!!!, candk at TICNET.COM
writes:
<< If notes = "a-b-c-d-" then you would use
tempnote = notes[junk..junk+1]
I think. >>
The reason I have notes[1][something] is because all the notes are in the
first sequence element. notes only has one element and multiple elements in
side it so I need the notes[1][something] Thanks for you suggestion I will
test it out.
Albert
4. Re: Help
- Posted by Albert Brauneis <Dajawu36 at AOL.COM>
Nov 08, 1998
-
Last edited Nov 09, 1998
That didn't work, tempnote is still {a,-} and not {a-}
Albert
5. Re: Help
- Posted by C & K L <candk at TICNET.COM>
Nov 08, 1998
-
Last edited Nov 09, 1998
So, your sequence is as follows:
notes = { "a1", "b1", "c2", "d3", ...}
Correct?
To extract "b1" into a variable, you would use
b1 = notes[2][1..2]
or simply
b1 = notes[2]
unless notes[2] = "b123", in which case the first one above would be
needed.
Albert Brauneis wrote:
>
> In a message dated 11/8/98 11:57:24 PM !!!First Boot!!!, candk at TICNET.COM
> writes:
>
> << If notes = "a-b-c-d-" then you would use
>
> tempnote = notes[junk..junk+1]
>
> I think. >>
>
> The reason I have notes[1][something] is because all the notes are in the
> first sequence element. notes only has one element and multiple elements in
> side it so I need the notes[1][something] Thanks for you suggestion I will
> test it out.
>
> Albert
6. Re: Help
- Posted by Albert Brauneis <Dajawu36 at AOL.COM>
Nov 08, 1998
-
Last edited Nov 09, 1998
In a message dated 11/9/98 1:45:53 AM !!!First Boot!!!, candk at TICNET.COM
writes:
No I pass notes to the procedure and notes looks like this:
{"a-b-c-d-e-"}
I want it to take pairs of 2 like
"a-"
then
"b-"
Thanks,
Albert
<< So, your sequence is as follows:
notes = { "a1", "b1", "c2", "d3", ...}
Correct?
To extract "b1" into a variable, you would use
b1 = notes[2][1..2]
or simply
b1 = notes[2]
unless notes[2] = "b123", in which case the first one above would be
needed. >>
7. Re: Help
Albert Brauneis wrote:
>
> That didn't work, tempnote is still {a,-} and not {a-}
>
> Albert
there is no data structure or technique that will give you
that result. even "a-" is *still* {a,-}, no matter the
language of programming, a string is a list of individual
characters that are incongrous.
the program is actually doing what you 1>want and what you
2>need it to do...
it's all about how you access data, how you order data,
how you think about data, and how you process data.
in euphoria, these 4 things are truly childs play.
let's suppose that we have a list of notes
that are in order that represent a scale.
now, i'm not a sheet music reader, and i don't
remember the scale.
let's just say that its:
constant scale
scale = "c#c-c+d#d-d+e#e-e+f#f-f+g#g-g+a#a-a+b#b-b+"
# is flat and + is sharp...not that it matters here
now lets suppose that you have a song, composed
of notes that need to be within this scale...
sequence song
song = "f#c-a#g+e+d#b-b-c-a+"
at this point i'm assuming that you have many sets of
scales and somehow you're attempting to determine an
octave... once again, that is no matter...
to determine if each note in song is within
the allowable notes in scale, do the following:
function IsInScale(sequence note)
--returns 0 if the note is not in the constant scale
--returns the place within scale if it is
for i = 1 to length(scale) by 2 do
if compare(note,scale[i..i+1) = 0
then return i
end if
end for
return 0
end function
the above function is the methodology of how
the find() and match() functions operate,
and it's important that you see this. Why?
how can you expect to understand that which
you cannot see? if you don't know the underlying
algorithm behind a function, you cannot ask that
function to do things for you...
so now we push forwards, safe in our new knowledge,
and we can then see how simple it will be to
go through an entire song, replete with this
armada of fresh understanding...
to check an entire song, we need only do the
following:
for i = 1 to length(song) by 2
if IsInScale(song[i..i+1]) then
--we can do what ever we like here,
--including actually saving the value returned
--by the above function, if need be
else puts(1,"invalid note detected in song")
end if
end for
voila, data has succumbed to our whim...
hope this helps--Hawke'
8. Re: Help
Albert Brauneis wrote:
> No I pass notes to the procedure and notes looks like this:
> {"a-b-c-d-e-"}
my first hint for you...
lose the {} surrounding the "string"...
it's redundant and makes thing harder than they are...
i did the same thing...
"abcdefg"
is the same thing as
{a,b,c,d,e,f,g}
but i think the former is easier to deal with,
don't you?
9. Re: Help
>That didn't work, tempnote is still {a,-} and not {a-}
Dear Albert:
"a-" wil ALWAYS be {a,-}... they are 2 elements in that sequence.
A sequence is composed of atoms (and nested sequences). A
character is represented by its ASCII value... so the sequence of
characters "a-" will always be represented as a 2 element
sequence.
Regards,
Daniel Berstein
daber at pair.com
10. Re: Help
------=_NextPart_000_005A_01C00066.1DFF2AE0
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
i would strongly suggest the Beginners Guide To Euphoria tutorial...
reading refman.doc and library.doc are also good things to begin with...
--Hawke'
----- Original Message -----=20
From: Asif Masood Baloch=20
To: EUPHORIA at LISTSERV.MUOHIO.EDU=20
Sent: Tuesday, August 07, 2007 11:30 PM
Subject: Re: Help
Dear friends/users,
I am new to Euphoria and i love what it promises. I need help getting =
started, please let me know what to do.
Thank You
------=_NextPart_000_005A_01C00066.1DFF2AE0
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content=3D"text/html; charset=3Diso-8859-1" =
http-equiv=3DContent-Type>
<META content=3D"MSHTML 5.00.2314.1000" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>i would strongly suggest the Beginners =
Guide To=20
Euphoria tutorial...</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>reading refman.doc and library.doc are =
also good=20
things to begin with...</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>--Hawke'</FONT></DIV>
<DIV> </DIV>
<BLOCKQUOTE=20
style=3D"BORDER-LEFT: #000000 2px solid; MARGIN-LEFT: 5px; MARGIN-RIGHT: =
0px; PADDING-LEFT: 5px; PADDING-RIGHT: 0px">
<DIV style=3D"FONT: 10pt arial">----- Original Message ----- </DIV>
<DIV=20
style=3D"BACKGROUND: #e4e4e4; FONT: 10pt arial; font-color: =
black"><B>From:</B>=20
<A href=3D"mailto:cyberego at QTA.PAKNET.COM.PK"=20
title=3Dcyberego at QTA.PAKNET.COM.PK>Asif Masood Baloch</A> </DIV>
<DIV style=3D"FONT: 10pt arial"><B>To:</B> <A=20
href=3D"mailto:EUPHORIA at LISTSERV.MUOHIO.EDU"=20
title=3DEUPHORIA at LISTSERV.MUOHIO.EDU>EUPHORIA at LISTSERV.MUOHIO.EDU</A> =
</DIV>
<DIV style=3D"FONT: 10pt arial"><B>Sent:</B> Tuesday, August 07, 2007 =
11:30=20
PM</DIV>
<DIV style=3D"FONT: 10pt arial"><B>Subject:</B> Re: Help</DIV>
<DIV><BR></DIV>
<DIV><FONT face=3DArial size=3D2>Dear friends/users,</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>I am new to Euphoria and i love what =
it promises.=20
I need help getting started, please let me know what to =
do.</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>Thank =
------=_NextPart_000_005A_01C00066.1DFF2AE0--
11. Re: Help
On 7 Aug 2007, at 23:30, Asif Masood Baloch wrote:
> Dear friends/users,
>
> I am new to Euphoria and i love what it promises. I need help getting started,
> please let
> me know what to do.
>
Think of something you want your puter to do, read the Eu help files on how to
do it,
then write a program to do that. 
Kat
12. Re: Help
------=_NextPart_000_0021_01C0009A.4B073120
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
My recommendation is to start small, creating programs that do simple =
things, like accept your name and then print your name back as part of a =
greeting message, like "Hello, Asif". Stick to DOS programming in =
Euphoria for starters. DOS programming is easier than Windows =
programming. Use the sample programs provided by Robert Craig. Read my =
tutorial (at the risk of shameless plugging) which is available at RDS's =
web page.=20
As you get more proficient in programming, write larger programs that =
will actually do useful things, like keep track of your friends' =
telephone numbers. And if you get stuck, come here and ask questions.
Welcome aboard
David Gay
----- Original Message -----=20
From: Asif Masood Baloch=20
To: EUPHORIA at LISTSERV.MUOHIO.EDU=20
Sent: Wednesday, August 08, 2007 2:30 AM
Subject: Re: Help
Dear friends/users,
I am new to Euphoria and i love what it promises. I need help getting =
started, please let me know what to do.
Thank You
------=_NextPart_000_0021_01C0009A.4B073120
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=3DContent-Type content=3D"text/html; =
charset=3Diso-8859-1">
<META content=3D"MSHTML 5.50.4134.600" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>My recommendation is to start small,=20
creating programs that do simple things, like accept your name and =
then=20
print your name back as part of a greeting message, like "Hello, Asif". =
Stick to=20
DOS programming in Euphoria for starters. DOS programming is easier than =
Windows=20
programming. Use the sample programs provided by Robert Craig. Read my =
tutorial=20
(at the risk of shameless plugging) which is available at RDS's web =
page.=20
</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial size=3D2>As you get more proficient in =
programming, write=20
larger programs that will actually do useful things, like keep track of =
your=20
friends' telephone numbers. And if you get stuck, come here and ask=20
questions.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial size=3D2>Welcome aboard</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial size=3D2>David Gay</FONT></DIV>
<DIV> </DIV>
<DIV>----- Original Message ----- </DIV>
<BLOCKQUOTE dir=3Dltr=20
style=3D"PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; =
BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV=20
style=3D"BACKGROUND: #e4e4e4; FONT: 10pt arial; font-color: =
black"><B>From:</B>=20
<A title=3Dcyberego at QTA.PAKNET.COM.PK=20
href=3D"mailto:cyberego at QTA.PAKNET.COM.PK">Asif Masood Baloch</A> =
</DIV>
<DIV style=3D"FONT: 10pt arial"><B>To:</B> <A =
title=3DEUPHORIA at LISTSERV.MUOHIO.EDU=20
=
</A>=20
</DIV>
<DIV style=3D"FONT: 10pt arial"><B>Sent:</B> Wednesday, August 08, =
2007 2:30=20
AM</DIV>
<DIV style=3D"FONT: 10pt arial"><B>Subject:</B> Re: Help</DIV>
<DIV><BR></DIV>
<DIV><FONT face=3DArial size=3D2>Dear friends/users,</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>I am new to Euphoria and i love what =
it promises.=20
I need help getting started, please let me know what to =
do.</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>Thank =
------=_NextPart_000_0021_01C0009A.4B073120--
13. Re: Help
Asif Masood Baloch wrote:
>
> Part 1.1 Type: Plain Text (text/plain)
> Encoding: quoted-printable
Hi Asif,
did you succeed in installing Euphoria? Could you start the editor
ed.ex? This is essential to start. Let me know.
Have a nice day, Rolf
14. Re: Help
--------------7BEF7D3CA60D557743DA846F
Asif Masood Baloch wrote:
>
> Hi Rolf,
> Yeah, i suceeded in installing EUPHORIA and made some programs myself like
> "Hello World" and "addition, Substraction, Division,etc". I have problem
> understanding the concepts of append() and prepend(). Also, can you tell me
> what would be the basic concepts that i should understand/study now?
> EUPHORIA is really promisiong and i believe it will help me a lot if i work
> on it. Thank you so much for help.
>
> -Regards
>
> Asif
Hello Asif,
I attached a short example 'tst.ex' which you could run under ed.ex
under DOS or in the cmd-window of win32. Let me know if this helps to
explain append() and prepend().
Under ed, press ESC+h, l (help library) and then ESC+f, searching
for:<append . It will lead you to the explanation for append(). Look
there for the examples.
Have a nice day, Rolf
--------------7BEF7D3CA60D557743DA846F
name="Tst.ex"
Content-Disposition: inline;
filename="Tst.ex"
-- Examples of append() and prepend()
sequence s1, s2 -- define sequences s1 and s2
atom a1, a2 -- define atoms a1 and a2
s1 = { 1, 2, 3, 4} -- initializing . . .
s2 = "Hello" -- this is also {72,101,108,108,111}
a1 = 987
a2 = 3.14
puts(1,"s1 : ") ? s1
puts(1,"s1 & s2 : ") ? s1 & s2 -- concatenation
puts(1,"append(s1,s2) : ") ? append(s1,s2)
puts(1,"prepend(s1,s2): ") ? prepend(s1,s2)
puts(1,"append(s1,a1) : ") ? append(s1,a1)
puts(1,"prepend(s1,a1): ") ? prepend(s1,a1)
puts(1,"a1 : ") ? a1
puts(1,"s1 & a1 : ") ? s1 & a1 -- concatenation
puts(1,"a1 & a2 : ") ? a1 & a2 -- concatenation
--------------7BEF7D3CA60D557743DA846F--
15. Re: Help
------=_NextPart_000_000A_01C7D94A.F71DC880
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Dear friends/users,
I am new to Euphoria and i love what it promises. I need help getting =
started, please let me know what to do.
Thank You
------=_NextPart_000_000A_01C7D94A.F71DC880
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content=3D"text/html; charset=3Diso-8859-1" =
http-equiv=3DContent-Type>
<META content=3D"MSHTML 5.00.2920.0" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>Dear friends/users,</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>I am new to Euphoria and i love what it =
promises. I=20
need help getting started, please let me know what to do.</FONT></DIV>
<DIV> </DIV>
------=_NextPart_000_000A_01C7D94A.F71DC880--
16. Re: Help
Hi Rolf,
Yeah, i suceeded in installing EUPHORIA and made some programs myself like
"Hello World" and "addition, Substraction, Division,etc". I have problem
understanding the concepts of append() and prepend(). Also, can you tell me
what would be the basic concepts that i should understand/study now?
EUPHORIA is really promisiong and i believe it will help me a lot if i work
on it. Thank you so much for help.
-Regards
Asif
17. Re: Help
Hi Rolf,
Thanks so much for clearing my copncepts for append() and prepend(). Its so
clear now and simmply means the joining of sequence-sequence or
sequence-atom in forward and reverse form respectively. I feel satisfied.
Thanks again.
-Best Regards
Asif
P.S: Wht should i do now in EUPHORIA programming?
18. Re: Help
Asif Masood Baloch wrote:
>...
> P.S: Wht should i do now in EUPHORIA programming?
Hi Asif,
what are your interests? I, for example, used Eu to solve data reduction
problems. Momentarily I'm just creating, better to say calculating, GIF
images. That means, I use the graphics capabilities of Euphoria to
calculate a sequence of BMP-images. Then I use a special software
(independent from Eu) to convert the sequence of BMP-images
into an animated GIF. Game programming, as lot of people do, is not my
interest (though I like some games to play). My homepage is in German,
but with Netscape browser you may watch the animated gifs at:
http://home.t-online.de/home/r.schr/ .
Let me know and have a nice day, Rolf
19. Help
------=_NextPart_000_0005_01C003E2.3E115770
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Dear Coders,
I tried making the mouse available in graphics_mode but i failed and i =
knew I would cuz i started using EU few days back. I am so fascinated =
that i want to learn it and try all that i could. I read the ".e" file =
and went through lines of code and was able to understand a few lines. I =
know it would sound silly what i copied from the mouse.e file but i =
tried it anyways cuz i thought maybe it would work and the pointer would =
be seen running as i move the mouse on the pad.
So, what is the legal way to do it?
include mouse.e --For mouse availibility, I tried, Phew!
include graphics.e --For graphics mode 640x480 with 16 colors
clear_screen() --Would be good
object kyo
kyo =3D graphics_mode(18)
position(7,29) --For text position
puts(1, "Lets see how it works. ;)")
constant M_GET_MOUSE =3D 14 --Have no idea what i am doing.
M_MOUSE_EVENTS =3D 15 --Saw this in mouse.e file and
M_MOUSE_POINTER =3D 25 --thought it would do
global function get_mouse() --No idea what im doing
return machine_function(M_GET_MOUSE, 0) -- No idea
end function --Oh dear, still no idea.
Best wished for all coders
-Asif
------=_NextPart_000_0005_01C003E2.3E115770
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content=3D"text/html; charset=3Diso-8859-1" =
http-equiv=3DContent-Type>
<META content=3D"MSHTML 5.00.2920.0" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>Dear Coders,</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>I tried making the mouse available in =
graphics_mode=20
but i failed and i knew I would cuz i started using EU few days back. I =
am so=20
fascinated that i want to learn it and try all that i could. I read the =
".e"=20
file and went through lines of code and was able to understand a few =
lines. I=20
know it would sound silly what i copied from the mouse.e file but i =
tried it=20
anyways cuz i thought maybe it would work and the pointer would be =
seen=20
running as i move the mouse on the pad.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>So, what is the legal way to do =
it?</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial size=3D2>include=20
mouse.e --For mouse=20
availibility, I tried, Phew!<BR>include =
graphics.e =20
--For graphics mode 640x480 with 16=20
nbsp;=20
--Would be good<BR>object kyo<BR>kyo =3D=20
bsp; =20
--For text position<BR>puts(1, "Lets see how it works. ;)")<BR>constant=20
M_GET_MOUSE =3D 14 --Have no idea =
what i am=20
doing.<BR> M_MOUSE_EVENTS =3D 15 --Saw this in =
mouse.e=20
file and<BR> M_MOUSE_POINTER =3D 25 --thought it would =
do<BR>global function get_mouse() --No idea what =
im=20
doing<BR>return machine_function(M_GET_MOUSE, 0) -- No idea<BR>end=20
function --Oh dear, still no=20
idea.</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>Best wished for all coders</FONT></DIV>
<DIV> </DIV>
------=_NextPart_000_0005_01C003E2.3E115770--
20. Re: Help
------=_NextPart_000_003B_01C00398.C8E5F580
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Asif,
Here is an example which should help you.
Colin
-- start code
include mouse.e --For mouse availibility, I tried, Phew!
include graphics.e --For graphics mode 640x480 with 16 colors
clear_screen() --Would be good
object kyo
kyo =3D graphics_mode(18)
position(7,29) --For text position
puts(1, "Lets see how it works. ;)")
-- you were okay to here...
mouse_pointer(1)
-- now you have a working mouse pointer
-- if you want to know the mouse state...
object m_event
integer mx, my, lb, rb
mx =3D 0
my =3D 0
lb =3D 0
rb =3D 0
sequence state
state =3D {"no ", "yes"}
position(29, 31) =20
puts(1, "press a key to exit...")
while 1 do
m_event =3D get_mouse()
if sequence(m_event) then
mx =3D m_event[2] -- mouse x coordinate
my =3D m_event[3] -- mouse y coordinate
if and_bits(m_event[1], LEFT_DOWN) then -- left button press
lb =3D 1
elsif and_bits(m_event[1], LEFT_UP) then -- left button release
lb =3D 0
end if
if and_bits(m_event[1], RIGHT_DOWN) then -- right button press
rb =3D 1
elsif and_bits(m_event[1], RIGHT_UP) then -- right button release
rb =3D 0
end if
-- print out some info
position(1, 1)
mouse_pointer(0) -- its best to turn off the pointer when printing
printf(1, "mouse x pos =3D %d \n", mx)
printf(1, "mouse y pos =3D %d \n", my)
printf(1, "left button? %s \n", {state[lb+1]})
printf(1, "right button? %s \n", {state[rb+1]})
mouse_pointer(1) -- back on
end if
if get_key() !=3D -1 then
exit -- if key press then exit from the while loop
end if
end while
-- end code
Asif wrote:
>I tried making the mouse available in graphics_mode but i failed
------=_NextPart_000_003B_01C00398.C8E5F580
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content=3D"text/html; charset=3Diso-8859-1" =
http-equiv=3DContent-Type>
<META content=3D"MSHTML 5.00.2614.3500" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>Asif,</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>Here is an example which should help=20
you.</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>Colin</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>-- start code</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>include=20
mouse.e --For mouse=20
availibility, I tried, Phew!<BR>include =
graphics.e =20
--For graphics mode 640x480 with 16=20
nbsp;=20
--Would be good<BR>object kyo<BR>kyo =3D=20
bsp; =20
--For text position<BR>puts(1, "Lets see how it works. ;)")<BR>-- you =
were okay=20
to here...<BR>mouse_pointer(1)<BR>-- now you have a working mouse=20
pointer</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>-- if you want to know the mouse =
state...<BR>object=20
m_event<BR>integer mx, my, lb, rb<BR>mx =3D 0<BR>my =3D 0<BR>lb =3D =
0<BR>rb =3D=20
0<BR>sequence state<BR>state =3D {"no ", "yes"}</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>position(29,=20
31) <BR>puts(1, "press a key =
to=20
exit...")</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>while 1 do<BR> =
m_event =3D=20
get_mouse()<BR> if sequence(m_event) then<BR> mx =
=3D=20
m_event[2] -- mouse x coordinate<BR> my =3D m_event[3] =
-- mouse y=20
coordinate<BR> if and_bits(m_event[1], LEFT_DOWN) then -- =
left button=20
press<BR> lb =3D 1<BR> elsif =
and_bits(m_event[1],=20
LEFT_UP) then -- left button release<BR> =
lb =3D=20
0<BR> end if<BR> if and_bits(m_event[1], RIGHT_DOWN) =
then --=20
right button press<BR> rb =3D 1<BR> elsif=20
and_bits(m_event[1], RIGHT_UP) then -- right button=20
release<BR> rb =3D 0<BR> end if<BR> -- =
print out=20
some info<BR> position(1, 1)<BR> mouse_pointer(0) -- its =
best to=20
turn off the pointer when printing<BR> printf(1, "mouse x pos =3D =
%d =20
\n", mx)<BR> printf(1, "mouse y pos =3D %d \n", =
my)<BR> printf(1,=20
"left button? %s \n", {state[lb+1]})<BR> printf(1, "right =
button?=20
%s \n", {state[rb+1]})<BR> mouse_pointer(1) -- back=20
on<BR> end if<BR> if get_key() !=3D =
-1=20
then<BR> exit -- if key press then exit from the while=20
loop<BR> end if<BR>end while<BR></FONT></DIV>
<DIV><FONT face=3DArial size=3D2>-- end code</DIV></FONT>
<BLOCKQUOTE=20
style=3D"BORDER-LEFT: #000000 2px solid; MARGIN-LEFT: 5px; MARGIN-RIGHT: =
0px; PADDING-LEFT: 5px; PADDING-RIGHT: 0px">
<DIV><FONT face=3DArial size=3D2>
<DIV><FONT face=3DArial size=3D2>
<DIV style=3D"FONT: 10pt arial">Asif wrote:</DIV>
<DIV><FONT face=3DArial size=3D2>>I tried making the mouse =
available in=20
graphics_mode but i=20
------=_NextPart_000_003B_01C00398.C8E5F580--
21. Re: Help
Asif Masood Baloch wrote:
> Dear Coders,
>
> I tried making the mouse available in graphics_mode but i failed and i knew I
> would cuz i started using EU few days back. I am so fascinated that i want to
> learn it and try all that i could. I read the ".e" file and went through lines of
> code and was able to understand a few lines. I know it would sound silly what i
> copied from the mouse.e file but i tried it anyways cuz i thought maybe it would
> work and the pointer would be seen running as i move the mouse on the pad.
> So, what is the legal way to do it?
>
> include mouse.e --For mouse availibility, I tried, Phew!
> include graphics.e --For graphics mode 640x480 with 16 colors
> clear_screen() --Would be good
> object kyo
> kyo = graphics_mode(18)
> position(7,29) --For text position
> puts(1, "Lets see how it works. ;)")
> constant M_GET_MOUSE = 14 --Have no idea what i am doing.
> M_MOUSE_EVENTS = 15 --Saw this in mouse.e file and
> M_MOUSE_POINTER = 25 --thought it would do
> global function get_mouse() --No idea what im doing
> return machine_function(M_GET_MOUSE, 0) -- No idea
> end function --Oh dear, still no idea.
>
> Best wished for all coders
>
> -Asif
>
> ------------------------------------------------------------------------
> Name: FILE.HTM
> FILE.HTM Type: Hypertext Markup Language (text/html)
> Encoding: 7bit
You don't need to redefine get_mouse etc. Just include mouse.e.
Jeff Fielding
22. Help
------=_NextPart_000_0019_01C00591.D2065100
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Hi !
Someone is puting bad stuff about me on the internet . I know what his =
email address is . What can I do to stop him ! I can send him a virus , =
but I am only gonna do that if I don`t have any other choice . Any ideas =
? Please , this is very serios . Thanks !!!!!!!!!!!!!!!!
Ferdinand
mwfch at mweb.co.za
------=_NextPart_000_0019_01C00591.D2065100
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content=3D"text/html; charset=3Diso-8859-1" =
http-equiv=3DContent-Type>
<META content=3D"MSHTML 5.00.2614.3500" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV>Hi !</DIV>
<DIV>Someone is puting bad stuff about me on the internet . I know what =
his=20
email address is . What can I do to stop him ! I can send him a virus , =
but I am=20
only gonna do that if I don`t have any other choice . Any ideas ? =
Please ,=20
this is very serios . Thanks !!!!!!!!!!!!!!!!</DIV>
<DIV> </DIV>
<DIV>Ferdinand</DIV>
<DIV><FONT face=3DArial><A=20
</HTML>
------=_NextPart_000_0019_01C00591.D2065100--
23. Re: Help
------=_NextPart_000_0010_01C0075E.1176EA20
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Not that this is the proper forum for this... but what the hey?
First off, sending a virus to someone doesn't guarantee they'll be =
infected. Not once in my entire history of computing have I ever been =
infected with a virus... simply because I know how to guard against =
infection.
If the bad stuff consists of "Ferdinand is ugly," then I would assume it =
falls under the protection of free speech, unless it is originating from =
a country where free speech is against the law <cough>. If it's more =
along the lines of, "Ferdinand is a drug-addicted child abuser," then =
you should contact your local pigs- I mean police, sorry- or even a =
federal/national authority.
It's rarely wise to take these matters into your own hands, unless you =
know the culprit and he's (or she's) someone you can beat up. heh. just =
kiddin' 'bout that.
----- Original Message -----=20
From: =BC=20
To: EUPHORIA at LISTSERV.MUOHIO.EDU=20
Sent: Sunday, August 13, 2000 6:49 PM
Subject: Help
Hi !
Someone is puting bad stuff about me on the internet . I know what his =
email address is . What can I do to stop him ! I can send him a virus , =
but I am only gonna do that if I don`t have any other choice . Any ideas =
? Please , this is very serios . Thanks !!!!!!!!!!!!!!!!
Ferdinand
mwfch at mweb.co.za
------=_NextPart_000_0010_01C0075E.1176EA20
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content=3D"text/html; charset=3Diso-8859-1" =
http-equiv=3DContent-Type>
<META content=3D"MSHTML 5.00.2722.2800" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT size=3D2>Not that this is the proper forum for this... but =
what the=20
hey?</FONT></DIV>
<DIV> </DIV>
<DIV><FONT size=3D2>First off, sending a virus to someone doesn't =
guarantee=20
they'll be infected. Not once in my entire history of computing have I =
ever been=20
infected with a virus... simply because I know how to guard against=20
infection.</FONT></DIV>
<DIV> </DIV>
<DIV><FONT size=3D2>If the bad stuff consists of "Ferdinand is ugly," =
then I would=20
assume it falls under the protection of free speech, unless it is =
originating=20
from a country where free speech is against the law <cough>. If =
it's more=20
along the lines of, "Ferdinand is a drug-addicted child abuser," then =
you should=20
contact your local pigs- I mean police, sorry- or even a =
federal/national=20
authority.</FONT></DIV>
<DIV> </DIV>
<DIV><FONT size=3D2>It's rarely wise to take these matters into your own =
hands,=20
unless you know the culprit and he's (or she's) someone you can beat up. =
heh.=20
just kiddin' 'bout that.</FONT></DIV>
<BLOCKQUOTE=20
style=3D"BORDER-LEFT: #000000 2px solid; MARGIN-LEFT: 5px; MARGIN-RIGHT: =
0px; PADDING-LEFT: 5px; PADDING-RIGHT: 0px">
<DIV style=3D"FONT: 10pt arial">----- Original Message ----- </DIV>
<DIV=20
style=3D"BACKGROUND: #e4e4e4; FONT: 10pt arial; font-color: =
black"><B>From:</B>=20
<A href=3D"mailto:mwfch at MWEB.CO.ZA" title=3Dmwfch at MWEB.CO.ZA>=BC</A> =
</DIV>
<DIV style=3D"FONT: 10pt arial"><B>To:</B> <A=20
href=3D"mailto:EUPHORIA at LISTSERV.MUOHIO.EDU"=20
title=3DEUPHORIA at LISTSERV.MUOHIO.EDU>EUPHORIA at LISTSERV.MUOHIO.EDU</A> =
</DIV>
<DIV style=3D"FONT: 10pt arial"><B>Sent:</B> Sunday, August 13, 2000 =
6:49=20
PM</DIV>
<DIV style=3D"FONT: 10pt arial"><B>Subject:</B> Help</DIV>
<DIV><BR></DIV>
<DIV>Hi !</DIV>
<DIV>Someone is puting bad stuff about me on the internet . I know =
what his=20
email address is . What can I do to stop him ! I can send him a virus =
, but I=20
am only gonna do that if I don`t have any other choice . Any =
ideas ?=20
Please , this is very serios . Thanks !!!!!!!!!!!!!!!!</DIV>
<DIV> </DIV>
<DIV>Ferdinand</DIV>
<DIV><FONT face=3DArial><A=20
=
------=_NextPart_000_0010_01C0075E.1176EA20--
24. Help
Staring out with this code
atom buff_a, buff_b
buff_a = allocate_low(500)
buff_b = allocate_low(500)
I need to to how to write the following code in Euphoria. ( its in C )
The structure has to be a binary block of memory in machine code format.
struct {
int seg_of_buff_a;
int offset_of_buff_a;
int seg_of_buff_b;
int offset_of_buff_b;
} my_struct;
my_struct.seg_of_buff_a = FP_SEG(buff_a);
my_struct.offset_of_buff_a = FP_OFF(buff_a);
my_struct.seg_of_buff_b = FP_SEG(buff_b);
my_struct.offset_of_buff_b = FP_OFF(buff_b);
Thanks in advance
Bernie
25. Help
I have one computer that reads a blob table from MySql using Matt's ODBC stuff
correctly. I have another one running the same stuff which pulls up a blob row
that is just a long list of numbers. The EU software is identical. I've copied
all the stuff from the working puter to the not working one but that didn't
solve the problem.
I've had this blob problem before and fixed it but for the life of me I can't
remember what I did.
Does anyone have a hint??
26. Re: Help
Well, after I gave up and posted this help, I upgraded the MySql ODBC driver
to 3.51 and that fixed the problem. Geez what a waste of brain burn.
27. Re: Help
Exotica uses some GDI calls for text output, but not for
bitmaps. GDI is very slow.
> Why wouldn't it make sense? :)
>
> Explain GDI vs. API vs. DX.
GDI is graphical interface for Window GUI programs.
DirectX is quick and dirty multimedia interface for
games. (GDI games are really slow - see pretend.exw
in win32lib package)
Martin
28. Help
This may sound like I know nothing(and I don't botu programing) but I can't
get Euphoria to start. I have Windows XP and I do not know where to begin.
Can someone help me???
29. Re: Help
Kakura wrote:
> This may sound like I know nothing(and I don't botu programing) but I can't
> get Euphoria to start. I have Windows XP and I do not know where to begin.
> Can someone help me???
Check here: http://uboard.proboards32.com/index.cgi?board=Pupils
Links to tutorials, plus some one-on-one mentoring if desired.
-=ck
"Programming in a state of EUPHORIA."
http://www.cklester.com/euphoria/
30. Help
------=_NextPart_000_000F_01C03B4B.1D694C80
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
In Euphoria Win32 what is the syntax to launch MSAccess and run a .mdb =
database? =20
------=_NextPart_000_000F_01C03B4B.1D694C80
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=3DContent-Type content=3D"text/html; =
charset=3Diso-8859-1">
<META content=3D"MSHTML 5.50.4207.2601" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>In Euphoria Win32 what is the syntax to =
launch=20
MSAccess and run a .mdb=20
p;=20
------=_NextPart_000_000F_01C03B4B.1D694C80--
31. Re: Help
------=_NextPart_000_05D5_01C03BCC.62AAC5E0
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Try
shellExecute("open", "mydatabase.MDB", SW_SHOWNORMAL)
------
Derek Parnell
Melbourne, Australia
(Vote [1] The Cheshire Cat for Internet Mascot)
----- Original Message -----=20
From: Dean James=20
To: EUPHORIA at LISTSERV.MUOHIO.EDU=20
Sent: Sunday, October 22, 2000 1:38 AM
Subject: Help
In Euphoria Win32 what is the syntax to launch MSAccess and run a .mdb =
database? =20
------=_NextPart_000_05D5_01C03BCC.62AAC5E0
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=3DContent-Type content=3D"text/html; =
charset=3Diso-8859-1">
<META content=3D"MSHTML 5.50.4207.2601" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>Try</FONT></DIV>
<DIV><FONT face=3DArial size=3D2> shellExecute("open", =
"mydatabase.MDB", SW_SHOWNORMAL)</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV>
<DIV>------<BR>Derek Parnell<BR>Melbourne, Australia<BR>(Vote [1] The =
Cheshire=20
Cat for Internet Mascot)<BR></DIV>
<BLOCKQUOTE dir=3Dltr=20
style=3D"PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; =
BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV style=3D"FONT: 10pt arial">----- Original Message ----- </DIV>
<DIV=20
style=3D"BACKGROUND: #e4e4e4; FONT: 10pt arial; font-color: =
black"><B>From:</B>=20
<A title=3Ddjames at CETLINK.NET href=3D"mailto:djames at CETLINK.NET">Dean =
James</A>=20
</DIV>
<DIV style=3D"FONT: 10pt arial"><B>To:</B> <A =
title=3DEUPHORIA at LISTSERV.MUOHIO.EDU=20
=
</A>=20
</DIV>
<DIV style=3D"FONT: 10pt arial"><B>Sent:</B> Sunday, October 22, 2000 =
1:38=20
AM</DIV>
<DIV style=3D"FONT: 10pt arial"><B>Subject:</B> Help</DIV>
<DIV><BR></DIV>
<DIV><FONT face=3DArial size=3D2>In Euphoria Win32 what is the syntax =
to launch=20
MSAccess and run a .mdb=20
=
p;=20
------=_NextPart_000_05D5_01C03BCC.62AAC5E0--
32. Re: Help
------=_NextPart_000_0027_01C044AE.212BF0E0
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Hi Asif,
I think thats something these News-Groups are made for,
that the people who "feel they know the right way"=20
can say it.
I feel the right way is to hear "the childrens voice".
Not when its going into details, but to see the weakpoints.
If you share my opinion, make it public in the list, as it may change=20
something if many people agree AND SAY that in the list.
Till next
THEO
PS: Success =3D a good inside + a good outside=20
-----Original Message-----
From: Asif Masood Baloch [mailto:cyberego at qta.paknet.com.pk]
Sent: Wednesday, November 01, 2000 10:00 AM
To: Gottwald, IT-IS T500, Fa. Compaq, DA
Subject: Re: Repaint
ITs good to know that there are some poeple who give a damn about other =
ppl.
Thanks a lot.
Asif Masood Baloch
BBA Honors
MBA (Information Technology)
------=_NextPart_000_0027_01C044AE.212BF0E0
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content=3D"text/html; charset=3Diso-8859-1" =
http-equiv=3DContent-Type>
<META content=3D"MSHTML 5.00.2314.1000" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>Hi Asif,<BR><BR>I think thats something =
these=20
News-Groups are made for,<BR>that the people who "feel they know the =
right way"=20
<BR>can say it.<BR>I feel the right way is to hear "the childrens =
voice".<BR>Not=20
when its going into details, but to see the weakpoints.<BR><BR>If you =
share my=20
opinion, make it public in the list, as it may change <BR>something if =
many=20
people agree AND SAY that in the list.<BR><BR>Till =
next<BR>THEO<BR><BR>PS:=20
Success =3D a good inside + a good outside <BR><BR>-----Original=20
Message-----<BR>From: Asif Masood Baloch [<A=20
.pk</A>]<BR>Sent:=20
Wednesday, November 01, 2000 10:00 AM<BR>To: Gottwald, IT-IS T500, Fa. =
Compaq,=20
DA<BR>Subject: Re: Repaint<BR><BR><BR>ITs good to know that there are =
some=20
poeple who give a damn about other ppl.<BR>Thanks a lot.<BR><BR>Asif =
Masood=20
Baloch<BR>BBA Honors<BR>MBA (Information=20
------=_NextPart_000_0027_01C044AE.212BF0E0--
33. Help
Hello,
How to change a sequence to name of control.
for example...
I've a sequence "button1, button2, button3" and I want put som text in control
with the same name as a part of sequence..
setText(button1, "Test")
Bye Vlado
34. Re: Help
> Hello,
>
> How to change a sequence to name of control.
>
> for example...
>
> I've a sequence "button1, button2, button3" and I want put som text in
> control with the same name as a part of sequence..
>
> setText(button1, "Test")
>
> Bye Vlado
This can not be done directly, but there are ways to do this:
---------- START CODE
constant
button1 = create(PushButton, ...),
button2 = create(PushButton, ...),
button3 = create(PushButton, ...),
...
constant lookup_table = {
{"button1", button1},
{"button2", button2},
{"button3", button3},
...
}
function getControlFromString(sequence string)
for i = 1 to length(lookup_table) do
if equal(lookup_table[i][1], string) then
return lookup_table[i][2]
end if
end for
return 0 -- no control found
end function
integer ctl
ctl = getControlFromString("button1")
if ctl != 0 then
setText(ctl, "Test")
end if
---------- END CODE
If there are a lot of controls, you could speed it up by using a
hash-table instead of a simple lookup-table. Or make sure the lookup-table
is sorted alphabetically, and use an optimized search algorithm.
If you want to split the string "button1, button2, button3" into
{"button1", "button2", "button3"}, you could use Kat's Strtok
(http://www.tiggrbox.info/program/Euphoria.html).
--
Tommy Carlier
tommy online: http://users.pandora.be/tommycarlier
35. Help
--0-2008854464-1012484856=:49974
Hi I'v asked before with no responce please can someone HELP?
Question: Does anyone know how to stretch a bitman (zoom in zoom out) with not
too much flicker?
Please someone help me Thanks Jor.
---------------------------------
Do You Yahoo!?
Yahoo! Auctions Great stuff seeking new owners! Bid now!
--0-2008854464-1012484856=:49974
<P>Hi I'v asked before with no responce please can someone HELP?</P>
<P>Question: Does anyone know how to stretch a bitman (zoom in zoom out) with
not too much flicker?</P>
<P>Please someone help me Thanks Jor.</P><p><br><hr size=1><b>Do You
Yahoo!?</b><br>
<a href="http://rd.yahoo.com/mail_us/tag/?http://auctions.yahoo.com">Yahoo!
Auctions</a> Great stuff seeking new owners! <a
href="http://rd.yahoo.com/mail_us/tag/?http://auctions.yahoo.com">Bid now!</a>
--0-2008854464-1012484856=:49974--
36. Re: Help
There's no one way to stretch a bitmap. It also depends on if you're using a
prepackaged graphics library or whittlin' one of your own.
Could be as easy as converting each row of your sequence:
{0,1,2,3,4,5} becomes {0,0,1,1,2,2,3,3,4,4,5,5}
But I don't really know.
I'm using the ExoticaX package and it makes graphics handling easy (once you
know how!). There are commands in there that stretch and shrink bitmaps for
you automagically. Maybe it could be exactly what you need.
----- Original Message -----
From: "jordah ferguson" <jorfergie03 at yahoo.com>
To: "EUforum" <EUforum at topica.com>
Sent: Thursday, January 31, 2002 7:47 AM
Subject: Help
>
>
> Hi I'v asked before with no responce please can someone HELP?
>
> Question: Does anyone know how to stretch a bitman (zoom in zoom out) with
not too much flicker?
>
> Please someone help me Thanks Jor.
>
>
> ---------------------------------
> Do You Yahoo!?
> Yahoo! Auctions Great stuff seeking new owners! Bid now!
>
>
>
37. Re: Help
>Hi I'v asked before with no responce please can someone HELP?
>Question: Does anyone know how to stretch a bitman (zoom in zoom out) with not
>too much
flicker?
>Please someone help me Thanks Jord
Don't know if you mean DOS,Windows, or some DX app,
but there's a function for it in the WIN32API :
BOOL StretchBlt(
HDC hdcDest, // handle of destination device context
int nXOriginDest, // x-coordinate of upper-left corner of dest. rect.
int nYOriginDest, // y-coordinate of upper-left corner of dest. rect.
int nWidthDest, // width of destination rectangle
int nHeightDest, // height of destination rectangle
HDC hdcSrc, // handle of source device context
int nXOriginSrc, // x-coordinate of upper-left corner of source rectangle
int nYOriginSrc, // y-coordinate of upper-left corner of source rectangle
int nWidthSrc, // width of source rectangle
int nHeightSrc, // height of source rectangle
DWORD dwRop // raster operation code
);
int SetStretchBltMode(
HDC hdc, // handle of device context
int iStretchMode // bitmap stretching mode
);
some other functions are in dos graphical toolkits and in exotica.
Martin
38. Re: Help
>From: jordah ferguson <jorfergie03 at yahoo.com>
>Subject: Help
>
>Hi I'v asked before with no responce please can someone HELP?
>
>Question: Does anyone know how to stretch a bitman (zoom in zoom out) >with
>not too much flicker?
>
>Please someone help me Thanks Jor.
I'm currently working on V1.1 of a graphics library that will be able to do
zooming of bitmaps and the like.... I'll post it up either tomorrow or the
day after....
If you give me some more details of what you need then I can tailor it to
suit you, or give an explanation of how to using this lib.
=====================================================
.______<-------------------\__
/ _____<--------------------__|===
||_ <-------------------/
\__| Mr Trick
39. Help
------=_NextPart_000_0027_01BDBFBA.A17BA860
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Hello.
Is anyone setting up something like: www.euphoria.ca? Hey Rob, it's free =
to have a Canadian domain.
Anyways, my tutorial is coming along nicely. Could any people who speak =
a foreign language to English help me with the translation?
- Nate
------=_NextPart_000_0027_01BDBFBA.A17BA860
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD W3 HTML//EN">
<HTML>
<HEAD>
<META content=3Dtext/html;charset=3Diso-8859-1 =
http-equiv=3DContent-Type>
<META content=3D'"MSHTML 4.72.2106.6"' name=3DGENERATOR>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT color=3D#000000 size=3D2>Hello.</FONT></DIV>
<DIV><FONT color=3D#000000 size=3D2></FONT> </DIV>
<DIV><FONT color=3D#000000 size=3D2>Is anyone setting up something like: =
<A=20
href=3D"http://www.euphoria.ca">www.euphoria.ca</A>? Hey Rob, it's free =
to have a=20
Canadian domain.</FONT></DIV>
<DIV><FONT color=3D#000000 size=3D2></FONT> </DIV>
<DIV><FONT color=3D#000000 size=3D2>Anyways, my tutorial is coming along =
nicely.=20
Could any people who speak a foreign language to English help me with =
the=20
translation?</FONT></DIV>
<DIV><FONT color=3D#000000 size=3D2></FONT> </DIV>
<DIV><FONT size=3D2>- Nate</FONT></DIV>
------=_NextPart_000_0027_01BDBFBA.A17BA860--
40. Help
I need a tutorial on EUPHORIA.
Albert
41. Re: Help
- Posted by Pierre Beaulieu <pbeaulie at BVX.CA>
Oct 17, 1998
-
Last edited Oct 18, 1998
You will find an excellent tutorial at
Hope it will help,
Pierre Beaulieu
Albert Brauneis wrote:
>
> I need a tutorial on EUPHORIA.
>
> Albert
42. Help
- Posted by Albert Brauneis <Dajawu36 at AOL.COM>
Oct 28, 1998
-
Last edited Oct 29, 1998
Hello,
I am very very new to Euphoria and I am trying to make a simple program that
opens a file and inputs it line by line and prints it to the screen line by
line. I can open files and read and write to them but looping until eof I have
trouble with. I don't think there is an eof but I tried some things and I
can't get it to work. So if you can post this simple program for me that would
be great. Also say I want someone to type in a filename and they type in
c:\windows\temp.dat is there a function or do I have to make my own that
converts that to c:\\windows\\temp.dat??
Thanks for any help,
Albert
43. Re: Help
- Posted by JJProg at CYBERBURY.NET
Oct 28, 1998
-
Last edited Oct 29, 1998
EU>Hello,
EU>I am very very new to Euphoria and I am trying to make a simple program that
EU>opens a file and inputs it line by line and prints it to the screen line by
EU>line. I can open files and read and write to them but looping until eof I ha
EU>trouble with. I don't think there is an eof but I tried some things and I
EU>can't get it to work. So if you can post this simple program for me that wou
EU>be great. Also say I want someone to type in a filename and they type in
EU>c:\windows\temp.dat is there a function or do I have to make my own that
EU>converts that to c:\\windows\\temp.dat??
EU>Thanks for any help,
EU>Albert
object line -- For the line input
integer f -- For the file number
f = open(filename,"r") -- Open the file
if f = -1 then -- Couldn't open
puts(1,"Couldn't open " & filename) -- Display error message
abort(1) -- End program
end if
line = gets(f) -- Get first line
while sequence(line) do -- While not eof (gets will return -1 at eof)
puts(1,line) -- Display it
line = gets(f) -- Get next line
end while
close(f) -- Close the file
Just replace filename with the name of the file, and this will display
the file on the screeen.
Jeffrey Fielding
JJProg at cyberbury.net
44. Re: Help
>I am very very new to Euphoria and I am trying to make a simple program
that
>opens a file and inputs it line by line and prints it to the screen line by
>line. I can open files and read and write to them but looping until eof I
have
>trouble with. I don't think there is an eof but I tried some things and I
>can't get it to work. So if you can post this simple program for me that
would
>be great. Also say I want someone to type in a filename and they type in
>c:\windows\temp.dat is there a function or do I have to make my own that
>converts that to c:\\windows\\temp.dat??
Im not going to list another program example.
Jeffrey Fielding already did that.
However I am going to explain why you dont need to convert file names.
The euphoria interpreter ex.exe reads in your code and pre-compiles it. At
this stage it parses all your strings and values, and validates your code.
The escape characters are handles in this fase. The existence for escape
characters is to serve the programmer: Otherwise we would need to type
something like: "hello
" to make it jump to the next line. SOmething that is btw illegal, since the
number of spaces, etc. isnt clear and it is thus *bad* style. Instead ex.exe
handles the '\' as the escape character. But the parsing of escape
characters only occurs with strings that are actually typed inside your
program. It would be a hell, if we would have to convert every input. So,
the general rule is, the parsing of escape characters is part of notation
within Euphoria. Like 34873# means a heximal value. The '#' is not part of
the value it represents, it only there to tell Euphoria it is an hex-value,
it is thus part of the notation, just like escape values.
Ralf Nieuwenhuijsen
nieuwen at xs4all.nl
45. Re: Help
>>Also say I want someone to type in a filename and they type in
>>c:\windows\temp.dat is there a function or do I have to make my own
>>that converts that to c:\\windows\\temp.dat??
Why the "\\", that's too dificult.
Why not "/" ? That's the same and easier.
You only have to replace the "\" in "/".
But you have to read the c:\....... sequence out of a file.
You probably don't understand me, but let me give you this example:
---- file.txt ------
c:\windows\temp.dat
---- end -----------
( only write the c:\..... in the file "file.txt" )
---- CONV.EX -------
sequence line
integer handler
handler=open("file.txt","r")
line=gets(handler)
line=line[1..length(line)]
close(handler)
for a=1 to length(line) do
if line[a]='\\' then
line[a]='/'
end if
end for
--------------------------------
That's it, I think..........
PQ
(quistnet at yahoo.com)
______________________________________________________
Get Your Private, Free Email at http://www.hotmail.com
46. Re: Help
On Wed, 28 Oct 1998 21:56:40 EST, Albert Brauneis <Dajawu36 at AOL.COM> wrote:
>Hello,
>
>I am very very new to Euphoria and I am trying to make a simple program that
>opens a file and inputs it line by line and prints it to the screen line by
>line. I can open files and read and write to them but looping until eof I have
>trouble with. I don't think there is an eof but I tried some things and I
>can't get it to work. So if you can post this simple program for me that would
>be great. Also say I want someone to type in a filename and they type in
>c:\windows\temp.dat is there a function or do I have to make my own that
>converts that to c:\\windows\\temp.dat??
>
Proving only that there is more than one way to program anything,
I submit the following fairly simple way to do what you want:
object file,line -- line *must* be declared as an object
atom fn
puts(1,"Filename:") -- display a prompt
file = gets(0) -- read input
file[length(file)] = ' ' -- kill l/f character appended to the input
-- if you want to hard-code a filename within your program
-- do replace the 3 lines above with the following line:
-- file = "C:\\EUPHORIA\\READ_ME.TXT"
clear_screen()
fn = open(file,"r")
if fn = -1 then puts(1,"File not found")
end if
while 1 do
line = gets(fn)
if atom(line) then exit -- eof
end if
puts(1,line)
end while
-- Regards,
-- Irv
Buses stop at bus stations,
Trains stop at train stations;
on my desk is a work station....
