PRINT
PRINT "このアニメは観察者Ａの観察内容を表しています。"
PRINT "    黒丸 ＝ 観察者Ａ          桃色丸 ＝ 観察者Ｂ"
PRINT "    青丸 ＝ 観察者Ａが観察する光子"
PRINT "    赤丸 ＝ 観察者Ｂが観察する光子（ 私の主張 ）"
PRINT "    黄緑丸 ＝ 観察者Ｂが観察する光子（ 相対論の定説 ）"
PRINT "    これらの光子はいずれ鏡で反射されて観察者Ａまたは観察者Ｂの所へ返ってきます。"
PRINT
SET WINDOW -1,13,-1,13
FOR i=0 TO 12.5 STEP 0.01
   SET DRAW mode hidden
   CLEAR
   PLOT LINES:-1,0;13,0
   PLOT LINES:-1,10;13,10
   PLOT LINES:0,-1;0,13
   DRAW DISK WITH SCALE(0.2)
   IF i>0.3 THEN
      PLOT LINES:0.6*i,0;0.6*i,13
      DRAW CIRCLE WITH SCALE(i)
      SET COLOR 7
      DRAW DISK WITH SCALE(0.2)*SHIFT(0.6*i,0)
      SET COLOR 4
      DRAW DISK WITH SCALE(0.2)*SHIFT(0.6*i,i)
      SET COLOR 2
      DRAW DISK WITH SCALE(0.2)*SHIFT(0,i)
      SET COLOR 3
      DRAW DISK WITH SCALE(0.2)*SHIFT(0.6*i,0.8*i)
      SET COLOR 1
   END IF
   SET DRAW mode explicit
NEXT i
END