quite simply.
Code: Select all
SCREEN 800, 700
Global x#,y#,n#
s$ ="LORENZ LANDSCAPE"
For t=0 to 44000
x=Sin(t*0.99)-0.7*cos(t*3.01)
y=Cos(t*1.01)+0.1*sin(t*15.03)
x=x*200+350
y=y*200+360
Color 255,150,180
Dot y,x
Next t
Color 255,255,255
For i=1 To Len(s)
Text 700,32+i*10,Mid(s,i,1)
Next i
DrawScreen
WaitKey