sgl 0.3.1 → 0.4.0

data/lib/sgl/bass-api.rb

@@ -0,0 +1,202 @@
+# Copyright (C) 2004-2007 Kouichirou Eto, All rights reserved.
+# License: Ruby License
+
+module Bass
+  # ============================================================
+  # Define result codes.
+  BASS_OK		= 0	# all is OK
+  BASS_ERROR_MEM	= 1	# memory error
+  BASS_ERROR_FILEOPEN	= 2	# can't open the file
+  BASS_ERROR_DRIVER	= 3	# can't find a free/valid driver
+  BASS_ERROR_BUFLOST	= 4	# the sample buffer was lost - please report this!
+  BASS_ERROR_HANDLE	= 5	# invalid handle
+  BASS_ERROR_FORMAT	= 6	# unsupported format
+  BASS_ERROR_POSITION	= 7	# invalid playback position
+  BASS_ERROR_INIT	= 8	# BASS_Init has not been successfully called
+  BASS_ERROR_START	= 9	# BASS_Start has not been successfully called
+  BASS_ERROR_INITCD	= 10	# can't initialize CD
+  BASS_ERROR_CDINIT	= 11	# BASS_CDInit has not been successfully called
+  BASS_ERROR_NOCD	= 12	# no CD in drive
+  BASS_ERROR_CDTRACK	= 13	# can't play the selected CD track
+  BASS_ERROR_ALREADY	= 14	# already initialized
+  BASS_ERROR_CDVOL	= 15	# CD has no volume control
+  BASS_ERROR_NOPAUSE	= 16	# not paused
+  BASS_ERROR_NOTAUDIO	= 17	# not an audio track
+  BASS_ERROR_NOCHAN	= 18	# can't get a free channel
+  BASS_ERROR_ILLTYPE	= 19	# an illegal type was specified
+  BASS_ERROR_ILLPARAM	= 20	# an illegal parameter was specified
+  BASS_ERROR_NO3D	= 21	# no 3D support
+  BASS_ERROR_NOEAX	= 22	# no EAX support
+  BASS_ERROR_DEVICE	= 23	# illegal device number
+  BASS_ERROR_NOPLAY	= 24	# not playing
+  BASS_ERROR_FREQ	= 25	# illegal sample rate
+  BASS_ERROR_NOA3D	= 26	# A3D.DLL is not installed
+  BASS_ERROR_NOTFILE	= 27	# the stream is not a file stream (WAV/MP3/MP2/MP1/OGG)
+  BASS_ERROR_NOHW	= 29	# no hardware voices available
+  BASS_ERROR_NOSYNC	= 30	# synchronizers have been disabled
+  BASS_ERROR_EMPTY	= 31	# the MOD music has no sequence data
+  BASS_ERROR_NONET	= 32	# no internet connection could be opened
+  BASS_ERROR_CREATE	= 33	# couldn't create the file
+  BASS_ERROR_NOFX	= 34	# effects are not enabled
+  BASS_ERROR_PLAYING	= 35	# the channel is playing
+  BASS_ERROR_NOOGG	= 36	# OGG.DLL/VORBIS.DLL could not be loaded
+  BASS_ERROR_UNKNOWN	= -1	# some other mystery error
+
+  # Device setup flags
+  BASS_DEVICE_8BITS	= 1	# use 8 bit resolution, else 16 bit
+  BASS_DEVICE_MONO	= 2	# use mono, else stereo
+  BASS_DEVICE_3D	= 4	# enable 3D functionality
+
+  # If the BASS_DEVICE_3D flag is not specified when initilizing BASS,
+  # then the 3D flags (BASS_SAMPLE_3D and BASS_MUSIC_3D) are ignored when
+  # loading/creating a sample/stream/music.
+  BASS_DEVICE_A3D	= 8	# enable A3D functionality
+  BASS_DEVICE_NOSYNC	= 16	# disable synchronizers
+  BASS_DEVICE_LEAVEVOL	= 32	# leave the volume as it is
+  BASS_DEVICE_OGG	= 64	# enable OGG support (requires OGG.DLL & VORBIS.DLL)
+
+  # DirectSound interfaces (for use with BASS_GetDSoundObject)
+  BASS_OBJECT_DS	= 1	# IDirectSound
+  BASS_OBJECT_DS3DL	= 2	# IDirectSound3DListener
+
+  # Music flags
+  BASS_MUSIC_RAMP	= 1	# normal ramping
+  BASS_MUSIC_RAMPS	= 2	# sensitive ramping
+  # Ramping doesn't take a lot of extra processing and improves '
+  # the sound quality by removing 'clicks'. Sensitive ramping will
+  # leave sharp attacked samples, unlike normal ramping.
+  BASS_MUSIC_LOOP	= 4	# loop music
+  BASS_MUSIC_FT2MOD	= 16	# play .MOD as FastTracker 2 does
+  BASS_MUSIC_PT1MOD	= 32	# play .MOD as ProTracker 1 does
+  BASS_MUSIC_MONO	= 64	# force mono mixing (less CPU usage)
+  BASS_MUSIC_3D		= 128	# enable 3D functionality
+  BASS_MUSIC_POSRESET	= 256	# stop all notes when moving position
+  BASS_MUSIC_SURROUND	= 512	# surround sound
+  BASS_MUSIC_SURROUND2	= 1024	# surround sound (mode 2)
+  BASS_MUSIC_STOPBACK	= 2048	# stop the music on a backwards jump effect
+  BASS_MUSIC_FX		= 4096	# enable DX8 effects
+  BASS_MUSIC_CALCLEN	= 8192	# calculate playback length
+
+  BASS_SAMPLE_8BITS	= 1	# 8 bit, else 16 bit
+  BASS_SAMPLE_MONO	= 2	# mono, else stereo
+  BASS_SAMPLE_LOOP	= 4	# looped
+  BASS_SAMPLE_3D	= 8	# 3D functionality enabled
+  BASS_SAMPLE_SOFTWARE	= 16	# it's NOT using hardware mixing'
+  BASS_SAMPLE_MUTEMAX	= 32	# muted at max distance (3D only)
+  BASS_SAMPLE_VAM	= 64	# uses the DX7 voice allocation & management
+  BASS_SAMPLE_FX	= 128	# the DX8 effects are enabled
+  BASS_SAMPLE_OVER_VOL	= 0x10000	# override lowest volume
+  BASS_SAMPLE_OVER_POS	= 0x20000	# override longest playing
+  BASS_SAMPLE_OVER_DIST	= 0x30000	# override furthest from listener (3D only)
+
+  BASS_MP3_HALFRATE	= 0x10000	# reduced quality MP3/MP2/MP1 (half sample rate)
+  BASS_MP3_SETPOS	= 0x20000	# enable seeking on the MP3/MP2/MP1/OGG
+
+  BASS_STREAM_AUTOFREE	= 0x40000	# automatically free the stream when it stop/ends
+  BASS_STREAM_RESTRATE	= 0x80000	# restrict the download rate of internet file streams
+  BASS_STREAM_BLOCK	= 0x100000	# download/play internet file stream (MPx/OGG) in small blocks
+
+  BASS_CDID_IDENTITY	= 0
+  BASS_CDID_UPC		= 1
+
+  # ============================================================
+  # Load API.
+
+  def api(func, input, output)
+    return Win32API.new('bass', func, input, output)    
+  end
+  module_function :api
+
+  BASS_GetVersion	= api('BASS_GetVersion', 'V', 'L')
+  BASS_GetDeviceDescription	= api('BASS_GetDeviceDescription', 'IP', 'I')
+  BASS_SetBufferLength	= api('BASS_SetBufferLength', 'L', 'V')
+  BASS_SetGlobalVolumes	= api('BASS_SetGlobalVolumes', 'III', 'V')
+  BASS_GetGlobalVolumes	= api('BASS_GetGlobalVolumes', 'PPP', 'V')
+  BASS_SetLogCurves	= api('BASS_SetLogCurves', 'II', 'V')
+  BASS_Set3DAlgorithm	= api('BASS_Set3DAlgorithm', 'L', 'V')
+  BASS_ErrorGetCode	= api('BASS_ErrorGetCode', 'V', 'I')
+  BASS_Init		= api('BASS_Init', 'ILLP', 'I')
+  BASS_Free		= api('BASS_Free', 'V', 'V')
+  BASS_GetDSoundObject	= api('BASS_GetDSoundObject', 'L', 'P')
+  BASS_GetInfo		= api('BASS_GetInfo', 'P', 'V')
+  BASS_GetCPU		= api('BASS_GetCPU', 'V', 'L')
+  BASS_Start		= api('BASS_Start', 'V', 'I')
+  BASS_Stop		= api('BASS_Stop', 'V', 'I')
+  BASS_Pause		= api('BASS_Pause', 'V', 'I')
+  BASS_SetVolume	= api('BASS_SetVolume', 'L', 'I')
+  BASS_GetVolume	= api('BASS_GetVolume', 'V', 'I')
+  BASS_Set3DFactors	= api('BASS_Set3DFactors', 'LLL', 'I')
+  BASS_Get3DFactors	= api('BASS_Get3DFactors', 'PPP', 'I')
+  BASS_Set3DPosition	= api('BASS_Set3DPosition', 'PPPP', 'I')
+  BASS_Get3DPosition	= api('BASS_Get3DPosition', 'PPPP', 'I')
+  BASS_Apply3D	= api('BASS_Apply3D', 'V', 'I')
+  BASS_SetEAXParameters	= api('BASS_SetEAXParameters', 'ILLL', 'I')
+  BASS_GetEAXParameters	= api('BASS_GetEAXParameters', 'PPPP', 'I')
+#BASS_SetA3DResManager	= api('BASS_SetA3DResManager', 'L', 'I')
+#BASS_GetA3DResManager	= api('BASS_GetA3DResManager', 'V', 'L')
+#BASS_SetA3DHFAbsorbtion	= api('BASS_SetA3DHFAbsorbtion', 'L', 'I')
+#BASS_GetA3DHFAbsorbtion	= api('BASS_GetA3DHFAbsorbtion', 'P', 'I')
+  BASS_MusicLoad	= api('BASS_MusicLoad', 'IPLLL', 'L')
+  BASS_MusicFree	= api('BASS_MusicFree', 'P', 'V')
+  BASS_MusicGetName	= api('BASS_MusicGetName', 'P', 'P')
+  BASS_MusicGetLength	= api('BASS_MusicGetLength', 'PI', 'L')
+  BASS_MusicPreBuf	= api('BASS_MusicPreBuf', 'P', 'I')
+  BASS_MusicPlay	= api('BASS_MusicPlay', 'P', 'I')
+  BASS_MusicPlayEx	= api('BASS_MusicPlayEx', 'PLII', 'I')
+  BASS_MusicSetAmplify	= api('BASS_MusicSetAmplify', 'PL', 'I')
+  BASS_MusicSetPanSep	= api('BASS_MusicSetPanSep', 'PL', 'I')
+  BASS_MusicSetPositionScaler	= api('BASS_MusicSetPositionScaler', 'PL', 'I')
+  BASS_SampleLoad	= api('BASS_SampleLoad', 'IPLLLL', 'L')
+  BASS_SampleCreate	= api('BASS_SampleCreate', 'LLLL', 'L')
+  BASS_SampleCreateDone	= api('BASS_SampleCreateDone', 'V', 'P')
+  BASS_SampleFree	= api('BASS_SampleFree', 'P', 'V')
+  BASS_SampleGetInfo	= api('BASS_SampleGetInfo', 'PP', 'I')
+  BASS_SampleSetInfo	= api('BASS_SampleSetInfo', 'PP', 'I')
+  BASS_SamplePlay	= api('BASS_SamplePlay', 'L', 'L')
+  BASS_SamplePlayEx	= api('BASS_SamplePlayEx', 'PLIIII', 'L')
+  BASS_SamplePlay3D	= api('BASS_SamplePlay3D', 'PPPP', 'P')
+  BASS_SamplePlay3DEx	= api('BASS_SamplePlay3DEx', 'PPPPLIII', 'P')
+  BASS_SampleStop	= api('BASS_SampleStop', 'P', 'I')
+  BASS_StreamCreate	= api('BASS_StreamCreate', 'LLPL', 'P')
+  BASS_StreamCreateFile	= api('BASS_StreamCreateFile', 'IPLLL', 'P')
+  BASS_StreamCreateURL	= api('BASS_StreamCreateURL', 'PLP', 'P')
+  BASS_StreamFree	= api('BASS_StreamFree', 'P', 'V')
+  BASS_StreamGetLength	= api('BASS_StreamGetLength', 'P', 'L')
+  BASS_StreamPreBuf	= api('BASS_StreamPreBuf', 'P', 'I')
+  BASS_StreamPlay	= api('BASS_StreamPlay', 'PIL', 'I')
+  BASS_StreamGetFilePosition	= api('BASS_StreamGetFilePosition', 'PL', 'L')
+  BASS_CDInit		= api('BASS_CDInit', 'P', 'I')
+  BASS_CDFree		= api('BASS_CDFree', 'V', 'V')
+  BASS_CDInDrive	= api('BASS_CDInDrive', 'V', 'I')
+  BASS_CDGetID		= api('BASS_CDGetID', 'L', 'P')
+  BASS_CDGetTracks	= api('BASS_CDGetTracks', 'V', 'L')
+  BASS_CDPlay		= api('BASS_CDPlay', 'LII', 'I')
+  BASS_CDGetTrackLength	= api('BASS_CDGetTrackLength', 'L', 'L')
+  BASS_ChannelIsActive	= api('BASS_ChannelIsActive', 'P', 'I')
+  BASS_ChannelGetFlags	= api('BASS_ChannelGetFlags', 'L', 'L')
+  BASS_ChannelStop	= api('BASS_ChannelStop', 'L', 'I')
+  BASS_ChannelPause	= api('BASS_ChannelPause', 'L', 'I')
+  BASS_ChannelResume	= api('BASS_ChannelResume', 'L', 'I')
+  BASS_ChannelSetAttributes	= api('BASS_ChannelSetAttributes', 'LIII', 'I')
+  BASS_ChannelGetAttributes	= api('BASS_ChannelGetAttributes', 'LPPP', 'I')
+  BASS_ChannelSet3DAttributes	= api('BASS_ChannelSet3DAttributes', 'LILLIII', 'I')
+  BASS_ChannelGet3DAttributes	= api('BASS_ChannelGet3DAttributes', 'LPPPPPP', 'I')
+  BASS_ChannelSet3DPosition	= api('BASS_ChannelSet3DPosition', 'LPPP', 'I')
+  BASS_ChannelGet3DPosition	= api('BASS_ChannelGet3DPosition', 'LPPP', 'I')
+  BASS_ChannelSetPosition	= api('BASS_ChannelSetPosition', 'LL', 'I')
+  BASS_ChannelGetPosition	= api('BASS_ChannelGetPosition', 'L', 'L')
+  BASS_ChannelGetLevel	= api('BASS_ChannelGetLevel', 'L', 'L')
+  BASS_ChannelGetData	= api('BASS_ChannelGetData', 'LPL', 'L')
+  BASS_ChannelSetSync	= api('BASS_ChannelSetSync', 'LLLPL', 'P')
+  BASS_ChannelRemoveSync	= api('BASS_ChannelRemoveSync', 'LP', 'I')
+  BASS_ChannelSetDSP	= api('BASS_ChannelSetDSP', 'LPL', 'P')
+  BASS_ChannelRemoveDSP	= api('BASS_ChannelRemoveDSP', 'LP', 'I')
+  BASS_ChannelSetFX	= api('BASS_ChannelSetFX', 'LL', 'P')
+  BASS_ChannelRemoveFX	= api('BASS_ChannelRemoveFX', 'LP', 'I')
+  BASS_ChannelSetEAXMix	= api('BASS_ChannelSetEAXMix', 'LL', 'I')
+  BASS_ChannelGetEAXMix	= api('BASS_ChannelGetEAXMix', 'LP', 'I')
+  BASS_ChannelSetLink	= api('BASS_ChannelSetLink', 'LL', 'I')
+  BASS_ChannelRemoveLink	= api('BASS_ChannelRemoveLink', 'LL', 'I')
+  BASS_FXSetParameters	= api('BASS_FXSetParameters', 'PP', 'I')
+  BASS_FXGetParameters	= api('BASS_FXGetParameters', 'PP', 'I')
+end

