uses gdip

Screen 640,480,1
SetCaption "GDIPLUS 3D TREE"
SetSmoothMode 2

sys b1,b2
b1 = LoadImage "png/tree.png",0
b2 = LoadImage "png/weed.png",0 
ClsColor 255,0,0,0

While Key(27)=0
int y,x
For y=0 To 480 step 20
   For x=0 To 640 step 20
     FillBox x,y,20,20, ARGB(55,Rand(64,200),155,205) 
   Next 
Next
ZoomImage b1,0,0,640,480
ZoomImage b2,0,431,640,48
Flip
SetFps 14
Wend
Ends