Compucolor.org – Virtual Media

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