Creating Fractals with BASIC on the Commodore Plus4

"Hexapod" (New Fractal)
Done with Commodore BASIC 3.5 for the Commodore 16, 116 and Plus/4.
Accelerated Yape 1.2.1 Emulator (2000%).
Compatible with BASIC 7.0 for the Commodore 128
For the Commodore 64 try this BASIC 3.5 extension:
Link: csdb.dk/release/?id=189017
Code:
(Replace {less} with the mathematical "less" symbol)
NEW
5 REM ** HEXAPOD **
30 XX(2) = 0.98: XY(2) = -0.97: YX(2) = 0.9: YY(2) = 0.96: Y(2) = 1.7:
40 XX(4) = -.15: XY(4) = .28: YX(4) = .26: YY(4) = .24: Y(4) = .44:
50 COLOR4,1:COLOR0,1:COLOR1,6,4
55 GRAPHIC1,1
60 X=0:Y=0
70 FOR I = 1 TO 75000
80 R = INT(RND (1) * 100)
90 IF R{less}86 THEN F=2:ELSE F=4
100 X = XX(F) * X + XY(F) * Y
110 Y = YX(F) * X + YY(F) * Y
120 Y = Y + Y(F)
130 X% = 220 + X * 39.9
140 Y% = 100 - Y * 39.9
150 DRAW, X%,Y%
160 NEXT
170 GETKEY K$:GRAPHIC 0
RUN
#fractal #basic #commodore #retro #programming #C16 #plus4 #c116 #c64 #Apple #Atari #Amiga #BBC #Sinclair #Oric