### Author Topic: LuaCurliqueFractal  (Read 596 times)

#### Rick3137

• Full Member
• Posts: 108
##### LuaCurliqueFractal
« on: 28. October 2015, 22:15:24 »

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()
« Last Edit: 28. October 2015, 22:17:25 by Rick3137 »
http://rb23.yolasite.com  Ricks Programs
http://rb27.synthasite.com   Sight and Sound

#### Rick3137

• Full Member
• Posts: 108
##### Re: LuaCurliqueFractal
« Reply #1 on: 07. November 2015, 02:00:23 »
Where did everyone go? Are my sample programs that bad?
http://rb23.yolasite.com  Ricks Programs
http://rb27.synthasite.com   Sight and Sound

#### gomio

• Newcomer
• Posts: 4
##### Re: LuaCurliqueFractal
« Reply #2 on: 09. November 2015, 19:13:45 »
I like your sample programs, thank you for sharing
They are a good test for Pulsar2D speed.

#### Rick3137

• Full Member
• Posts: 108
##### Re: LuaCurliqueFractal
« Reply #3 on: 10. November 2015, 15:20:00 »
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.
http://rb23.yolasite.com  Ricks Programs
http://rb27.synthasite.com   Sight and Sound