sgl 0.4.0 → 1.0.0

data/lib/sgl/bass.rb

@@ -1,46 +1,46 @@
-# Copyright (C) 2004-2007 Kouichirou Eto, All rights reserved.
-# License: Ruby License
-
-require 'Win32API'
-require 'singleton'
-require 'sgl/bass-sample'
-require 'sgl/bass-api'
-
-module Bass
-  at_exit { BASS_Free.call }
-
-  class BassLib
-    include Singleton
-
-    def initialize
-     #ret = Bass::BASS_Init.call(-1, 44100, BASS_DEVICE_OGG, 0)
-      ret = Bass::BASS_Init.call(-1, 44100, 0, 0)
-      ver = Bass::BASS_GetVersion.call
-      ret = Bass::BASS_Start.call
-      @playing_channel = []
-    end
-
-    def add_playing_channel(ch)
-      @playing_channel << ch
-    end
-
-    def stop_all
-      @playing_channel.each {|ch|
-	ret = Bass::BASS_ChannelStop.call(ch)
-      }
-      @playing_channel = []
-    end
-  end
-
-#  class << Bass
-#    def init(a, b, c, d) BASS_Init.call(a, b, c, d) end
-#    def start() BASS_Start.call() end
-#    def errorGetCode() BASS_ErrorGetCode.call() end
-#    def getVersion() BASS_GetVersion.call() end
-#    def free() BASS_Free.call() end
-#    def sampleLoad(a, b, c, d, e, f) BASS_SampleLoad.call(a, b, c, d, e, f) end
-#    def samplePlay(a) BASS_SamplePlay.call(a) end
-#    def samplePlayEx(a, b, c, d, e, f) BASS_SamplePlayEx.call(a, b, c, d, e, f) end
-#  end
-  #at_exit { Bass.free; }
-end
+# Copyright (C) 2004-2007 Kouichirou Eto, All rights reserved.
+# License: Ruby License
+
+require 'Win32API'
+require 'singleton'
+require 'sgl/bass-sample'
+require 'sgl/bass-api'
+
+module Bass
+  at_exit { BASS_Free.call }
+
+  class BassLib
+    include Singleton
+
+    def initialize
+     #ret = Bass::BASS_Init.call(-1, 44100, BASS_DEVICE_OGG, 0)
+      ret = Bass::BASS_Init.call(-1, 44100, 0, 0)
+      ver = Bass::BASS_GetVersion.call
+      ret = Bass::BASS_Start.call
+      @playing_channel = []
+    end
+
+    def add_playing_channel(ch)
+      @playing_channel << ch
+    end
+
+    def stop_all
+      @playing_channel.each {|ch|
+	ret = Bass::BASS_ChannelStop.call(ch)
+      }
+      @playing_channel = []
+    end
+  end
+
+#  class << Bass
+#    def init(a, b, c, d) BASS_Init.call(a, b, c, d) end
+#    def start() BASS_Start.call() end
+#    def errorGetCode() BASS_ErrorGetCode.call() end
+#    def getVersion() BASS_GetVersion.call() end
+#    def free() BASS_Free.call() end
+#    def sampleLoad(a, b, c, d, e, f) BASS_SampleLoad.call(a, b, c, d, e, f) end
+#    def samplePlay(a) BASS_SamplePlay.call(a) end
+#    def samplePlayEx(a, b, c, d, e, f) BASS_SamplePlayEx.call(a, b, c, d, e, f) end
+#  end
+  #at_exit { Bass.free; }
+end

data/lib/sgl/cocoa-app.rb

