Api Mandelbrot

[peter]

Hello,

Of course, an api-mandelbrot should not be missed.


Uses "ui"
#INCLUDE "api.inc"


DWord hwnd,hdc
hwnd = Canvas_Window("api_app",xMid(640),yMid(480),640,480)
Canvas_Attach(hwnd,0,%TRUE)
hdc = Canvas_GetDC()
Canvas_Font "courier",16, %CANVAS_FONTSTYLE_BOLD


Single lx,ly,x,y,a2,b2,a,b,z,c,x2,y2,t1,t2
lx = 3 / 640
ly = 2 / 480


t1 = ticks
For x=0 To 640
For y=0 To 480
a = 0
b = 0
c = 0
x2 = lx*x-2
y2 = ly*y-1
While c<50
a2 = a*a-b*b
b2 = 2*a*b
a = a2 + x2
b = b2 + y2
z = a*a+b*b
If z >=4 Then Exit While
c +=1
Wend
If c=50 Then
SetPixel hdc,x,y, 0
ElseIf c<17 Then
SetPixel hdc,x,y, Rgb( 245 -((17-c)*3),0, 0)
ElseIf c<33 Then
SetPixel hdc,x,y, Rgb( 245, ((c-16)*16)-16, 0)
Else
Win_SetPixelV hdc,x,y, Rgb( 641 -(c*12), 245, ((c-32)*15))
EndIf
Next
Canvas_Redraw
Next
t2 = ticks
t2 = (t2-t1)/1000


While IsWindow(hwnd) And KeyDown(%VK_ESCAPE)=0
DrawText 0,0,"Needed time " & t2 & " secs", Rgb 255,255,255
Canvas_Redraw
Sleep 10
Wend
Canvas_Window End