Hello,

trigonometric landscape.

Uses "ui"
#INCLUDE "abc.inc"

OpenWindow 800,800
setHandleDC hdc, hwnd

Canvas_Clear 0
Drawstring 10,10,"WAIT A LITTLE BIT.....",&hffffff
Canvas_Redraw

Dim t,x,y As Single

For t=0 To 7000 Step 0.006
    x=Sin(0.99*t)-0.7*Cos(3.01*t)
    y=Cos(1.01*t)+0.1*Sin(15.03*t)
    x=x*200+400 : y=y*200+400
    Canvas_SetPixel y,x,&hf0f0f0
Next
DrawRect 10,10,120,20,0,0          
Canvas_Redraw

While IsWindow(hwnd) And Key(%VK_ESCAPE)=0
   Sleep 10
Wend
Canvas_Window End hwnd