sgl 0.3.1 → 0.4.0

data/lib/sgl/sgl-button.rb

@@ -0,0 +1,135 @@
+# Copyright (C) 2004-2007 Kouichirou Eto, All rights reserved.
+# License: Ruby License
+
+$LOAD_PATH.unshift("..") if !$LOAD_PATH.include?("..")
+require "sgl/opengl"
+require "sgl/sgl-spring"
+
+class Button
+  def initialize(x, y)
+    @dx, @dy = x, y
+    @x, @y = x, y
+    @w, @h = 8, 8
+  end
+
+  attr_accessor :x, :y
+
+  def pos
+    return [x, y]
+  end
+
+  def move_to(x, y)
+    @x, @y = x, y
+  end
+
+  def draw(s)
+    colorHSV(0, s, 100, 60)
+    draw_rect(@w, @h)
+    colorHSV(0, s,   0, 30)
+    draw_rect(@w-1, @h-1)
+  end
+
+  def draw_rect(w, h)
+    rect(@x-w, @y-h, @x+w, @y+h)
+  end
+
+  def inside?(x, y)
+    (@x-@w) < x && x < (@x+@w) && (@y-@h) < y && y < (@y+@h)
+  end
+end
+
+class ButtonColumn
+  def initialize(length, dy, hy)
+    @length, @dy, @hy = length, dy, hy #destination y and hide y
+    @cur = 0
+    @buttons = []
+    @y_spring = NumSpring.new(@dy, @dy, 5, 0.6)
+    make_buttons
+  end
+
+  attr_reader :y_spring
+  attr_accessor :cur
+
+  def make_buttons
+    y = @y_spring.x
+    sw = 46
+    w = 0
+    @length.times {
+      @buttons << Button.new(0, y)
+      w += sw
+    }
+    x = -w/2
+    @buttons.each {|b|
+      b.x = x
+      x += sw
+    }
+  end
+
+  def move(x, y)
+    # @y_spring.target = y.abs < (768/2 - 120) ? @hy : @dy
+    #if y.abs < (768/2 - 120)
+    if (@dy - y).abs < 50
+      @y_spring.target = @dy
+    else
+      @y_spring.target = @hy
+    end
+    @y_spring.moving = true
+    @y_spring.move
+    y = @y_spring.x
+    @buttons.each {|b|
+      b.y = y
+    }
+  end
+
+  def draw
+    @buttons.each_index {|i|
+      b = @buttons[i]
+      s = (@cur == i) ? 100 : 0
+      b.draw(s)
+    }
+  end
+
+  def onMouseDown(x, y)
+    @buttons.each_index {|i|
+      b = @buttons[i]
+      if b.inside?(x, y)
+	@cur = i
+	return i
+      end
+    }
+    nil
+  end
+end
+
+if $0 == __FILE__
+  require "test/unit"
+  $__test_sgl__ = true
+end
+
+if defined?($__test_sgl__) && $__test_sgl__
+  class TestSglButton < Test::Unit::TestCase #:nodoc:
+    def test_button
+      b = Button.new(1, 2)
+      assert_equal(1, b.x)
+      assert_equal(2, b.y)
+      assert_equal([1, 2], b.pos)
+    end
+
+    def test_draw
+      app = SGL::Application.new
+      app.set_setup {
+	app.window(100, 100)
+	app.runtime = 0.1
+      }
+      i = 0
+      button = Button.new(0, 0)
+      app.set_display {
+	button.move_to(i, i)
+	button.draw(i)
+	i += 5
+	i = 0 if 100 < i
+      }
+      app.mainloop
+    end
+  end
+end

data/lib/sgl/sgl-client.rb

@@ -0,0 +1,21 @@
+#!/usr/bin/env ruby -w
+# Copyright (C) 2004-2007 Kouichirou Eto, All rights reserved.
+# License: Ruby License
+
+$LOAD_PATH.unshift("..") if !$LOAD_PATH.include?("..")
+require "sgl/sgl-connect"
+
+module Sgl
+  class Client
+    def self.main(argv)
+      uri = ARGV.shift
+      there = DRbObject.new_with_uri(uri)
+      there.puts('Hello, World.')
+    end
+  end
+end
+
+if $0 == __FILE__
+  require "test/unit"
+  Sgl::Client.main(ARGV)
+end

