OpenEuphoria

Re: Spiral

• Posted by Sistema Solar Roos <roos at CTV.ES> Nov 11, 1996
• 1578 views

Este es un mensaje multipartes en formato MIME.

--------------379F6CD31019
Content-Transfer-Encoding: quoted-printable

With regards to the request for a spiral program by John Waldrep and=20
following reply by Michael Pack, I attach a short, untidy program, with=20
no type checking or otherwise but produces a simple spiral of different=20
size, turns etc.=20

However, interestingly it will not draw in BLACK! I imagine that this is=20
because BLACK is transparent. Can anybody clarify / confirm this?

Saludos (Spanish for cheers)

Adam H. Jackson

P.S. I have only been using Euphoria for the first time last week and am=20
very impressed. So far the only dispointment is the speed of the output=20
of text to the screen and input from the key board. (The buffer fills=20
faster than Euphoria can read it.) I=B4d imagine that this is because it =
is=20
controlled through DOS and not direct. Anybody got a solution or include=20
that might help?

--------------379F6CD31019
Content-Disposition: inline; filename="SPIRAL.EX"

include get.e
include graphics.e

atom check
integer turns,step,size_x,size_y
constant pi=3.141596
constant rad=pi/180  -- To convert from Radians to Degrees when multiplied by
                     -- the angle. eg. sin(90*rad)=1

function input(sequence text) -- To print a message a return a number from user
sequence inp,cur
inp={1,0}
    puts (1,text)                   -- message on screen
    while inp[1] do                 -- repeat until valid number
    cur=get_position()              -- back to position if not valid
    inp = get (0)
    position (cur[1],cur[2])
    end while
    return inp[2]
end function

-- Main part of program sorry about lazy structuring of the program but I will
-- leave something for you to do

turns=input("Number of spiral turns ")
step=input("\nSpiral steps ")
size_x=input("\nMax size x of spiral (1-320) ")
size_y=input("\nMax size y of spiral (1-200) ")

clear_screen()
integer color,x,y,x_old,y_old

check=graphics_mode(256)
bk_color(BLUE) clear_screen()

color=BROWN       -- I dont know why BLACK dosent work. (Transparent?)
for a=1 to 360*turns by step do
    if color=BROWN then color=WHITE else color=BROWN end if --Each step a color

    x=floor(320+cos(a*rad)*a/(360*turns)*size_x) -- fits screen mode
    y=floor(200+sin(a*rad)*a/(360*turns)*size_y) -- 640 x 400
    if a=1 then x_old=x y_old=y end if
    draw_line(color,{{x_old,y_old},{x,y}})
    x_old=x  y_old=y
end for
check=wait_key()




--------------379F6CD31019--