examples/sample13.rb in sgl-0.4.0 vs examples/sample13.rb in sgl-1.0.0

@@ -1,116 +1,116 @@
-require "sgl"
-
-def setup
-  window -250, -250, 250, 250
-  background 100
-  $a = 0
-end
-
-def display
-  x = mouseX
-  y = mouseY
-
-  color 50, 50, 50
-  rect 190, -190, 200, -240
-  rect 230, -190, 240, -240
-  color 100, 0, 0
-  rect 200, -200, 230, -230
-
-  line x, y, x-5, y
-
-  color 0
-  circle 150, 150, 5
-  circle 0, -105, 4
-  circle -100, 0, 3
-  circle -150, 80, 2
-  line 150, 155, 150, 250
-  line 0, -108, 0, -250
-  line -100, -2, -100, -250
-  line -150, 81, -150, 250
-
-  if $a == 0
-    color 100, 0, 0
-    line x, y, 215, -200
-  else
-    color 100, 0, 0
-    line 150, 150, 215, -200
-  end
-
-  # 1の穴
-  if $a == 0 && 145 <= x && 155 >= x && 145 <= y && 155 >= y
-    $a = 1
-  end
-
-  if $a == 1
-    color 100, 0, 0
-    line x, y, 150, 150
-  elsif $a > 1
-    line 0, -105, 150, 150
-  end
-
-  # 2の穴
-  if $a == 1 && -5 <= x && 5 >= x && -110 <= y && -100 >= y
-    $a = 2
-  end
-
-  if $a == 2
-    color 100, 0, 0
-    line x, y, 0, -105
-  elsif $a > 2
-    line -100, 0, 0, -105
-  end
-
-  # 3の穴
-  if $a == 2 && -103 <= x && -98 >= x && -3 <= y && 2 >= y
-    $a = 3
-  end
-
-  if $a == 3
-    color 100, 0, 0
-    line x, y, -100, 0
-  elsif $a > 3
-    line -150, 80, -100, 0
-  end
-
-  # 4の穴
-  if $a == 3 && -152 <= x && -148 >= x && 78 <= y && 82 >= y
-    $a = 4
-  end
-
-  if $a == 4
-    color 100, 0, 0
-    line x, y, -150, 80
-  end
-
-  # ゴール地点
-  if $a == 4 && -250 <= x && -180 >= x
-    $a = 5
-  end
-
-  if $a == 5
-    background 70, 80, 100
-    color 100, 80, 80
-    circle -100, 0, 50, POLYGON
-    color 80, 80, 100
-    circle -100, 0, 30, POLYGON
-    color 100, 80, 80
-    rect 50, 50, 70, -50
-
-    beginObj(POLYGON)
-    vertex 70, -7
-    vertex 112, 35
-    vertex 138, 35
-    vertex 70, -33
-    endObj
-    beginObj(POLYGON)
-    vertex 103, 0
-    vertex 140, -50
-    vertex 115, -50
-    vertex 85, -9
-    endObj
-  end
-end
-
-mainloop
-
-# 大きい穴から始めないと通りません
+require "sgl"
+
+def setup
+  window -250, -250, 250, 250
+  background 100
+  $a = 0
+end
+
+def display
+  x = mouseX
+  y = mouseY
+
+  color 50, 50, 50
+  rect 190, -190, 200, -240
+  rect 230, -190, 240, -240
+  color 100, 0, 0
+  rect 200, -200, 230, -230
+
+  line x, y, x-5, y
+
+  color 0
+  circle 150, 150, 5
+  circle 0, -105, 4
+  circle -100, 0, 3
+  circle -150, 80, 2
+  line 150, 155, 150, 250
+  line 0, -108, 0, -250
+  line -100, -2, -100, -250
+  line -150, 81, -150, 250
+
+  if $a == 0
+    color 100, 0, 0
+    line x, y, 215, -200
+  else
+    color 100, 0, 0
+    line 150, 150, 215, -200
+  end
+
+  # 1の穴
+  if $a == 0 && 145 <= x && 155 >= x && 145 <= y && 155 >= y
+    $a = 1
+  end
+
+  if $a == 1
+    color 100, 0, 0
+    line x, y, 150, 150
+  elsif $a > 1
+    line 0, -105, 150, 150
+  end
+
+  # 2の穴
+  if $a == 1 && -5 <= x && 5 >= x && -110 <= y && -100 >= y
+    $a = 2
+  end
+
+  if $a == 2
+    color 100, 0, 0
+    line x, y, 0, -105
+  elsif $a > 2
+    line -100, 0, 0, -105
+  end
+
+  # 3の穴
+  if $a == 2 && -103 <= x && -98 >= x && -3 <= y && 2 >= y
+    $a = 3
+  end
+
+  if $a == 3
+    color 100, 0, 0
+    line x, y, -100, 0
+  elsif $a > 3
+    line -150, 80, -100, 0
+  end
+
+  # 4の穴
+  if $a == 3 && -152 <= x && -148 >= x && 78 <= y && 82 >= y
+    $a = 4
+  end
+
+  if $a == 4
+    color 100, 0, 0
+    line x, y, -150, 80
+  end
+
+  # ゴール地点
+  if $a == 4 && -250 <= x && -180 >= x
+    $a = 5
+  end
+
+  if $a == 5
+    background 70, 80, 100
+    color 100, 80, 80
+    circle -100, 0, 50, POLYGON
+    color 80, 80, 100
+    circle -100, 0, 30, POLYGON
+    color 100, 80, 80
+    rect 50, 50, 70, -50
+
+    beginObj(POLYGON)
+    vertex 70, -7
+    vertex 112, 35
+    vertex 138, 35
+    vertex 70, -33
+    endObj
+    beginObj(POLYGON)
+    vertex 103, 0
+    vertex 140, -50
+    vertex 115, -50
+    vertex 85, -9
+    endObj
+  end
+end
+
+mainloop
+
+# 大きい穴から始めないと通りません