RetroBASIC

Retrogamecoding(.org) => Examples => Topic started by: Rick3137 on October 28, 2015, 09:15:24 PM

Title: LuaCurliqueFractal
Post by: Rick3137 on October 28, 2015, 09:15:24 PM

 
win = openwindow ("Start",-1,-1,1200,700)
setactivewindow (win)


backcolor (0,0,0,255)

cls()
--float x,y,f,i
    x=0 ; y=0 ; f= 0 ; x1=0 ; y1 = 0 ; Ang = 0 ; r = 50
    color (255,225,255,255)
for a=0,500000 do
     Ang = Ang + .00001
       if(Ang >  8 ) then
            Ang = 0
       end
       r = r +.000001 
    f = f - math.pi   
    x = x + cos(f*f)
    y = y + sin(f*f)
    x1 = x + r + cos(Ang)*r/8  ; y1 =  y + r + sin(Ang)*r
    x3 =  r - cos(Ang)*r/8 -x
     color (x,y,255,f)
    dot( x1 + 500 ,y1 + 300  )
    dot( x3 + 500 ,y1 + 300 )   
end

color (255,255,0,255)
--textsize (2)

drawtext ("Press any key to exit ..",0,0)

sync()
key=inkey()

closewindow(win)
closeapplication()

Title: Re: LuaCurliqueFractal
Post by: Rick3137 on November 07, 2015, 01:00:23 AM

 Where did everyone go? Are my sample programs that bad?

Title: Re: LuaCurliqueFractal
Post by: gomio on November 09, 2015, 06:13:45 PM

I like your sample programs, thank you for sharing  :)
They are a good test for Pulsar2D speed.

Title: Re: LuaCurliqueFractal
Post by: Rick3137 on November 10, 2015, 02:20:00 PM

  Thank you. I needed that.
  I hope to spend some more time with Pulsar. I liked Egsl and I got a little rusty waiting for Pulsar to come out. Looks good so far.