Grandiaalisen käyrän generoija
Posted: Sun Mar 20, 2011 8:56 pm
Generoi grandiaalisen käyrän. Eli simuloi ilmiötä, joka esiintyy monasti elävässäkin elämässä erilaisissa muodoissa. Mitä enemmän muuttuja on positiivinen/negatiivinen, sitä suurempi todennäköisyys sillä on olla sitä jatkossa vielä enemmän.
Code: Select all
SCREEN 800,400
FrameLimit 60
img = MakeImage(800,400)
DrawToImage img
Color 0,0,0
Cls
Color 50,50,50
Line 0,200,800,200
DrawToScreen
i = 0
SetFont(LoadFont("verdana",16))
edx = 0
edy = 200
Repeat
If Rand(-100,101) > i Then i = i - 1 Else i = i + 1
If s Mod 10 = 0 Or Abs(i) > 100 Or s > 799 Then
DrawToImage img
Color cbred
Line edx,edy,s,200+i*2
edx = s
edy = 200+i*2
DrawToScreen
DrawScreen
EndIf
DrawImage img,0,0
If Abs(i) > 100 Or s > 799 Then
Color 255,255,255
Text 5,5,"Paina enter generoidaksesi uuden."
DrawToImage img
Color 0,0,0
Cls
Color 50,50,50
Line 0,200,800,200
DrawToScreen
DrawScreen
WaitKey
s = 0
i = 0
edx = 0
edy = 200
EndIf
s = s + 1
Forever