Listing of file='YINYAN.BAS;01' on disk='vmedia/ncc_16-sector.ccvf'
90 PLOT 12 100 REM *****DRAW TAI CHI SIGN OF YANG AND YIN***** 110 REM ::::SET CONSTANTS:::: 120 PI= 3.141592 130 X0= 63:Y0= 62 140 R= 61 150 A= .75 160 YU= Y0+ R/ 2:YL= Y0- R/ 2 170 DEF FN X(AN)= R* A* COS (AN) 180 DEF FN Y(AN)= R* SIN (AN) 190 REM ::::PLOT RED HALF OF CIRCLE:::: 195 PLOT 6,1 200 FOR AN= 0 TO PI/ 2 STEP PI/ (R* 4) 210 X= FN X(AN):Y= FN Y(AN) 220 PLOT 2,X0+ X,Y0+ Y,242,X0+ X,Y0- Y,255 230 NEXT AN 240 REM ::::PLOT YELLOW HALF::::: 250 PLOT 6,3 260 FOR AN= PI/ 2 TO PI STEP PI/ (R* 4) 270 X= FN X(AN):Y= FN Y(AN) 280 PLOT 2,X0+ X,Y0+ Y,242,X0+ X,Y0- Y,255 290 NEXT AN 300 REM :::DRAW SMALL YELLOW CIRCLE AROUND YU:::: 310 PLOT 6,11 320 R= R/ 2 330 FOR AN= PI/ 2 TO 0 STEP - PI/ (R* 4) 340 X= FN X(AN):Y= FN Y(AN) 350 PLOT 2,X0+ X- 1,YU+ Y,242,X0+ X- 1,YU- Y,255 360 NEXT AN 370 REM ::::NOW PLOT SMALL RED CIRCLE AROUND YL:::: 375 PLOT 6,25 380 FOR AN= PI/ 2 TO PI STEP PI/ (R* 4) 390 X= FN X(AN):Y= FN Y(AN) 400 PLOT 2,X0+ X,YL+ Y,242,X0+ X,YL- Y,255 410 NEXT AN 430 REM ::::NOW PLOT SMALL DOTS:::: 440 R= R/ 3 450 FOR AN= 0 TO PI STEP .1 460 X= FN X(AN):Y= FN Y(AN) 470 PLOT 2,X0+ X,YU+ Y,242,X0+ X,YU- Y,255 480 NEXT AN 490 REM :::NOW YELLOW DOT:::: 500 PLOT 6,11 510 FOR AN= 0 TO PI STEP .1 520 X= FN X(AN):Y= FN Y(AN) 530 PLOT 2,X0+ X,YL+ Y,242,X0+ X,YL- Y,255 540 NEXT AN 550 PLOT 6,2