dos33fsprogs/basic/fractals/dragon_small.bas
2021-10-02 18:13:17 -04:00

5 lines
256 B
QBasic

0DIMS(30):HGR2:X=107:Y=142:V=6:S(0)=9:S(1)=1:P=2:GOSUB1:END
1P=P-2:N=S(P):A=S(P+1):IFN=0THENU=X+H:W=Y-V:HPLOT X,YTOU,W:X=U:Y=W:RETURN
2S(P)=N-1:S(P+1)=-1:S(P+2)=A:S(P+3)=N-1:S(P+4)=1:P=P+5:GOSUB1:GOSUB3:GOSUB 1:RETURN
3P=P-1:A=S(P):T=-A*H:H=A*V:V=T:RETURN