glimr 0.1.0

data/tests/demo_apps/spinning_ruby.rb

@@ -0,0 +1,37 @@
+puts "TODO (before this can run):
+ + port Ruby and OmniLight over from librend
+ + make 3D scene and lights handling for GLUTWindow
+
+Exiting."
+exit
+
+require 'glimr'
+
+braking = false
+spin = 10
+
+ruby = GlimR::Ruby.new :scale => 1.2
+ruby.add_time_handler{|o,t,dt|
+  if spin > 0
+    o.angle += spin * dt * 20
+    spin -= dt * 5
+    spin -= dt * 20 if braking
+  end
+}
+
+spinner = GlimR::Button.new(:label => "Spin it!"){ spin += 10 }
+braker = GlimR::Button.new(:label => "Brake!")
+braker.on_down{ braking = true }
+braker.on_up{ braking = false }
+quitter = GlimR::Button.new(:label => "Quit"){ exit }
+
+controls = GlimR::HLayout.new
+controls.attach spinner, braker, quitter
+
+window = GlimR::GLUTWindow.new(300,300, "Spinning Ruby")
+window.attach controls
+window.scene.camera.y = 0.5
+light1 = GlimR::OmniLight.new(:position => [2,5,2])
+light2 = GlimR::OmniLight.new(:position => [2,-2,2])
+window.scene.attach light1, light2, ruby
+window.run

data/tests/integration_tests/run_all.rb

@@ -0,0 +1,8 @@
+tests = Dir[File.join( File.dirname(__FILE__), "test_*.rb")]
+
+tests.each{|t|
+  puts t
+  system("ruby", t)
+  puts "-"*72
+}
+

data/tests/integration_tests/test_button.rb

@@ -0,0 +1,22 @@
+GC.disable
+require 'glimr'
+
+vl = GlimR::VLayout.new
+b1 = GlimR::Button.new( :label => "Button" ){|o,e| puts "You pushed #{o.label}" }
+b2 = GlimR::Button.new( :label => "Button with long label" ){|o,e| puts "You pushed #{o.label}" }
+b3 = GlimR::Button.new( :label => "Button\nwith\nseveral lines\nin its\nlabel" ){|o,e| puts "You pushed #{o.label}" }
+vl.attach b1, b2, b3
+
+w = GlimR::GLUTWindow.new(400,400)
+w.attach vl
+
+f = w.frames_drawn
+puts "Frame: #{f}"
+vl.on_frame{
+  if f != w.frames_drawn
+    f = w.frames_drawn
+    puts "Frame: #{f}"
+  end
+}
+
+w.run

data/tests/integration_tests/test_checkbox.rb

@@ -0,0 +1,21 @@
+require 'glimr'
+
+
+vl = GlimR::VLayout.new
+b1 = GlimR::Checkbox.new(:label => "Checkbox")
+b1.on_change{|o,e|
+  puts "#{o.label}: #{o.state}"
+}
+b2 = GlimR::Checkbox.new(:label => "Checkbox with a long label")
+b2.on_change{|o,e|
+  puts "#{o.label}: #{o.state}"
+}
+b3 = GlimR::Checkbox.new(:label => "Checkbox\nwith\nmany\nlines\nin its\nlabel")
+b3.on_change{|o,e|
+  puts "#{o.label}: #{o.state}"
+}
+vl.attach b1, b2, b3
+
+gw = GlimR::GLUTWindow.new
+gw.attach vl
+gw.run

data/tests/integration_tests/test_container.rb

@@ -0,0 +1,22 @@
+require 'glimr'
+
+
+c = GlimR::Container.new(
+  :expand_height => true, :expand_width => true,
+  :content => GlimR::Image.new(
+    :image => File.join(File.dirname(__FILE__), "..", "assets",
+                        "datatowers_crop.jpg"))
+)
+c.on_mouse_move{|o,e|
+  if e.buttons[:left]
+    o.scroll_x -= e.dx
+    o.scroll_y -= e.dy
+  end
+}
+
+gw = GlimR::GLUTWindow.new
+gw.attach c
+
+p [c.width, c.height]
+p [c.content_view.viewport_width, c.content_view.viewport_height]
+gw.run

