20 lines
1.1 KiB
Text
20 lines
1.1 KiB
Text
0 GOTO 6
|
|
1Y=R:D=1-R:X=0:FORC=0TO1STEP0:M=D>=0:Y=Y-M:D=D-Y*2*M:D=D+X*2+3:HPLOTXC-X,YC+YTOXC+X,YC+Y:HPLOTXC-Y,YC+XTOXC+Y,YC+X:HPLOTXC-X,YC-YTOXC+X,YC-Y:HPLOTXC-Y,YC-XTOXC+Y,YC-X:X=X+1:C=X>=Y:NEXTC:RETURN
|
|
2Y=R:D=1-R:X=0:FORC=0TO1STEP0:M=D>=0:Y=Y-M:D=D-Y*2*M:D=D+X*2+3:HPLOTXC-X,YC+Y:HPLOTXC+X,YC+Y:HPLOTXC-Y,YC+X:HPLOTXC+Y,YC+X:HPLOTXC-X,YC-Y:HPLOTXC+X,YC-Y:HPLOTXC-Y,YC-X:HPLOTXC+Y,YC-X:X=X+1:C=X>=Y:NEXTC:RETURN
|
|
3Y=R:D=1-R:X=0:FORC=0TO1STEP0:M=D>=0:Y=Y-M:D=D-Y*2*M:D=D+X*2+3:HPLOTXC,YC+YTOXC+X,YC+Y:HPLOTXC,YC+XTOXC+Y,YC+X:HPLOTXC,YC-YTOXC+X,YC-Y:HPLOTXC,YC-XTOXC+Y,YC-X:X=X+1:C=X>=Y:NEXTC:RETURN
|
|
|
|
6 HGR2 : HCOLOR = 3 : HPLOT 0,0 : CALL 62454
|
|
7 XC = 60 : YC = 60 : R = 30 : GOSUB 100YINYANG
|
|
8 XC = 180 : YC = 80 : R = 60 : GOSUB 100YINYANG
|
|
9 END
|
|
|
|
100 YP = YC : S = R
|
|
110 HCOLOR = 0: GOSUB 3FILLHALFCIRCLE
|
|
120 HCOLOR = 3:YC = YP - S / 2 : R = S / 2 : GOSUB 1FILLCIRCLE
|
|
130 HCOLOR = 0
|
|
140 YC = YP + S / 2 : GOSUB 1FILLCIRCLE
|
|
150 YC = YP - S / 2 : R = S / 6 : GOSUB 1FILLCIRCLE
|
|
160 HCOLOR = 3
|
|
170 YC = YP + S / 2 : GOSUB 1FILLCIRCLE
|
|
180 HCOLOR = 0 : YC = YP : R = S : GOSUB 2CIRCLE
|
|
190 RETURN
|