Api Update

[peter]

Hello,

once again api.inc
open a canvas_window is easier now.

we have now:
OpenWindow( width, height )
Drawline( x1, y1, x2, y2, color )

examples:

Uses "ui","math"
#INCLUDE "api.inc"

OpenWindow 640, 480
Canvas_Font "arial",14, %CANVAS_FONTSTYLE_NORMAL

Single angle, cx, cy, r, na 
Long i, x, y
angle=1 : cx=320 : cy=240 : r=50 

Canvas_Clear 0
Canvas_Redraw

For i=0 To 20100
    r=Sin(angle/100) * 200
    na=((r*2*Pi)/3600) * angle
    x =(Cos(na / r)*r)+cx
    y =(Sin(na / r)*r)+cy
    DrawPoint x,y, 4, Rgb 255,255,150
    DrawPoint x,y, 2, Rgb 255,255,255
    angle += .5
Next
DrawText 256,0,"Easter Flower", &HFFFFFF 
Canvas_Redraw

While IsWindow(hwnd) And KeyDown(27)=0
   Sleep 10
Wend
Canvas_Window End hwnd

Uses "ui"
#INCLUDE "api.inc"

OpenWindow 220, 200
Canvas_Font "arial",16, %CANVAS_FONTSTYLE_NORMAL
Randomize

Long i 
Canvas_Clear &HF0C0C0
canvas_redraw

For i=1 To 12 
    DrawLine 10,i*15,220,i*15, Rnd(255,16777215)
Next

Canvas_Redraw
While IsWindow(hwnd) And KeyDown(27)=0
   Sleep 10
Wend
Canvas_Window End hwnd

[peter]

Nice Mandelbrot.

Uses "ui"
#INCLUDE "api.inc"

OpenWindow 400, 300

Single cRe,cIm,newRe,newIm,oldRe,oldIm,z,moveX,moveY
Long iMax,x,y,i,a

cRe = -0.8 : cIm = 0.27015 : z=1 
iMax=256  

For x=0 To 400
   For y=0 To 300
      newRe = 1.8 * (x-400*.5) / (.5*z*400) + moveX
      newIm = (y-300*.5) / (.5*z*300) + moveY
      For i=0 To iMax
         oldRe = newRe
	       oldIm = newIm
	       newRe = oldRe * oldRe - oldIm * oldIm +cRe
	       newIm = 2 * oldRe * oldIm + cIm
	       If((newRe * newRe + newIm * newIm) >5) Then Exit For
      Next
      Canvas_SetPixel x, y, i*45 + i*256 + (i*45)*65536 
   Next
Next
Canvas_Redraw

While IsWindow(hwnd) And KeyDown(27)=0
   Sleep 10
Wend
Canvas_Window End hwnd