Code: Select all
SCREEN 600,600
jako1=20
jako2=3
nopeus=1000 //Nopeus, mitä pienempi sitä hitaampi
koko=100
Randomize Timer() //Varmasti omalaatuisia kuvia
Repeat
kuva+nopeus
For a=1 To kuva
Line 300,300,300+Cos(a/jako1)*koko,300-Sin(a/jako2)*koko//Piirretään kuvio
Next a
If KeyHit(57) Then //Luodaan uusi kuvio
Repeat
jako1=Rand(1,20)
jako2=Rand(1,20)
Until jako1<>jako2
kuva=0
EndIf
//Tiedot
Text 0,0,FPS()
Text 0,15,jako1
Text 0,30,jako2
DrawScreen
Forever