|
|
!'回る円の中心を見つめていると黄色の点が消える
CALL GINIT(600,600)
DO
FOR TH=0 TO 360 STEP 30
SET DRAW MODE HIDDEN
CLEAR
CALL CIRCLE(300,300,200,1)
FOR I=0 TO 7
LET X=300+200*COS((I*45+TH)*PI/180)
LET Y=300+200*SIN((I*45+TH)*PI/180)
CALL LINE(300,300,X,Y,1)
NEXT I
FOR I=0 TO 2
LET XX=300+100*COS((-30+I*120)*PI/180)
LET YY=300+100*SIN((-30+I*120)*PI/180)
CALL CIRCLEFULL(XX,YY,2,6)
NEXT I
SET DRAW MODE EXPLICIT
WAIT DELAY 1/8
NEXT TH
LOOP
END
EXTERNAL SUB GINIT(XSIZE,YSIZE)
SET BITMAP SIZE XSIZE,YSIZE
SET WINDOW 0,XSIZE-1,YSIZE-1,0
SET POINT STYLE 1
SET COLOR MODE "REGULAR"
SET COLOR MIX(0) 0,0,0
SET COLOR MIX(1) 0,0,1
SET COLOR MIX(2) 1,0,0
SET COLOR MIX(3) 1,0,1
SET COLOR MIX(4) 0,1,0
SET COLOR MIX(5) 0,1,1
SET COLOR MIX(6) 1,1,0
SET COLOR MIX(7) 1,1,1
CLEAR
END SUB
EXTERNAL SUB LINE(XS,YS,XE,YE,C)
SET COLOR C
PLOT LINES
PLOT LINES:XS,YS;XE,YE
END SUB
EXTERNAL SUB CIRCLEFULL(X,Y,RR,C)
SET COLOR C
DRAW DISK WITH SCALE(RR)*SHIFT(X,Y)
END SUB
EXTERNAL SUB CIRCLE(X,Y,R,C)
SET COLOR C
PLOT LINES
FOR I=0 TO 360 STEP 10
LET XX=X+R*COS(I*PI/180)
LET YY=Y+R*SIN(I*PI/180)
PLOT LINES:XX,YY;
NEXT I
PLOT LINES
END SUB
|
|