OPTION ANGLE DEGREES
PRINT
PRINT "＜ 合わせ鏡による光の反射 ＞"
PRINT "前方観察用潜望鏡です。"
PRINT "前方観察用潜望鏡に映る像は 上下反転も左右反転もしていません。"
PRINT "時計回りに９０度回転させてみたものも想像してみてください。"
PRINT

SET WINDOW -4.2,3.8,-4.2,3.8
DRAW GRID
PLOT LINES : 2,-3;2,-1
PLOT LINES : -4,1;-4,3
PLOT LINES : -2,-1;0,-3
PLOT LINES : -2,3;0,1
SET COLOR 4
DRAW DISK WITH SCALE(0.05,0.05)*SHIFT(-4,1)
SET COLOR 3
DRAW DISK WITH SCALE(0.05,0.05)*SHIFT(-4,2)
SET COLOR 2
DRAW DISK WITH SCALE(0.05,0.05)*SHIFT(-4,3)
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(-4+t,1)
   SET COLOR 3
   DRAW DISK WITH SCALE(0.05,0.05)*SHIFT(-4+t,2)
   SET COLOR 2
   DRAW DISK WITH SCALE(0.05,0.05)*SHIFT(-4+t,3)
   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(-2+t,1)
   SET COLOR 3
   DRAW DISK WITH SCALE(0.05,0.05)*SHIFT(-2+t,2)
   SET COLOR 2
   DRAW DISK WITH SCALE(0.05,0.05)*SHIFT(-2,3-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+t,1)
   SET COLOR 3
   DRAW DISK WITH SCALE(0.05,0.05)*SHIFT(-1,2-t)
   SET COLOR 2
   DRAW DISK WITH SCALE(0.05,0.05)*SHIFT(-2,2-t)
   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(0,1-t)
   SET COLOR 3
   DRAW DISK WITH SCALE(0.05,0.05)*SHIFT(-1,1-t)
   SET COLOR 2
   DRAW DISK WITH SCALE(0.05,0.05)*SHIFT(-2,1-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(0,-1-t)
   SET COLOR 3
   DRAW DISK WITH SCALE(0.05,0.05)*SHIFT(-1,-1-t)
   SET COLOR 2
   DRAW DISK WITH SCALE(0.05,0.05)*SHIFT(-2+t,-1)
   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(0,-2-t)
   SET COLOR 3
   DRAW DISK WITH SCALE(0.05,0.05)*SHIFT(-1+t,-2)
   SET COLOR 2
   DRAW DISK WITH SCALE(0.05,0.05)*SHIFT(-1+t,-1)
   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(0+t,-3)
   SET COLOR 3
   DRAW DISK WITH SCALE(0.05,0.05)*SHIFT(0+t,-2)
   SET COLOR 2
   DRAW DISK WITH SCALE(0.05,0.05)*SHIFT(0+t,-1)
   WAIT DELAY 0.1    
   SET DRAW mode explicit   ! ちらつき防止 
NEXT t

END