Fractales en Deux Lignes de Basic

Le BASIC Amstrad est l’un des plus puissants sur les machines des années 80, et Roudoudou nous fait ici une démonstration de ses capacités. Dans la tradition des « DeuxLignes » que l’on trouvant dans Hebdogiciel, il nous a pondu un court programme qui dessine une fractale colorée, issue de l’ensemble de Julia.

Tout est expliqué en vidéo, le programme ayant été écrit en live lors d’un stream:

Le programme dans sa version finale est retranscrit ici:

1 IF ru=0 THEN n=60:BORDER 0:DEG:MODE 0:ORIGIN 320,200:INK 0,0:INK 1,1:INK 2,2:INK 3,11:INK 4,20:INK 5,23:INK 6,26:INK 7,25:INK 8,24:INK 9,15:INK 10,6:INK 11,3:INK 12,4:INK 13,5:INK 14,8:ru=1:ix=COS(n):iy=SIN(n)*0.4 ELSE n=n+3:ix=COS(n):iy=SIN(n)*0.4
2 INK 15,12:FOR y%=-200 to -2 STEP 2: FOR x%=-320 to 316 STEP 4: c%=0:a=0:b=0:r=x%*3.2/640:i=y%*2/400:WHILE c%<32 and a+b<4:a=r*r:b=i*i:i=r*i*2+iy:r=a-b+ix:c%=c%+1:WEND:PLOT x%,y%,c% AND 15: PLOT -4-x%,-y%-2,c% AND 15:NEXT: NEXT:GOTO 10