data/lib/sgl/bass-sample.rb

@@ -0,0 +1,106 @@
+# Copyright (C) 2004-2007 Kouichirou Eto, All rights reserved.
+# License: Ruby License
+
+require "Win32API"
+require "singleton"
+
+module Bass
+  class Sample
+    def initialize(file)
+      @base = 60
+      @bass = Bass::BassLib.instance
+      @hsample = SampleLoader.instance.get(file)
+      get_sample_info
+    end
+
+    attr_accessor :base
+
+    def play(note = 60, volume = -1, pan = -101)
+      sfreq = @freq * mtof(note) / mtof(@base)
+      playEx(0, sfreq, volume, pan)
+    end
+
+    private
+
+    # Get information of the sample.
+    #
+    # typedef struct {
+    #    DWORD freq;
+    #    DWORD volume;
+    #    int pan;
+    #    DWORD flags;
+    #    DWORD length;
+    #    DWORD max;
+    #    DWORD mode3d;
+    #    float mindist;
+    #    float maxdist;
+    #    DWORD iangle;
+    #    DWORD oangle;
+    #    DWORD outvol;
+    #    DWORD vam;
+    #    DWORD priority;
+    # } BASS_SAMPLE; 
+    def get_sample_info
+      info = ' ' * 1024 
+      BASS_SampleGetInfo.call(@hsample, info)
+      @freq, @volume, @pan, @flags, @length, @max, @mode3d, @mindist, @maxdist,
+      @iangle, @oangle, @outvol, @vam, @priority = info.unpack("SSiSSSSffSSSSS")
+    end
+
+    # �O������J
+    # freq The sample rate. 100(min)-100000(max), -1 = use sample's default. 
+    # volume The volume... 0(silent)-100(max), -1 = use sample's default. 
+    # pan The panning position. -100(left)-100(right), -101 = use sample's default. 
+    # loop TRUE = Loop the sample. -1 = use sample's default. 
+    def playEx(start = 0, freq = -1, volume = -1, pan = -101, loop = -1)#:nodoc:
+      # We have to check the paramterers for SamplePlayEx.
+      freq = freq.to_i
+      freq = 100 if freq < 100 && freq != -1
+      freq = 100000 if 100000 < freq
+      volume = volume.to_i
+      volume = 0 if volume < -1
+      volume = 100 if 100 < volume
+      pan = pan.to_i
+      pan = -100 if pan < -101
+      pan =  100 if 100 < pan
+      ch = BASS_SamplePlayEx.call(@hsample, start, freq, volume, pan, loop)
+      @bass.add_playing_channel(ch)
+      return ch
+    end
+
+    # midi note to frequency
+    def mtof(note)
+      return mtof(0) if note < 0
+      return mtof(127) if 127 < note
+      return 8.17579891564 * Math.exp(0.0577622650 * note)
+    end
+
+    # frequency to midi note
+    def ftom(f)
+      return f > 0 ? 17.3123405046 * Math.log(0.12231220585 * f) : -1500
+    end
+  end
+
+  # private internal Class
+  class SampleLoader #:nodoc:
+    include Singleton
+
+    MAX_SIMULTANEOUS_PLAYBACKS = 1000
+
+    def initialize
+      @samples = {}
+    end
+
+    def load(f)
+      @samples[f] = load_file(f) if @samples[f].nil?
+      return @samples[f]
+    end
+
+    alias get load
+
+    def load_file(file)
+      return BASS_SampleLoad.call(0, file, 0, 0,
+				  MAX_SIMULTANEOUS_PLAYBACKS, 0)
+    end
+  end
+end

data/lib/sgl/bass.rb

@@ -0,0 +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

data/lib/sgl/cocoa-app.rb

@@ -0,0 +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
+

data/lib/sgl/cocoa-color.rb

@@ -0,0 +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

data/lib/sgl/cocoa-draw.rb

@@ -0,0 +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