Lorenz

Do you have something to share with us? A tip for newbies, perhaps? Post it here.
Post Reply
peter
Active Member
Posts: 123
Joined: Mon Oct 22, 2007 2:31 pm

Lorenz

Post by peter »

Hello,
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
Post Reply