14 lines
521 B
Text
14 lines
521 B
Text
GCOL 2 : REM Green Graphics Color
|
|
X=0 : Y=0
|
|
FOR I%=1 TO 100000
|
|
R%=RND(100)
|
|
CASE TRUE OF
|
|
WHEN R% == 1 NewX= 0 : NewY= .16 * Y
|
|
WHEN R% < 9 NewX= .20 * X - .26 * Y : NewY= .23 * X + .22 * Y + 1.6
|
|
WHEN R% < 16 NewX=-.15 * X + .28 * Y : NewY= .26 * X + .24 * Y + .44
|
|
OTHERWISE NewX= .85 * X + .04 * Y : NewY=-.04 * X + .85 * Y + 1.6
|
|
ENDCASE
|
|
X=NewX : Y=NewY
|
|
PLOT 1000 + X * 130 , Y * 130
|
|
NEXT
|
|
END
|