"Coin-Tail" (New Fractal)
Done with Commodore BASIC 3.5 for the Commodore 16, 116 and Plus/4.
Accelarated 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/releas...
Code
(Replace {less} with the mathematical "less" symbol)
new
0 REM YY(1)=.16
1 XX(2)=.98:XY(2)=-.97:YX(2)=.09:YY(2)=.96:Y(2) = 1.7
2 REM XX(3)=.20:XY(3)=-.26:YX(3)=.23:YY(3)=.22:Y(3) = 1.6
3 XX(4)=-.15:XY(4)=.28:YX(4)=.26:YY(4)=.24:Y(4) = .44
4 COLOR4,1:COLOR0,1:COLOR1,6,4:GRAPHIC1,1
5 X=0:Y=0
6 FORI=1TO 100000
7 R=INT(RND(1)*100)
8 IFR{less}1THENF=1:ELSEIFR{less}86THENF=2:ELSEIFR{less}93THENF=3:ELSEF=4
9 X=XX(F)*X+XY(F)*Y:Y=YX(F)*X+YY(F)*Y:Y=Y+Y(F):COLOR1,F+4,6
10 DRAW,250+X*5.9,120-Y*12.9
11 NEXTI
12 GETKEY K$:GRAPHIC 0
RUN
#fractal #basic #commodore #retro #programming #C16 #plus4 #c116 #c64 #Apple #Atari #Amiga
21 окт 2024