@@ -1,43 +1,43 @@
-# Copyright (C) 2004-2007 Kouichirou Eto, All rights reserved.
-# License: Ruby License
-
-require "osx/cocoa"
-require "sgl/sgl-color"
-require "sgl/cocoa-event"
-require "sgl/cocoa-window"
-require "sgl/cocoa-draw"
-require "sgl/cocoa-color"
-require "sgl/cocoa-media"
-
-module SGL
-  class Application
-    def initialize
-      initialize_cocoa
-      initialize_window
-      initialize_color
-      initialize_event
-    end
-
-    def initialize_cocoa
-      OSX.ruby_thread_switcher_start(0.001, 0.01)
-      Thread.abort_on_exception = true
-
-      @app = OSX::NSApplication.sharedApplication
-      mainmenu = OSX::NSMenu.alloc.init
-      @app.setMainMenu(mainmenu)
-    end
-    private :initialize_cocoa
-
-    def run
-      OSX.NSApp.run
-      OSX::NSEvent.stopPeriodicEvents
-    end
-
-    def stop
-      close_window
-      OSX.NSApp.stop(nil)
-      OSX::NSEvent.startPeriodicEventsAfterDelay(0.01, :withPeriod, 0.01)
-    end
-  end
-end
-
+# Copyright (C) 2004-2007 Kouichirou Eto, All rights reserved.
+# License: Ruby License
+
+require "osx/cocoa"
+require "sgl/sgl-color"
+require "sgl/cocoa-event"
+require "sgl/cocoa-window"
+require "sgl/cocoa-draw"
+require "sgl/cocoa-color"
+require "sgl/cocoa-media"
+
+module SGL
+  class Application
+    def initialize
+      initialize_cocoa
+      initialize_window
+      initialize_color
+      initialize_event
+    end
+
+    def initialize_cocoa
+      OSX.ruby_thread_switcher_start(0.001, 0.01)
+      Thread.abort_on_exception = true
+
+      @app = OSX::NSApplication.sharedApplication
+      mainmenu = OSX::NSMenu.alloc.init
+      @app.setMainMenu(mainmenu)
+    end
+    private :initialize_cocoa
+
+    def run
+      OSX.NSApp.run
+      OSX::NSEvent.stopPeriodicEvents
+    end
+
+    def stop
+      close_window
+      OSX.NSApp.stop(nil)
+      OSX::NSEvent.startPeriodicEventsAfterDelay(0.01, :withPeriod, 0.01)
+    end
+  end
+end
+

data/lib/sgl/cocoa-color.rb