data/lib/sgl/sgl-color.rb

@@ -0,0 +1,82 @@
+#!/usr/bin/env ruby -w
+# Copyright (C) 2004-2007 Kouichirou Eto, All rights reserved.
+# License: Ruby License
+
+$LOAD_PATH.unshift("..") if !$LOAD_PATH.include?("..")
+
+module SGL
+  RGB = 0
+  HSV = 1
+  DEFAULT_MAX = 100
+
+  class ColorTranslatorRGB
+    def initialize(r=nil, g=nil, b=nil, a=nil)
+      a = DEFAULT_MAX if a == nil
+      r = DEFAULT_MAX if r == nil
+      g = b = r if g == nil || b == nil
+      @rm, @gm, @bm, @am = r.to_f, g.to_f, b.to_f, a.to_f
+    end
+
+    def norm(r, g=nil, b=nil, a=nil)
+      a = DEFAULT_MAX if a == nil
+      g = b = r if g == nil || b == nil
+      return [r/@rm, g/@gm, b/@bm, a/@am]
+    end
+  end
+
+  class ColorTranslatorHSV
+    def initialize(h=nil, s=nil, v=nil, a=nil)
+      a = DEFAULT_MAX if a == nil
+      h = DEFAULT_MAX if h == nil
+      s = v = h if s == nil || v == nil
+      @hm, @sm, @vm, @am = h.to_f, s.to_f, v.to_f, a.to_f
+    end 
+
+    def norm(h, s=nil, v=nil, a=nil)
+      if h < 0
+	base = (h.abs / @hm).to_i + 1
+	h += (base * @hm).to_f
+      end
+      h = (h % @hm) if @hm < h
+      a = DEFAULT_MAX if a == nil
+      s = v = h if s == nil || v == nil
+      r, g, b = hsv_to_rgb(360.0*h/@hm, s/@sm, v/@vm)
+      return [r, g, b, a/@am]
+    end
+
+    def hsv_to_rgb(h, s, v) #h:[0-360] s,v:[0,1], r,g,b:[0,1]
+      return v, v, v if s == 0.0
+      h = 0 if h == 360
+      h /= 60.0 #h is now [0,6)
+      i = h.to_i
+      f = (h-i).to_f
+      pp = v * (1-s)
+      q = v * (1-(s*f))
+      t = v * (1-(s*(1-f)))
+      #p [h,s,v, i, f, pp, q, t]
+      case i
+      when 0; return v, t, pp
+      when 1; return q, v, pp
+      when 2; return pp, v, t
+      when 3; return pp, q, v
+      when 4; return t, pp, v
+      when 5; return v, pp, q
+      end
+      return 0, 0, 0
+    end
+  end
+end
+
+if $0 == __FILE__
+  require "test/unit"
+  $__test_sgl__ = true
+end
+
+if defined?($__test_sgl__) && $__test_sgl__
+  class TestSglColor_SglColor < Test::Unit::TestCase #:nodoc:
+    def test_all
+      rgb = SGL::ColorTranslatorRGB.new(100, 100, 100, 100)
+      assert_equal([1.0, 1.0, 1.0, 1.0], rgb.norm(100, 100, 100))
+    end
+  end
+end

data/lib/sgl/sgl-connect.rb

@@ -0,0 +1,9 @@
+#!/usr/bin/env ruby -w
+# Copyright (C) 2004-2007 Kouichirou Eto, All rights reserved.
+# License: Ruby License
+
+require "drb/drb"
+
+module Sgl
+  DEFAULT_URI = "druby://localhost:12345"
+end

data/lib/sgl/sgl-server.rb

@@ -0,0 +1,58 @@
+#!/usr/bin/env ruby -w
+# Copyright (C) 2004-2007 Kouichirou Eto, All rights reserved.
+# License: Ruby License
+
+$LOAD_PATH.unshift("..") if !$LOAD_PATH.include?("..")
+require "sgl/sgl-connect"
+
+module Sgl
+  class Puts
+    def initialize(stream=$stdout)
+      stream.sync = true
+      @stream = stream
+    end
+
+    def puts(str)
+      @stream.puts(str)
+    end
+  end
+
+  class Server
+    def self.main(argv)
+      server = self.new
+      server.run
+    end
+
+    def run(duration=0)
+      uri = DEFAULT_URI
+      DRb.start_service(uri, Puts.new)
+      puts DRb.uri
+
+      if duration == 0
+	sleep
+      else
+	sleep duration
+      end
+    end
+  end
+end
+
+if $0 == __FILE__
+  require "test/unit"
+  $__test_sgl__ = true
+end
+
+if defined?($__test_sgl__) && $__test_sgl__
+  class TestSglServer < Test::Unit::TestCase #:nodoc:
+    def test_all
+      server = Sgl::Server.new
+      Thread.start {
+	server.run(5)
+      }
+
+      uri = Sgl::DEFAULT_URI
+      there = DRbObject.new_with_uri(uri)
+      there.puts('Hello, World.')
+    end
+  end
+end

