13 lines
428 B
Text
13 lines
428 B
Text
100 PROGRAM "YinYang.bas"
|
|
110 GRAPHICS HIRES 2
|
|
120 SET PALETTE WHITE,BLACK
|
|
130 CALL YINYANG(200,400,150)
|
|
140 CALL YINYANG(800,340,300)
|
|
150 DEF YINYANG(X,Y,R)
|
|
160 PLOT X,Y,ELLIPSE R,R,
|
|
170 PLOT X,Y+R/2,ELLIPSE R/2,R/2,ELLIPSE R/6,R/6,PAINT
|
|
180 PLOT X,Y-R/2,ELLIPSE R/2,R/2,ELLIPSE R/6,R/6,
|
|
190 PLOT X,Y-6,PAINT,X+R/2,Y,PAINT
|
|
200 SET INK 0:PLOT X,Y+R/2,ELLIPSE R/2,R/2,
|
|
210 SET INK 1:PLOT X,Y,ELLIPSE R,R,
|
|
220 END DEF
|