sgl 0.3.1 → 0.4.0

data/lib/sgl/cocoa-event.rb

@@ -0,0 +1,229 @@
+# Copyright (C) 2004-2007 Kouichirou Eto, All rights reserved.
+# License: Ruby License
+
+module SGL
+  # callback functions
+  def setup()		end
+  def onMouseDown(x,y)	end
+  def onMouseUp(x,y)	end
+  def onKeyDown(k)	end
+  def onKeyUp(k)	end
+  def display()		end
+
+  # mainloop
+  def mainloop
+    $__a__.set_setup { setup }
+    $__a__.set_mousedown {|x, y| onMouseDown(x, y) }
+    $__a__.set_mouseup   {|x, y| onMouseUp(x, y) }
+    $__a__.set_keydown   {|k| onKeyDown(k) }
+    $__a__.set_keyup     {|k| onKeyUp(k) }
+    $__a__.set_display { display }
+    $__a__.mainloop
+  end
+
+  # get status functions
+  def mouseX()	$__a__.mouseX;	end
+  def mouseY()	$__a__.mouseY;	end
+  def mouseDown() $__a__.mouseDown;	end
+  def keynum()	$__a__.keynum;	end
+
+  class Application
+    def initialize_event
+      # block setting
+      @setup_done = nil
+      @display_drawing = nil
+      @display_overlay_drawing = nil
+      @block = {}
+      @delay_time = 1.0/60
+      @runtime = nil
+
+      # status setting
+      @mouseX, @mouseY = 0, 0
+      @mouseDown = 0
+      @keynum = 0
+    end
+    attr_accessor :runtime # for test
+
+    # get status
+    attr_reader :mouseX, :mouseY
+    attr_reader :mouseDown
+    attr_reader :keynum
+
+    # setup
+    def set_setup(&b)
+      return unless block_given?
+      @block[:setup] = Proc.new
+    end
+
+    def do_setup
+      setup_pre
+      @block[:setup].call if @block[:setup]
+      setup_post
+    end
+
+    def setup_pre
+      # do nothing
+    end
+
+    def setup_post
+      @setup_done = true
+    end
+    private :setup_pre, :setup_post
+
+    # display
+    def display_all(rect) # callback
+      return if @win.nil?
+      return if @setup_done.nil?
+      return if @display_drawing
+      @display_drawing = true
+      display_bg(rect)
+      display_pre
+      do_display
+      display_post
+      @display_drawing = nil
+    end
+
+    def set_display(&b)
+      return unless block_given?
+      @block[:display] = Proc.new
+    end
+
+    def set_display_overlay(&b)
+      return unless block_given?
+      @block[:display_overlay] = Proc.new
+    end
+
+    def do_display
+      return if @win.nil?
+      display_pre
+      @block[:display].call if @block[:display]
+      display_post
+    end
+
+    def display_pre
+      return if @win.nil?
+      pos = @win.mouseLocationOutsideOfEventStream
+      @mouseX, @mouseY = pos.x.to_i, pos.y.to_i
+      set_cur_color	# set back current color
+    end
+
+    def display_bg(rect)
+      set_cur_bg
+      OSX::NSRectFill(rect)
+    end
+
+    def display_clear_bg(rect)
+      set_color(0, 0, 0, 0)	# full transparent
+      OSX::NSRectFill(rect)
+    end
+
+    def display_post
+      # do nothing
+    end
+    private :display_pre, :display_bg, :display_clear_bg, :display_post
+
+    # sub view
+    def display_mov(rect)
+      display_clear_bg(rect)
+      set_cur_color	# set back current color
+    end
+
+    def display_overlay_all(rect)
+      return if @win.nil?
+      return if @setup_done.nil?
+      return if @display_overlay_drawing
+      @display_overlay_drawing = true
+      display_clear_bg(rect)
+      set_cur_color	# set back current color
+      @block[:display_overlay].call if @block[:display_overlay]
+      @display_overlay_drawing = nil
+    end
+
+    # mainloop
+    def mainloop
+      starttime = Time.now
+
+      do_setup
+
+      @thread = Thread.start {
+	loop {
+	  need_display
+	  delay
+
+	  if check_runtime_finished(starttime)
+	    stop
+	    break
+	  end
+	}
+      }
+
+      run
+    end
+
+    def check_runtime_finished(starttime)
+      diff = Time.now - starttime
+      return (@runtime && @runtime < diff)
+    end
+
+    def need_display
+      return if @app.nil?
+      @bgview.setNeedsDisplay(true) if @bgview
+      @oview.setNeedsDisplay(true) if @oview
+    end
+
+    def delay
+      sleep @delay_time
+    end
+    private :need_display, :delay
+
+    # mouse events
+    def set_mousedown(&b)
+      return unless block_given?
+      @block[:mousedown] = Proc.new
+    end
+
+    def do_mousedown
+      @mouseDown = 1
+      @block[:mousedown].call(@mouseX, @mouseY) if @block[:mousedown]
+    end
+
+    def set_mouseup(&b)
+      return unless block_given?
+      @block[:mouseup] = Proc.new
+    end
+
+    def do_mouseup
+      @mouseDown = 0
+      @block[:mouseup].call(@mouseX, @mouseY) if @block[:mouseup]
+    end
+
+    # key events
+    def set_keydown(&b)
+      return unless block_given?
+      @block[:keydown] = Proc.new
+    end
+
+    def do_keydown(e)
+      calc_keynum(e)
+      @block[:keydown].call(@keynum) if @block[:keydown]
+    end
+
+    def set_keyup(&b)
+      return unless block_given?
+      @block[:keyup] = Proc.new
+    end
+
+    def do_keyup(e)
+      calc_keynum(e)
+      @keynum = 0
+      @block[:keyup].call(@keynum) if @block[:keyup]
+    end
+
+    def calc_keynum(e)
+      #input = event.characters
+      input = e.characters
+      @keynum = input.to_s[0]
+    end
+    private :calc_keynum
+  end
+end

