Retrogamecoding(.org) > Examples

LuaCurliqueFractal

(1/1)

**Rick3137**:

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()

**Rick3137**:

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

**gomio**:

I like your sample programs, thank you for sharing :)

They are a good test for Pulsar2D speed.

**Rick3137**:

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.

Navigation

[0] Message Index

Go to full version