examples/cocoa7-movie.rb in sgl-0.4.0 vs examples/cocoa7-movie.rb in sgl-1.0.0

@@ -1,40 +1,40 @@
-#!/usr/bin/env ruby
-# Copyright (C) 2004-2007 Kouichirou Eto, All rights reserved.
-
-require "sgl/cocoa"
-
-def setup
-  $windowShadow = 0
-  window 700, 700
-  backgroundHSV 66, 100, 20
-  $movie = movie("/Applications/iDVD 3/Tutorial/Media/Background Movie.mov")
-  $movie.loop = 1
-end
-
-def onMouseDown(x, y)
-  if 100 < x && x < 120 && 100 < y && y < 120
-    #p x
-    $movie.play
-  end
-
-  if 150 < x && x < 170 && 100 < y && y < 120
-    $movie.stop
-  end
-end
-
-def display
-  x, y = mouseX, mouseY
-  backgroundHSV 66, 100, 20, y/2
-
-  $movie.rect 100, 200, 500, 500
-  $movie.rate = x-350
-  $movie.volume = y/7
-
-  colorHSV 0, 100, 100
-  rect 100, 100, 120, 120
-
-  colorHSV 33, 100, 100
-  rect 150, 100, 170, 120
-end
-
-mainloop
+#!/usr/bin/env ruby
+# Copyright (C) 2004-2007 Kouichirou Eto, All rights reserved.
+
+require "sgl/cocoa"
+
+def setup
+  $windowShadow = 0
+  window 700, 700
+  backgroundHSV 66, 100, 20
+  $movie = movie("/Applications/iDVD 3/Tutorial/Media/Background Movie.mov")
+  $movie.loop = 1
+end
+
+def onMouseDown(x, y)
+  if 100 < x && x < 120 && 100 < y && y < 120
+    #p x
+    $movie.play
+  end
+
+  if 150 < x && x < 170 && 100 < y && y < 120
+    $movie.stop
+  end
+end
+
+def display
+  x, y = mouseX, mouseY
+  backgroundHSV 66, 100, 20, y/2
+
+  $movie.rect 100, 200, 500, 500
+  $movie.rate = x-350
+  $movie.volume = y/7
+
+  colorHSV 0, 100, 100
+  rect 100, 100, 120, 120
+
+  colorHSV 33, 100, 100
+  rect 150, 100, 170, 120
+end
+
+mainloop