OPTION ANGLE DEGREES
PRINT
PRINT "＜ 合わせ鏡による光の反射 ＞"
PRINT "同じ方を向いている右側の友達は、あたかも自分と向き合っているように見えます。"
PRINT

SET WINDOW -4,4,-4,4
DRAW GRID
PLOT LINES : -3,-2;-1,-2
PLOT LINES : 1,-2;3,-2
PLOT LINES : -1,2;-3,0
PLOT LINES : 1,2;3,0
SET COLOR 4
DRAW DISK WITH SCALE(0.05,0.05)*SHIFT(1,-2)
SET COLOR 3
DRAW DISK WITH SCALE(0.05,0.05)*SHIFT(2,-2)
SET COLOR 2
DRAW DISK WITH SCALE(0.05,0.05)*SHIFT(3,-2)
WAIT DELAY 1

FOR t=0 TO 2 STEP 0.05
   SET DRAW mode hidden       ! ちらつき防止
   SET COLOR 4
   DRAW DISK WITH SCALE(0.05,0.05)*SHIFT(1,-2+t)
   SET COLOR 3
   DRAW DISK WITH SCALE(0.05,0.05)*SHIFT(2,-2+t)
   SET COLOR 2
   DRAW DISK WITH SCALE(0.05,0.05)*SHIFT(3,-2+t)
   WAIT DELAY 0.1    
   SET DRAW mode explicit   ! ちらつき防止 
NEXT t

FOR t=0 TO 1 STEP 0.05
   SET DRAW mode hidden       ! ちらつき防止
   SET COLOR 4
   DRAW DISK WITH SCALE(0.05,0.05)*SHIFT(1,0+t)
   SET COLOR 3
   DRAW DISK WITH SCALE(0.05,0.05)*SHIFT(2,0+t)
   SET COLOR 2
   DRAW DISK WITH SCALE(0.05,0.05)*SHIFT(3-t,0)
   WAIT DELAY 0.1    
   SET DRAW mode explicit   ! ちらつき防止 
NEXT t

FOR t=0 TO 1 STEP 0.05
   SET DRAW mode hidden       ! ちらつき防止
   SET COLOR 4
   DRAW DISK WITH SCALE(0.05,0.05)*SHIFT(1,1+t)
   SET COLOR 3
   DRAW DISK WITH SCALE(0.05,0.05)*SHIFT(2-t,1)
   SET COLOR 2
   DRAW DISK WITH SCALE(0.05,0.05)*SHIFT(2-t,0)
   WAIT DELAY 0.1    
   SET DRAW mode explicit   ! ちらつき防止 
NEXT t

FOR t=0 TO 2 STEP 0.05
   SET DRAW mode hidden       ! ちらつき防止
   SET COLOR 4
   DRAW DISK WITH SCALE(0.05,0.05)*SHIFT(1-t,2)
   SET COLOR 3
   DRAW DISK WITH SCALE(0.05,0.05)*SHIFT(1-t,1)
   SET COLOR 2
   DRAW DISK WITH SCALE(0.05,0.05)*SHIFT(1-t,0)
   WAIT DELAY 0.1    
   SET DRAW mode explicit   ! ちらつき防止 
NEXT t

FOR t=0 TO 1 STEP 0.05
   SET DRAW mode hidden       ! ちらつき防止
   SET COLOR 4
   DRAW DISK WITH SCALE(0.05,0.05)*SHIFT(-1,2-t)
   SET COLOR 3
   DRAW DISK WITH SCALE(0.05,0.05)*SHIFT(-1-t,1)
   SET COLOR 2
   DRAW DISK WITH SCALE(0.05,0.05)*SHIFT(-1-t,0)
   WAIT DELAY 0.1    
   SET DRAW mode explicit   ! ちらつき防止 
NEXT t

FOR t=0 TO 1 STEP 0.05
   SET DRAW mode hidden       ! ちらつき防止
   SET COLOR 4
   DRAW DISK WITH SCALE(0.05,0.05)*SHIFT(-1,1-t)
   SET COLOR 3
   DRAW DISK WITH SCALE(0.05,0.05)*SHIFT(-2,1-t)
   SET COLOR 2
   DRAW DISK WITH SCALE(0.05,0.05)*SHIFT(-2-t,0)
   WAIT DELAY 0.1    
   SET DRAW mode explicit   ! ちらつき防止 
NEXT t

FOR t=0 TO 2 STEP 0.05
   SET DRAW mode hidden       ! ちらつき防止
   SET COLOR 4
   DRAW DISK WITH SCALE(0.05,0.05)*SHIFT(-1,0-t)
   SET COLOR 3
   DRAW DISK WITH SCALE(0.05,0.05)*SHIFT(-2,0-t)
   SET COLOR 2
   DRAW DISK WITH SCALE(0.05,0.05)*SHIFT(-3,0-t)
   WAIT DELAY 0.1    
   SET DRAW mode explicit   ! ちらつき防止 
NEXT t

END