|
|
!'Barnsley's Fern
RANDOMIZE
SET WINDOW -5,5,0,10
SET POINT STYLE 1
FOR I=1 TO 1000000
SELECT CASE INT(RND*4)
CASE 0
LET XX=.85*X+.04*Y
LET YY=-.04*X+.85*Y+1.6
CASE 1
LET XX=-.15*X+.28*Y
LET YY=.26*X+.24*Y+.44
CASE 2
LET XX=.2*X-.26*Y
LET YY=.23*X+.22*Y+1.6
CASE 3
LET XX=0
LET YY=.16*Y
END SELECT
PLOT POINTS:XX,YY
LET X=XX
LET Y=YY
NEXT I
END
|
|