"Cherry Blossom" für den CPC

[Devilmarkus]

Hier das fraktale Pflänzchen:

Code Select Expand

100 LEVEL=15
110 LONG=80
120 X=320
130 Y=10
140 ROTATION=PI/2
150 A1=PI/9 : A2=PI/9
160 C1=0.8 : C2=0.8
170 DIM XX(LEVEL):DIM YY(LEVEL)
180 MODE 1:INK 0,0:INK 3,17:INK 1,18:BORDER 0
190 GOSUB 210
200 END
210 REM
220 XX(LEVEL)=X:YY(LEVEL)=Y
230 GOSUB 370
240 IF LEVEL=1 THEN GOTO 350
250 LEVEL=LEVEL-1
260 LONG=LONG*C1
270 ROTATION=ROTATION-A1
280 GOSUB 210
290 LONG=LONG/C1*C2
300 ROTATION=ROTATION+A1+A2
310 GOSUB 210
320 ROTATION=ROTATION-A2
330 LONG=LONG/C2
340 LEVEL=LEVEL+1
350 X=XX(LEVEL):Y=YY(LEVEL)
360 RETURN
370 REM
380 YN=SIN(ROTATION)*LONG+Y
390 XN=COS(ROTATION)*LONG+X
400 IF LEVEL=1 THEN COL=3 ELSE COL=1
410 MOVE x,y:DRAW xn,yn,col
420 X=XN:Y=YN
430 RETURN