data/tests/integration_tests/test_label.rb

@@ -0,0 +1,12 @@
+require 'glimr'
+
+include GlimR
+
+w = GLUTWindow.new
+
+w.attach GlimR::Label.new(
+  :text => "This is a simple label",
+  :color => [1,0,0,1]
+)
+
+w.run

data/tests/integration_tests/test_layout.rb

@@ -0,0 +1,43 @@
+require 'glimr'
+
+
+b = GlimR::VLayout.new
+b << GlimR::Image.new(:image => GlimR.theme + 'button_bg.png')
+b << GlimR::Image.new(:image => GlimR.theme + 'button_bg.png')
+b.children.last.scale = 0.5
+b << GlimR::Image.new(:image => GlimR.theme + 'button_bg.png')
+b.children.last.scale = 2.0
+b << GlimR::Image.new(:image => GlimR.theme + 'button_bg.png')
+b << GlimR::Button.new(:label => "Button")
+
+h = GlimR::HLayout.new(
+  :min_width => 600, :min_height => 200,
+  :align => :right
+)
+h << GlimR::Button.new(:label => "Pad"){|o,e| o.margin = o.margin_left + 2 }
+h << GlimR::Container.new(
+  :expand_width => true,
+  :content => GlimR::Image.new(:image => File.join(File.dirname(__FILE__), "..", "assets", "datatowers_crop.jpg"))
+){|c|
+  scroll = [0,0]
+  changed = false
+  c.on_mouse_move{|o,e|
+    if e.buttons[:left]
+      scroll[0] -= e.dx
+      scroll[1] -= e.dy
+      changed = true
+    end
+  }
+  c.on_frame{|o,e|
+    if changed
+      o.scroll = scroll
+      changed = false
+    end
+  }
+}
+
+b << h
+
+gw = GlimR::GLUTWindow.new
+gw << b
+gw.run

data/tests/integration_tests/test_radiogroup.rb

@@ -0,0 +1,16 @@
+require 'glimr'
+
+#GlimR.label_font = "GNU Unifont"
+b = GlimR::RadioGroup.new(
+  :label => "Selection from the alphabet",
+  :options => [
+    "A", "B", "C", "D", "E", "F",
+    "I can't see my letter here..."
+  ]
+)
+b.on_select{|o,e|
+  puts "Selected option number #{e.selected_index}: #{e.option}"
+}
+gw = GlimR::GLUTWindow.new
+gw.attach b
+gw.run

data/tests/integration_tests/test_renderer.rb

@@ -0,0 +1,44 @@
+require 'glimr/renderer'
+
+include GlimR
+
+t = Transform.new
+t.position = [100, 100]
+t.scale = Math.sin(Time.now.to_f)
+angle = (90*Time.now.to_f)%360
+t.rotation = AngleAxis[angle, 0, 0, 1]
+
+g = Geometry.new
+g.vertices = [-100,-100,0,  100,-100,0,  100,100,0,  -100,100,0].pack("f*")
+g.texcoords = [0,1, 1,1, 1,0, 0,0].pack("f*")
+g.type = GL::QUADS
+
+tex = Texture.load('../assets/datatowers_crop.jpg')
+tex2 = Texture.load('../assets/redhairgreeneyes3.jpg')
+
+cam = Camera.new
+cam.position = [-150,-150,100]
+cam.looking_at = [-0,-0,0]
+cam.perspective = true
+cam.up = [0,1,0]
+
+r = Raw.new
+r.renderer = lambda do 
+end
+
+t.add_event_listener(:frame) do |o,e|
+  o.scale = Math.sin(e.time)
+  o.rotation = AngleAxis[ (90*e.time)%360, 0, 0, 1 ]
+end
+s2 = Transform.scale 2
+r.attach s2
+s2.attach t
+t.attach tex 
+tex.attach g
+tex2.attach g.clone
+s2.attach tex2
+
+vp = GlimR::GLUTWindow.new(500,500)
+vp.camera = cam
+vp.attach r
+vp.run

