Uses "UI","math"
Dim ScreenWidth As Long = 800
Dim ScreenHeight As Long = 600
Dim hWin As DWord '---Handle of the canvas window
Dim colr, colrFill,xs,xm,ys,ym,d As Long
Dim q,qq,v,vv,br,bi,tr,ti,x,y,c,ar,ai,lin As Double
hWin = Canvas_Window("Parrot Fractal", 1, 1, ScreenWidth, ScreenHeight )
Canvas_Attach(hWin, 0, %TRUE) ' <- double buffer
'---Init canvas
Canvas_Clear(%BLACK)
q=1.0
qq=0.9997
v=0.01
vv=0.0004
xs=750
xm=650
ys=730
ym=180
c=0
br=-0.7393
bi=0.117
ar=0
ai=0
For d=1 To 9000
tr=ar*ar-ai*ai+br
ti=2*ar*ai+bi
x=tr*xs+xm
y=ti*ys+ym
v=v+vv
q=q*qq
c=d^2.1
'stamp x,y,q,v,{0,0,50,0,50,1,0,1}
Canvas_Line((x,y),(x+50*q,y+v),c)
'Canvas_Redraw
ar=tr
ai=ti
Next d
Canvas_Redraw
Canvas_WaitKey
Canvas_Window End
Bookmarks