XProfan

Windowtitle "SPIRALO - un rekursiver Spiralalgorithmus"
Windowstyle 24:Fenêtre 0,0-%maxx,%maxy:randomize
Déclarer xh&,yh&,x!,y!,xn!,yn!,r!,s!,co&
Repeat:r!=width(%hwnd):s!=pi()/180
xh&=rnd(width(%hwnd)):yh&=rnd(height(%hwnd))
x!=r!:moveto xh&+x!,yh&:co&=rnd(8^8):usepen 0,10,co&
go

until %clé=27:end

proc go

si r!>4:s!=s!+sqrt(s!)*0.004:usepen 0,20-38*s!,co&

    xn!=x!*cos(s!)+y!*sin(s!):yn!=y!*cos(s!)-x!*sin(s!)
    xn!=xn!*0.985:yn!=yn!*0.985:r!=r!*0.985
    'locate 1,1:imprimer r!,xn!,yn!
    line xh&+x!,(yh&-y!) - xh&+xn!,(yh&-yn!)
    x!=xn!:y!=yn!

    si rnd(100)<20:waitinput 1:cas %clé>0:FIN:endif

        go'REKURSION!

    endif

endproc