data/tests/integration_tests/test_renderer2.rb

@@ -0,0 +1,36 @@
+require 'glimr/widgets/image'
+require 'glimr/renderer/glutwindow'
+
+
+include GlimR
+
+img = Image.load("../assets/redhairgreeneyes3.jpg")
+img.scale = 0.5
+img.add_event_listener(:frame){|o, e|
+  o.angle = (120*e.time) % 360
+  hw = o.viewport.width/2
+  hh = o.viewport.height/2
+  o.x = hw+50*Math.sin(e.time)
+  o.y = hh+50*Math.cos(e.time)
+}
+
+img.attach 
+t1 = Transform.new
+t1.position = [0,500]
+t1.attach img.geometry.clone(false)
+t2 = Transform.new
+t2.attach img.geometry.clone(false)
+t3 = Transform.new
+t3.position = [500,0]
+t3.attach t2
+
+img.shader.attach t1, t3
+
+w = GLUTWindow.new(500,500)
+w.attach img
+
+#~ bob = Image.load("../assets/datatowers_crop.jpg")
+#~ d = GLUTWindow.new(400,200,"bob",500,500)
+#~ d.attach bob
+
+w.run

data/tests/integration_tests/test_scrollable_container.rb

@@ -0,0 +1,34 @@
+require 'glimr'
+
+images = []
+imagedir = (Pathname.new(__FILE__).dirname + "../assets")
+imagedir.entries.map{|e|
+  if e.extname =~ /\.(jpg|png)/i
+    images << imagedir+e
+  end
+}
+
+sc = GlimR::ScrollableContainer.new(
+  :width => 400, :height => 300, :fit_children => false,
+  :content => GlimR::Image.load(images[0])
+)
+sc.container.on_click{|o,e|
+  if e.button == :left
+    images.push images.shift
+    o.content.load images[0]
+  elsif e.button == :right
+    images.unshift images.pop
+    o.content.load images[0]
+  end
+}
+sc.container.on_drag{|o,e|
+  if e.buttons[:left]
+    sc.x += e.dx
+    sc.y += e.dy
+  end
+}
+
+gw = GlimR::GLUTWindow.new(400, 300)
+gw.attach sc
+gw.run
+

data/tests/integration_tests/test_scrollbar.rb

@@ -0,0 +1,20 @@
+require 'glimr'
+
+vsb = GlimR::VScrollBar.new
+vsb.on_scroll{|o,e|
+  puts "vert scroll = #{e.y}"
+}
+hsb = GlimR::HScrollBar.new
+hsb.on_scroll{|o,e|
+  puts "horiz scroll = #{e.x}"
+}
+lv = GlimR::VLayout.new(:expand_width => true, :expand_height => true)
+ew = GlimR::Widget.new(:expand_height=>true, :expand_width=>true)
+lv.attach ew, hsb
+
+lh = GlimR::HLayout.new(:expand_height => true, :expand_width => true)
+lh.attach lv, vsb
+
+gw = GlimR::GLUTWindow.new
+gw.attach lh
+gw.run

data/tests/integration_tests/test_stretchable_image.rb

@@ -0,0 +1,34 @@
+require 'glimr'
+
+
+include GlimR
+
+vl = VLayout.new(:expand_width => true, :expand_height => true)
+i = Image.load_theme('button_bg.png')
+b = StretchableImage.load_theme('button_bg.png')
+b2 = StretchableImage.new(:image => GlimR.theme + 'button_bg.png', :width => 200, :height => 100)
+
+b2.on_mouse_over{|o,e|
+  o.load(GlimR.theme + 'button_bg_down.png')
+}
+b2.on_mouse_out{|o,e|
+  o.load(GlimR.theme + 'button_bg.png')
+}
+
+vl << Label.new(:text => "Normal image")
+vl << i
+vl << Label.new(:text => "Stretchable version of image\n(should look like the one above)")
+vl << b
+vl << Label.new(:text => "Stretched to 200x100")
+vl << b2
+
+w = GLUTWindow.new 300,300
+w.background = [1,1,1,1]
+w.attach vl
+
+p [i.width, i.height]
+p [b.width, b.height]
+p [b2.width, b2.height]
+p [vl.width, vl.height]
+
+w.run

