点が消える?

 投稿者:しばっち  投稿日:2013年12月15日(日)18時54分50秒
  !'回る円の中心を見つめていると黄色の点が消える
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
 

戻る