@@ -1,65 +1,65 @@
-# Copyright (C) 2004-2007 Kouichirou Eto, All rights reserved.
-# License: Ruby License
-
-module SGL
-  def background(*a)	$__a__.background(*a);	end
-  def backgroundHSV(*a)	$__a__.backgroundHSV(*a);	end
-  def color(*a)		$__a__.color(*a);	end
-  def colorHSV(*a)	$__a__.colorHSV(*a);	end
-
-  class Application
-    def initialize_color
-      @bg_color = @cur_color = nil
-      @rgb = ColorTranslatorRGB.new(100, 100, 100, 100)
-      @hsv = ColorTranslatorHSV.new(100, 100, 100, 100)
-    end
-    private :initialize_color
-    attr_reader :cur_color
-
-    def background(x, y=nil, z=nil, a=nil)
-      @bg_color = @rgb.norm(x,y,z,a)
-    end
-
-    def backgroundHSV(x, y=nil, z=nil, a=nil)
-      @bg_color = @hsv.norm(x,y,z,a)
-    end
-
-    def color(x, y=nil, z=nil, a=nil)
-      @cur_color = @rgb.norm(x,y,z,a)
-      set_cur_color
-    end
-
-    def colorHSV(x, y=nil, z=nil, a=nil)
-      @cur_color = @hsv.norm(x,y,z,a)
-      set_cur_color
-    end
-
-    # called from cocoa-media
-    # Since thie method called from NSFont, this should be public.
-    def make_cur_color
-      make_color(*@cur_color)
-    end
-
-    def get_cur_color_alpha
-      @cur_color[3]
-    end
-
-    # private
-    def set_cur_color
-      set_color(*@cur_color)
-    end
-
-    def set_cur_bg
-      set_color(*@bg_color)
-    end
-
-    def set_color(*a)
-      make_color(*a).set if @win
-    end
-
-    def make_color(r, g, b, a)
-      OSX::NSColor.colorWithDeviceRed(r, :green, g, :blue, b, :alpha, a)
-    end
-    private :set_cur_color, :set_cur_bg, :set_color, :make_color
-  end
-end
+# Copyright (C) 2004-2007 Kouichirou Eto, All rights reserved.
+# License: Ruby License
+
+module SGL
+  def background(*a)	$__a__.background(*a);	end
+  def backgroundHSV(*a)	$__a__.backgroundHSV(*a);	end
+  def color(*a)		$__a__.color(*a);	end
+  def colorHSV(*a)	$__a__.colorHSV(*a);	end
+
+  class Application
+    def initialize_color
+      @bg_color = @cur_color = nil
+      @rgb = ColorTranslatorRGB.new(100, 100, 100, 100)
+      @hsv = ColorTranslatorHSV.new(100, 100, 100, 100)
+    end
+    private :initialize_color
+    attr_reader :cur_color
+
+    def background(x, y=nil, z=nil, a=nil)
+      @bg_color = @rgb.norm(x,y,z,a)
+    end
+
+    def backgroundHSV(x, y=nil, z=nil, a=nil)
+      @bg_color = @hsv.norm(x,y,z,a)
+    end
+
+    def color(x, y=nil, z=nil, a=nil)
+      @cur_color = @rgb.norm(x,y,z,a)
+      set_cur_color
+    end
+
+    def colorHSV(x, y=nil, z=nil, a=nil)
+      @cur_color = @hsv.norm(x,y,z,a)
+      set_cur_color
+    end
+
+    # called from cocoa-media
+    # Since thie method called from NSFont, this should be public.
+    def make_cur_color
+      make_color(*@cur_color)
+    end
+
+    def get_cur_color_alpha
+      @cur_color[3]
+    end
+
+    # private
+    def set_cur_color
+      set_color(*@cur_color)
+    end
+
+    def set_cur_bg
+      set_color(*@bg_color)
+    end
+
+    def set_color(*a)
+      make_color(*a).set if @win
+    end
+
+    def make_color(r, g, b, a)
+      OSX::NSColor.colorWithDeviceRed(r, :green, g, :blue, b, :alpha, a)
+    end
+    private :set_cur_color, :set_cur_bg, :set_color, :make_color
+  end
+end

data/lib/sgl/cocoa-draw.rb