data/lib/sgl/cocoa-media.rb

@@ -0,0 +1,144 @@
+# Copyright (C) 2004-2007 Kouichirou Eto, All rights reserved.
+# License: Ruby License
+
+require "kconv"
+
+module SGL
+  def movie(*a)	$__a__.movie(*a);	end
+  def image(*a)	$__a__.image(*a);	end
+  def font(*a)	$__a__.font(*a);	end
+  def sound(*a)	$__a__.sound(*a);	end
+
+  class Application
+    def movie(u)
+      if /\Ahttp:\/\// =~ u || /\Artsp:\/\// =~ u
+	url = OSX::NSURL.URLWithString_(u)
+      else
+	url = OSX::NSURL.fileURLWithPath_(u)
+      end
+      mov = OSX::NSMovie.alloc.initWithURL(url, :byReference, true)
+      # Place the movie on the out of screen.
+      obj = NSMovieView.alloc.initWithFrame([-100.0, -100.0, 10.0, 10.0])
+      obj.setApp(self)
+      obj.setMovie(mov)
+      obj.showController(false, :adjustingSize, false)
+      view = @options[:movie] ? @movview : @bgview
+      # This "p" is necessary to show the movie.  I don't know why.
+      p [@options[:movie], view]
+      # p view			# This does not work.
+      # dummy = view.inspect	# This does not work also.
+      view.addSubview(obj)
+      obj
+    end
+
+    def image(file)
+      img = NSImage.alloc.initWithContentsOfFile(file)
+      img.setApp(self)
+      img
+    end
+
+    def font(*a)
+      NSFont.new(self, *a)
+    end
+
+    def sound(file)
+      url = OSX::NSURL.fileURLWithPath_(file)
+      snd = NSSound.alloc.initWithContentsOfURL(url, :byReference, true)
+      snd
+    end
+  end
+
+  class NSMovieView < OSX::NSMovieView
+    include FrameTranslator
+
+    def setApp(app)
+      @app = app
+      @playing = false
+    end
+
+    def rect(a,b,c,d)
+      frame(*to_xywh(a, b, c, d))
+     #frame(*@app.to_xywh(a, b, c, d))
+    end
+
+    def frame(a,b,c,d)
+      setFrame([a, b, c, d])
+    end
+
+    def play
+      return if @playing
+      @playing = true
+      start_
+    end
+
+    def stop
+      return if ! @playing
+      @playing = false
+      stop_
+    end
+
+    def goBegin()	gotoBeginning_;	end
+    def goEnd()	gotoEnd_;	end
+    def forward()	stepForward_;	end
+    def back()	stepBack_;	end
+    def loop=(a)	setLoopMode(a);	end
+    def rate=(r)	setRate(r/100.0);	end
+    def volume=(v)	setVolume(v/100.0);	end
+  end
+
+  class NSImage < OSX::NSImage
+    include FrameTranslator
+
+    def setApp(app)	@app = app;	end
+
+    def rect(a,b,c,d)
+      frame(*to_xywh(a, b, c, d))
+    end
+
+    def frame(x,y,w,h)
+      drawInRect([x,y,w,h],
+		 :fromRect, [0,0,size.width,size.height],
+		 :operation, OSX::NSCompositeSourceOver,
+		 :fraction, @app.get_cur_color_alpha)
+    end
+  end
+
+  class NSFont
+    def initialize(w, n="Helvetica", s=0.0)
+      @app, @name, @size = w, n, s.abs
+    end
+    attr_accessor :name
+    attr_reader :size
+
+    def size=(s)
+      @size = s.abs
+    end
+
+    def text(x, y, str)
+      return unless str.is_a? String
+      str = NKF.nkf("-m0 -s", str)
+      str = OSX::NSMutableAttributedString.alloc.initWithString(str)
+      str.addAttribute(OSX::NSFontAttributeName(),
+		       :value, OSX::NSFont.fontWithName(@name, :size, @size),
+		       :range, [0,str.length])
+      color = @app.make_cur_color
+      str.addAttribute(OSX::NSForegroundColorAttributeName(),
+		       :value, color,
+		       :range, [0,str.length])
+      str.drawAtPoint([x, y])
+    end
+
+    def show_fixed()	show(OSX::NSFixedPitchFontMask);	end
+    def show_all()	show;	end
+
+    private
+    def show(mask=0)
+      fmgr = OSX::NSFontManager.sharedFontManager
+      fonts = fmgr.availableFontNamesWithTraits(mask).to_a.map{|i| i.to_s }.sort
+      puts fonts
+    end
+  end
+
+  class NSSound < OSX::NSSound
+  end
+end