data/lib/sgl/sgl-sound.rb

@@ -0,0 +1,24 @@
+# Copyright (C) 2004-2007 Kouichirou Eto, All rights reserved.
+# License: Ruby License
+
+require 'sgl/bass'
+
+module SGL
+  def useSound()	$__a__.useSound;	end
+  def loadSound(*a)	$__a__.loadSound(*a)	end
+  def stopSound(*a)	$__a__.stopAll(*a)	end
+
+  class Application
+    def useSound
+      bass = Bass::BassLib.instance
+    end
+
+    def loadSound(file)
+      return Bass::Sample.new(file)
+    end
+
+    def stopSound
+      Bass::BassLib.instance.stop_all
+    end
+  end
+end

data/lib/sgl/sgl-spring.rb

@@ -0,0 +1,216 @@
+# Copyright (C) 2004-2007 Kouichirou Eto, All rights reserved.
+# License: Ruby License
+
+$LOAD_PATH.unshift("..") if !$LOAD_PATH.include?("..")
+
+module SGL
+=begin
+  # not yet.
+  module SpringModule
+  end
+=end
+
+  class Spring
+    EPSILON = 0.01
+
+    # �ڕW�ƂȂ�l�A�����l�A�o�l�萔�A�e���萔�A�C�v�V����(�\���������l)
+    def initialize(target, initial, ks, kd, e=EPSILON, v=0)
+      @target, @initial, @ks, @kd, @e, @v = target, initial, ks, kd, e, v
+      @x = @initial
+      @moving = true
+    end
+
+    attr_reader :x, :target
+    attr_accessor :v, :ks, :kd
+
+    def inspect
+      mov = @moving ? "��" : "��"
+      sprintf("[%s%.1f %.1f %.1f %.1f %.1f]", mov, @target, @x, @v, @ks, @kd)
+    end
+
+    def target=(num)
+      @target = num
+      @moving = true
+    end
+
+    def x=(num)
+      @x = num
+      @moving = true
+    end
+
+    def move
+      return if ! @moving
+      if @x.is_a?(Vector)
+	l = @x - @target
+	diff = l.length
+	if diff < @e && @v.length < @e
+	  @moving = false
+	  return
+	end
+	#fa = -(@ks * diff + @kd * @v)
+	ln = l.normalize
+	fak = -(@ks * diff + @kd * @v.length)
+	fa = ln.scale(fak)
+	@v += fa
+	@x += @v
+	#p ['sp', fa, fak, @v, @x]
+      else
+	diff = @x - @target
+	if diff.abs < @e && @v.abs < @e
+	  @moving = false
+	  return
+	end
+	fa = -(@ks * diff + @kd * @v)
+	@v += fa
+	@x += @v
+      end
+    end
+  end
+
+  class ISpring < Spring
+    # �ڕW�ƂȂ�l�A�����l�A�o�l�萔�A�e���萔�A�C�v�V����(�\���������l)
+    def initialize(target, initial, ks, kd, e=EPSILON, v=0)
+      super(target, initial, 1.0/ks, 1.0/kd, e, v) # ks��kd��inverse����B
+    end
+  end
+
+  class NumSpring
+    EPSILON = 0.01
+
+    # �ڕW�ƂȂ�l�A�����l�A�o�l�萔�A�e���萔�A�C�v�V����(�\���������l)
+    def initialize(target, initial, ks, kd, e=EPSILON, v=0)
+      @target, @initial, @ks, @kd, @e, @v = target, initial, ks, kd, e, v
+      @x = @initial
+      @moving = true
+    end
+
+    attr_reader :x, :target
+    attr_accessor :v, :ks, :kd, :moving
+
+    def inspect
+      mov = @moving ? "��" : "��"
+      sprintf("[%s%.1f %.1f %.1f %.1f %.1f]", mov, @target, @x, @v, @ks, @kd)
+    end
+
+    def target=(num)
+      @target = num
+      @moving = true
+    end
+
+    def x=(num)
+      @x = num
+      @moving = true
+    end
+
+    def move
+      return if ! @moving
+      diff = @target - @x
+      if diff.abs < @e && @v.abs < @e
+	@moving = false
+	return
+      end
+      @v += (diff / @ks)
+      @v *= @kd
+      @x += @v
+    end
+  end
+
+  class INumSpring < NumSpring
+    # �ڕW�ƂȂ�l�A�����l�A�o�l�萔�A�e���萔�A�C�v�V����(�\���������l)
+    def initialize(target, initial, ks, kd, e=EPSILON, v=0)
+      super(target, initial, ks, 1.0 - 1.0/kd, e, v) # kd����inverse����B
+    end
+  end
+end
+
+=begin
+class NuSpringPos
+  EPSILON = 0.01
+
+  # �����l�A�ڕW�ƂȂ�l�A�o�l�萔�A�e���萔�A�C�v�V����(�\���������l)
+  def initialize(x, y, ks, kd, e=EPSILON)
+    @x, @y, @ks, @kd, @e = x, y, ks, kd, e
+    @vx, @vy, @tx, @ty = 0, 0, 0, 0
+    @moving = true
+  end
+
+  attr_reader :x, :y, :moving
+
+  def set_target(tx, ty)
+    @tx, @ty = tx, ty
+  end
+
+  def move
+    return if ! @moving
+
+    #diff = @target - @x
+    diff = @tx - @x
+    if diff.abs < @e && @v.abs < @e
+      @moving = false
+      return
+    end
+    @v += (diff / @ks)
+    @v *= @kd
+    @x += @v
+  end
+end
+
+class NuNumSpring
+  EPSILON = 0.01
+
+  # �ڕW�ƂȂ�l�A�����l�A�o�l�萔�A�e���萔�A�C�v�V����(�\���������l)
+  def initialize(target, initial, ks, kd, e=EPSILON)
+    @target, @initial, @ks, @kd, @e = target, initial, ks, kd, e
+    @x = @initial
+    @v = 0
+    @moving = true
+  end
+
+  attr_reader :v
+  attr_accessor :x, :target, :moving, :ks, :kd
+
+  def inspect
+    mov = @moving ? "��" : "��"
+    sprintf("[%s%.1f %.1f %.1f %.1f %.1f]", mov, @target, @x, @v, @ks, @kd)
+  end
+
+  def move
+    return if ! @moving
+    diff = @target - @x
+    if diff.abs < @e && @v.abs < @e
+      @moving = false
+      return
+    end
+    @v += (diff / @ks)
+    @v *= @kd
+    @x += @v
+  end
+
+  def rel_ks_notuse(r)
+    @ks += r
+    @ks = 1 if @ks <= 0
+  end
+end
+=end
+
+if $0 == __FILE__
+  require "test/unit"
+  $__test_sgl__ = true
+end
+
+if defined?($__test_sgl__) && $__test_sgl__
+  class TestSglSpring < Test::Unit::TestCase #:nodoc:
+    def test_all
+
+      s = SGL::NumSpring.new(0, 1, 0.1, 0.1)
+      assert_equal(1, s.x)
+      assert_equal(true, s.moving)
+
+      s.move
+      assert_equal(0.0, s.x)
+
+      s.move
+      assert_equal(-0.1, s.x)
+    end
+  end
+end

