12 lines
454 B
Text
12 lines
454 B
Text
10 REM Fractal Fern
|
|
20 PAPER 7: BORDER 7: BRIGHT 1: INK 4: CLS
|
|
30 LET maxpoints=20000: LET x=0: LET y=0
|
|
40 FOR n=1 TO maxpoints
|
|
50 LET p=RND*100
|
|
60 IF p<=1 THEN LET nx=0: LET ny=0.16*y: GO TO 100
|
|
70 IF p<=8 THEN LET nx=0.2*x-0.26*y: LET ny=0.23*x+0.22*y+1.6: GO TO 100
|
|
80 IF p<=15 THEN LET nx=-0.15*x+0.28*y: LET ny=0.26*x+0.24*y+0.44: GO TO 100
|
|
90 LET nx=0.85*x+0.04*y: LET ny=-0.04*x+0.85*y+1.6
|
|
100 LET x=nx: LET y=ny
|
|
110 PLOT x*17+127,y*17
|
|
120 NEXT n
|