data/tests/integration_tests/test_text_input.rb

@@ -0,0 +1,20 @@
+require 'glimr'
+include GlimR
+
+name_form = VLayout.new(
+  :expand_height => true, :expand_width => true,
+  :align => :center, :valign => :middle)
+
+label = Label.new(:text => "Enter your name:")
+name_input = TextInput.new(:text => ""){|o,e|
+  name_form.attach Label.new(:text => "Hi, #{e.text}!")
+}
+submit = Button.new(:label => "OK"){|o,e|
+  name_input.submit
+}
+name_form.attach label, name_input, submit
+
+window = GLUTWindow.new(400, 200, "My App")
+window.attach name_form
+window.run
+

data/tests/integration_tests/test_zsort.rb

@@ -0,0 +1,18 @@
+require 'glimr'
+
+include GlimR
+
+gw = GLUTWindow.new
+
+tf = Transform.translate(0, 0)
+
+ts = StretchableImage.load_theme('button_bg.png')
+ts.z = -1
+ts2 = StretchableImage.load_theme('button_cover.png')
+ts2.z = 0
+ts3 = StretchableImage.load_theme('button_focus.png')
+ts3.z = 1
+
+gw.attach ts3, ts, ts2
+#gw.attach tf
+gw.run

data/tests/unit_tests/test_button.rb

@@ -0,0 +1,93 @@
+require 'glimr'
+require 'test/unit'
+
+class ButtonTest < Test::Unit::TestCase
+include GlimR
+
+  def setup
+    @b = GlimR::Button.new(:label => "My Button")
+  end
+
+  def test_label
+    assert_equal "My Button", @b.label
+    @b.label = "Bob"
+    assert_equal "Bob", @b.label
+  end
+
+  def test_label_resize
+    w,h = @b.width, @b.height
+    @b.label = "This is a really really long label for a button"
+    assert_equal h, @b.height
+    assert w < @b.width
+
+    label = GlimR::Label.new(:text => @b.label)
+    assert_equal(
+      label.width,
+      @b.inner_width
+    )
+    assert_equal(
+      24,
+      @b.height
+    )
+
+    @b.label = "My Button\nHas\nMany\nLines"
+    assert_equal w, @b.width
+    assert h < @b.height
+    label = GlimR::Label.new(:text => @b.label)
+    assert_equal(
+      label.width + @b.padding_left + @b.padding_right,
+      @b.width
+    )
+    assert_equal(
+      label.height + @b.padding_top + @b.padding_bottom,
+      @b.height
+    )
+  end
+
+  def test_activation
+    @activated = false
+    @b.on_activate{|o,e|
+      @activated = true
+    }
+    send_activate_event
+    send_mouse_up_down
+    send_enter_up_down
+    @b = GlimR::Button.new{ @activated = true }
+    assert_equal 2, @b.event_listeners[:activate][:bubble].size
+    @b.event_listeners[:activate][:bubble][1].call
+    assert @activated
+    @activated = false
+    send_activate_event
+    send_mouse_up_down
+    send_enter_up_down
+  end
+
+  def send_activate_event
+    @b.multicast_event Event.new(:activate)
+    assert @activated
+    @activated = false
+  end
+
+  def send_mouse_up_down
+    @b.multicast_event Event.new(:mouse_over, {:button => :left})
+    @b.multicast_event Event.new(:mouse_down, {:button => :left})
+    @b.multicast_event Event.new(:mouse_up, {:button => :left})
+    assert @activated
+    @activated = false
+  end
+
+  def send_enter_up_down
+    @b.focused = true
+    assert @b.focused
+    @b.multicast_event Event.new(:key_down, {:key => 13})
+    assert @b.down
+    assert @b.focused
+    @b.multicast_event Event.new(:key_up, {:key => 13})
+    assert @activated
+    assert !@b.down
+    @activated = false
+  end
+
+
+end
+