data/lib/sgl/sgl-timer.rb

@@ -0,0 +1,72 @@
+# Copyright (C) 2004-2007 Kouichirou Eto, All rights reserved.
+# License: Ruby License
+
+module SGL
+  # starttime�b��Ɏn�܂��āAendtime�b��ɏI��B
+  class Timer
+    def initialize(st, et)
+      @st, @et = st, et
+      revert	# �����߂�
+      count
+      @span = (@et - @st).to_f
+      #p ['Timer', @bt, @st, @et, @span]
+    end
+    attr_accessor :st, :et
+
+    # start at 0.0, finished at 1.0
+    def ratio
+      count
+      return 0.0 if @now < @st
+      return 1.0 if @et <= @now
+      return (@now - @st) / @span
+    end
+
+    def started?
+      count
+      @st <= @now
+    end
+
+    def ended?
+      count
+      @et <= @now
+    end
+
+    def start
+      @bt += @st if ! started?
+      @bt = Time.now.to_f - @st if ! started?
+    end
+
+    # begintime���J�n����
+    def revert
+      @bt = Time.now.to_f
+    end
+
+    private
+
+    def count
+      @now = Time.now.to_f - @bt
+    end
+  end
+
+  module Fadeout
+    EXISTENCE_TIME = 6 # ��������
+    FADEOUT_TIME = 2   # fadeout���鎞��
+
+    def fadeout_initialize
+      @timer = Timer.new(EXISTENCE_TIME - FADEOUT_TIME, EXISTENCE_TIME)
+    end
+
+    def set_longer_timer
+      t = 10
+      @timer = Timer.new(EXISTENCE_TIME * t - FADEOUT_TIME * t, EXISTENCE_TIME * t)
+    end
+
+    def fadeout
+      @timer.start
+    end
+
+    def ended?
+      @timer.ended?
+    end
+  end
+end