@@ -1,72 +1,72 @@
-# Copyright (C) 2004-2007 Kouichirou Eto, All rights reserved.
-# License: Ruby License
-
-module SGL
-  module FrameTranslator
-    def to_xywh(a,b,c,d)
-      [[a, c].min,  [b, d].min, (a - c).abs, (b - d).abs]
-    end
-    private :to_xywh
-  end
-
-  def point(*a)	$__a__.point(*a);	end
-  def lineWidth(*a)	$__a__.lineWidth(*a);	end
-  def line(*a)	$__a__.line(*a);	end
-  def rect(*a)	$__a__.rect(*a);	end
-  def circle(*a)	$__a__.circle(*a);	end
-  def rotateZ(*a)	$__a__.rotateZ(*a);	end
-  def translate(*a)	$__a__.translate(*a);	end
-  def scale(*a)	$__a__.scale(*a);	end
-  def reset(*a)	$__a__.reset(*a);	end
-
-  class Application
-    include FrameTranslator
-
-    def point(a,b)
-      line(a,b,a,b)
-    end
-
-    def lineWidth(w)
-      OSX::NSBezierPath.setDefaultLineWidth(w)
-    end
-
-    def line(a,b,c,d)
-      #OSX::NSBezierPath.strokeLine({:fromPoint=>OSX::NSPoint.new(a, b),
-      #				     :toPoint=>OSX::NSPoint.new(c, d)})
-      OSX::NSBezierPath.strokeLineFromPoint(OSX::NSPoint.new(a, b),
-					    :toPoint, OSX::NSPoint.new(c, d))
-    end
-
-    def rect(a,b,c,d)
-      rect = OSX::NSRect.new(*to_xywh(a, b, c, d))
-      OSX::NSBezierPath.bezierPathWithRect(rect).fill
-    end
-
-    def circle(x, y, r)
-      rect = OSX::NSRect.new(x - r, y - r, 2*r, 2*r)
-      OSX::NSBezierPath.bezierPathWithOvalInRect(rect).fill
-    end
-
-    def rotateZ(deg)
-      af = OSX::NSAffineTransform.transform
-      af.rotateByDegrees(deg)
-      af.concat
-    end
-
-    def translate(x, y)
-      af = OSX::NSAffineTransform.transform
-      af.translateXBy(x, :yBy, y)
-      af.concat
-    end
-
-    def scale(x, y=nil)
-      af = OSX::NSAffineTransform.transform
-      y ? af.scaleXBy(x, :yBy, y) : af.scaleBy(x)
-      af.concat
-    end
-
-    def reset
-      OSX::NSAffineTransform.transform.set
-    end
-  end
-end
+# Copyright (C) 2004-2007 Kouichirou Eto, All rights reserved.
+# License: Ruby License
+
+module SGL
+  module FrameTranslator
+    def to_xywh(a,b,c,d)
+      [[a, c].min,  [b, d].min, (a - c).abs, (b - d).abs]
+    end
+    private :to_xywh
+  end
+
+  def point(*a)	$__a__.point(*a);	end
+  def lineWidth(*a)	$__a__.lineWidth(*a);	end
+  def line(*a)	$__a__.line(*a);	end
+  def rect(*a)	$__a__.rect(*a);	end
+  def circle(*a)	$__a__.circle(*a);	end
+  def rotateZ(*a)	$__a__.rotateZ(*a);	end
+  def translate(*a)	$__a__.translate(*a);	end
+  def scale(*a)	$__a__.scale(*a);	end
+  def reset(*a)	$__a__.reset(*a);	end
+
+  class Application
+    include FrameTranslator
+
+    def point(a,b)
+      line(a,b,a,b)
+    end
+
+    def lineWidth(w)
+      OSX::NSBezierPath.setDefaultLineWidth(w)
+    end
+
+    def line(a,b,c,d)
+      #OSX::NSBezierPath.strokeLine({:fromPoint=>OSX::NSPoint.new(a, b),
+      #				     :toPoint=>OSX::NSPoint.new(c, d)})
+      OSX::NSBezierPath.strokeLineFromPoint(OSX::NSPoint.new(a, b),
+					    :toPoint, OSX::NSPoint.new(c, d))
+    end
+
+    def rect(a,b,c,d)
+      rect = OSX::NSRect.new(*to_xywh(a, b, c, d))
+      OSX::NSBezierPath.bezierPathWithRect(rect).fill
+    end
+
+    def circle(x, y, r)
+      rect = OSX::NSRect.new(x - r, y - r, 2*r, 2*r)
+      OSX::NSBezierPath.bezierPathWithOvalInRect(rect).fill
+    end
+
+    def rotateZ(deg)
+      af = OSX::NSAffineTransform.transform
+      af.rotateByDegrees(deg)
+      af.concat
+    end
+
+    def translate(x, y)
+      af = OSX::NSAffineTransform.transform
+      af.translateXBy(x, :yBy, y)
+      af.concat
+    end
+
+    def scale(x, y=nil)
+      af = OSX::NSAffineTransform.transform
+      y ? af.scaleXBy(x, :yBy, y) : af.scaleBy(x)
+      af.concat
+    end
+
+    def reset
+      OSX::NSAffineTransform.transform.set
+    end
+  end
+end