data/lib/sgl/sgl.rb

@@ -0,0 +1,5 @@
+# Copyright (C) 2004-2007 Kouichirou Eto, All rights reserved.
+# License: Ruby License
+
+require 'sgl/version'
+require "sgl/opengl"

data/lib/sgl/version.rb

@@ -4,8 +4,8 @@
 module SGL #:nodoc:
   module VERSION #:nodoc:
     MAJOR = 0
-    MINOR = 3
-    TINY  = 1
+    MINOR = 4
+    TINY  = 0
 
     STRING = [MAJOR, MINOR, TINY].join('.')
   end

data/scripts/makemanifest.rb

@@ -0,0 +1,20 @@
+#!/usr/bin/ruby
+
+base_dir = File.join(File.dirname(__FILE__), "..")
+glob_pattern = File.join("**", "*")
+exclude_patterns = [
+  /^pkg/,/^doc/,
+]
+
+Dir.chdir(base_dir)
+files = Dir.glob(glob_pattern).delete_if do |fname|
+  File.directory?(fname) or
+  exclude_patterns.find do |pattern|
+    pattern =~ fname
+  end
+end
+manifest = File.new("Manifest.txt", "w")
+manifest.puts files.sort.join("\n")
+manifest.close
+
+puts "Manifest.txt updated"

data/test/test_bass.rb

@@ -0,0 +1,27 @@
+#!/usr/bin/env ruby -w
+# Copyright (C) 2004-2007 Kouichirou Eto, All rights reserved.
+# License: Ruby License
+
+require File.dirname(__FILE__) + '/test_helper.rb'
+require 'sgl/bass'
+
+class TestSample < Test::Unit::TestCase
+  TEST_FILENAME = "c:/WINDOWS/Media/start.wav"
+
+  def test_0_simple_play
+    bass = Bass::BassLib.instance
+    samp = Bass::Sample.new(TEST_FILENAME)
+
+    # test_play
+    samp.play; sleep 0.05
+
+    # test_note
+    [0, 2, 4, 5, 7, 9, 11, 12].each {|n| samp.play(60 + n); sleep 0.05 }
+
+    # test_volume
+    10.times {|v| samp.play(60, v * 10); sleep 0.05 }
+
+    # test_pan
+    10.times {|pos| samp.play(60, 100, pos * 20 - 100); sleep 0.05 }
+  end
+end

data/test/test_cocoa_app.rb

@@ -1,12 +1,12 @@
-#!/usr/bin/env ruby
-# Copyright (C) 2004-2005 Kouichirou Eto, All rights reserved.
+#!/usr/bin/env ruby -w
+# Copyright (C) 2004-2007 Kouichirou Eto, All rights reserved.
+# License: Ruby License
 
-$LOAD_PATH.unshift("..") if !$LOAD_PATH.include?("..")
+require File.dirname(__FILE__) + '/test_helper.rb'
 
-if /cocoa/ =~ RUBY_PLATFORM
+if /osx/ =~ RUBY_PLATFORM
 
 require "sgl/cocoa-app"
-require "test/unit"
 
 class TestCocoaBasic < Test::Unit::TestCase
   def test_basic