ray 0.0.1 → 0.1.0.pre1

data/samples/shaders/shaders.rb

@@ -0,0 +1,42 @@
+$:.unshift File.expand_path(File.dirname(__FILE__) + "/../../lib")
+$:.unshift File.expand_path(File.dirname(__FILE__) + "/../../ext")
+
+require 'ray'
+
+Ray::Game.new("Shaders test") do
+  register do
+    add_hook :quit, method(:exit!)
+  end
+
+  scene :shader do
+    img = Ray::Image.new(:w => 100, :h => 100).fill(Ray::Color.green)
+    img.draw_line([0, 0], [100, 100], Ray::Color.black, 2)
+    img.draw_line([0, 100], [100, 0], Ray::Color.white, 2)
+    img.draw_filled_circle([50, 50], 10, Ray::Color.cyan)
+    img.update
+
+    shader = Ray::Shader.new StringIO.new(<<-SHADER)
+      uniform sampler2D texture;
+      uniform vec3      ratio;
+
+      void main() {
+        vec4 color = texture2D(texture, gl_TexCoord[0].xy);
+        float gray = dot(color.xyz, ratio);
+
+        gl_FragColor = vec4(gray, gray, gray, 1.0);
+      }
+    SHADER
+
+    shader["texture"] = :current
+    shader["ratio"]   = [0.299, 0.587, 0.114]
+
+    render do |win|
+      win.fill(Ray::Color.black)
+
+      img.draw(:on => win, :at => [0, 0],     :shader => shader)
+      img.draw(:on => win, :at => [100, 100], :shader => nil)
+    end
+  end
+
+  push_scene :shader
+end

data/samples/shaders/shape.rb

@@ -0,0 +1,34 @@
+$:.unshift File.expand_path(File.dirname(__FILE__) + "/../../lib")
+$:.unshift File.expand_path(File.dirname(__FILE__) + "/../../ext")
+
+require 'ray'
+
+Ray::Game.new("Shaders test") do
+  register do
+    add_hook :quit, method(:exit!)
+  end
+
+  scene :shader do
+    shape = Ray::Shape.rectangle([0, 0, 100, 100], Ray::Color.black)
+    shape.each do |point|
+      point.color = Ray::Color.new(rand(256), rand(256), rand(256))
+    end
+
+    shader = Ray::Shader.new StringIO.new(<<-SHADER)
+      uniform vec3 ratio;
+
+      void main() {
+        float gray   = dot(gl_Color.xyz, ratio);
+        gl_FragColor = vec4(gray, gray, gray, 1.0);
+      }
+    SHADER
+
+    shader["ratio"] = [0.299, 0.587, 0.114]
+
+    render do |win|
+      shape.draw(:on => win, :shader => shader)
+    end
+  end
+
+  push_scene :shader
+end

data/samples/sokoban/sokoban.rb

@@ -1,5 +1,5 @@
-$: << File.expand_path(File.dirname(__FILE__) + "/../../lib")
-$: << File.expand_path(File.dirname(__FILE__) + "/../../ext")
+$:.unshift File.expand_path(File.dirname(__FILE__) + "/../../lib")
+$:.unshift File.expand_path(File.dirname(__FILE__) + "/../../ext")
 
 require 'ray'
 
@@ -314,42 +314,42 @@ module Sokoban
     end
 
     def draw_man(win, x, y)
-      x, y = pos_to_coord(x, y)
-      win.draw_filled_rect([x, y, TILE_WIDTH, TILE_WIDTH], Ray::Color.white)
+      draw_rect(win, x, y, Ray::Color.white)
     end
 
     def draw_crate(win, x, y)
-      x, y = pos_to_coord(x, y)
-      win.draw_filled_rect([x, y, TILE_WIDTH, TILE_WIDTH], Ray::Color.gray)
+      draw_rect(win, x, y, Ray::Color.gray)
     end
 
     def draw_wall(win, x, y)
-      x, y = pos_to_coord(x, y)
-      win.draw_filled_rect([x, y, TILE_WIDTH, TILE_WIDTH], Ray::Color.new(91, 59, 17))
+      draw_rect(win, x, y, Ray::Color.new(91, 59, 17))
     end
 
     def draw_storage(win, x, y)
-      x, y = pos_to_coord(x, y)
-      win.draw_filled_rect([x, y, TILE_WIDTH, TILE_WIDTH], Ray::Color.yellow)
+      draw_rect(win, x, y, Ray::Color.yellow)
     end
 
     def draw_crate_on_storage(win, x, y)
-      x, y = pos_to_coord(x, y)
-      win.draw_filled_rect([x, y, TILE_WIDTH, TILE_WIDTH], Ray::Color.green)
+      draw_rect(win, x, y, Ray::Color.green)
     end
 
     def draw_man_on_storage(win, x, y)
-      x, y = pos_to_coord(x, y)
-      win.draw_filled_rect([x, y, TILE_WIDTH, TILE_WIDTH], Ray::Color.red)
+      draw_rect(win, x, y, Ray::Color.red)
     end
 
     def draw_empty_tile(win, x, y)
-      x, y = pos_to_coord(x, y)
-      win.draw_filled_rect([x, y, TILE_WIDTH, TILE_WIDTH], Ray::Color.black)
+      draw_rect(win, x, y, Ray::Color.black)
     end
 
-    def pos_to_coord(x, y)
-      [x * TILE_WIDTH, y * TILE_WIDTH]
+    def draw_rect(win, x, y, col)
+      rect = pos_to_rect(x, y)
+
+      win.draw_filled_rect(rect, col)
+      win.draw_rect(rect, Ray::Color.black)
+    end
+
+    def pos_to_rect(x, y)
+      [x * TILE_WIDTH, y * TILE_WIDTH, TILE_WIDTH, TILE_WIDTH]
     end
   end
 

data/samples/test/actual_scene.rb

@@ -0,0 +1,41 @@
+$:.unshift File.expand_path(File.dirname(__FILE__) + "/../../lib")
+$:.unshift File.expand_path(File.dirname(__FILE__) + "/../../ext")
+
+require 'ray'
+
+class AwesomeScene < Ray::Scene
+  scene_name :awesome_scene
+
+  def setup
+    @cursor = Ray::Shape.rectangle [-10, -10, 20, 20], Ray::Color.red
+  end
+
+  def register
+    on :mouse_motion do |pos|
+      @cursor.pos = pos
+    end
+  end
+
+  def render(win)
+    @cursor.draw_on win
+  end
+
+  attr_reader :cursor
+end
+
+class AwesomeGame < Ray::Game
+  def initialize
+    super "Hello world!", :size => [600, 600]
+
+    AwesomeScene.bind(self)
+    push_scene :awesome_scene
+  end
+
+  def register
+    add_hook :quit, method(:exit!)
+  end
+end
+
+if __FILE__ == $0
+  AwesomeGame.new.run
+end

data/samples/test/scene_riot.rb

@@ -0,0 +1,39 @@
+$:.unshift File.dirname(__FILE__)
+require 'actual_scene'
+
+require 'riot'
+require 'riot/rr'
+
+context AwesomeScene do
+  helper(:raise_event) { |*args| @game.raise_event(*args) }
+  helper(:run_event_loop) { @game.event_runner.run }
+
+  setup do
+    @game = AwesomeGame.new
+    @scene = @game.registred_scene(:awesome_scene)
+
+    @scene.register
+    @scene.setup
+
+    @scene
+  end
+
+  asserts("cursor position") { topic.cursor.pos }.equals Ray::Vector2[0, 0]
+
+  context "after moving the mouse" do
+    hookup do
+      raise_event :mouse_motion, Ray::Vector2[100, 100]
+      run_event_loop
+    end
+
+    asserts("cursor position") { topic.cursor.pos }.equals Ray::Vector2[100, 100]
+  end
+
+  asserts "draws its cursor" do
+    stub(topic.cursor).draw_on
+    topic.render Ray.screen
+
+    received(topic.cursor).draw_on(is_a(Ray::Image)).call
+    true
+  end
+end

data/samples/test/scene_spec.rb

@@ -0,0 +1,32 @@
+$:.unshift File.dirname(__FILE__)
+require 'actual_scene'
+
+describe AwesomeScene do
+  before :each do
+    @game = AwesomeGame.new
+    @scene = @game.registred_scene(:awesome_scene)
+
+    @scene.register
+    @scene.setup
+  end
+
+  it "has a cursor at (0, 0)" do
+    @scene.cursor.pos.should == [0, 0]
+  end
+
+  it "moves its cursor after the mouse moved" do
+    @game.raise_event :mouse_motion, Ray::Vector2[100, 100]
+    @game.event_runner.run
+
+    @scene.cursor.pos.should == [100, 100]
+  end
+
+  it "draws its cursor" do
+    @scene.cursor.should_receive(:draw_on)
+    @scene.render Ray.screen
+  end
+
+  after :each do
+    @scene.clean_up
+  end
+end

data/samples/test/scene_test_unit.rb

@@ -0,0 +1,25 @@
+$:.unshift File.dirname(__FILE__)
+require 'actual_scene'
+
+require 'test/unit'
+
+class AwesomeSceneTest < Test::Unit::TestCase
+  def setup
+    @game = AwesomeGame.new
+    @scene = @game.registred_scene(:awesome_scene)
+
+    @scene.register
+    @scene.setup
+  end
+
+  def test_cursor_position
+    assert_equal @scene.cursor.pos, [0, 0]
+  end
+
+  def test_cursor_movement
+    @game.raise_event :mouse_motion, Ray::Vector2[100, 100]
+    @game.event_runner.run
+
+    assert_equal @scene.cursor.pos, [100, 100]
+  end
+end

data/samples/turtle/byzantium.rb

@@ -0,0 +1,45 @@
+# Drawing code stolen from here:
+#  http://www.rubyquiz.com/quiz104.html
+
+$:.unshift File.expand_path(File.dirname(__FILE__) + "/../../lib")
+$:.unshift File.expand_path(File.dirname(__FILE__) + "/../../ext")
+
+require 'ray'
+
+class Ray::Turtle
+  def byzantium(r, n)
+    return if n < 1
+    forward r
+    right 135
+
+    4.times do
+      pen_down
+      forward 2 * r * sin(PI / 4)
+
+      pen_up
+      byzantium(r / 2, n - 1)
+      right 90
+    end
+
+    left 135
+    backward r
+  end
+end
+
+Ray::Game.new("Turtle") do
+  register do
+    add_hook :quit, method(:exit!)
+  end
+
+  scene :byzantium do
+    render do |win|
+      win.fill(Ray::Color.black).turtle do
+        pen_up
+        center
+        byzantium(100, 4)
+      end
+    end
+  end
+
+  push_scene :byzantium
+end

data/samples/turtle/hilbert.rb

@@ -0,0 +1,48 @@
+# Drawing code stolen from here:
+#  http://www.rubyquiz.com/quiz104.html
+
+$:.unshift File.expand_path(File.dirname(__FILE__) + "/../../lib")
+$:.unshift File.expand_path(File.dirname(__FILE__) + "/../../ext")
+
+require 'ray'
+
+class Ray::Turtle
+  def hilbert(s, n, k)
+    return if n < 1
+    left k * 90
+    hilbert(s, n - 1, -k)
+    forward s
+    right k * 90
+    hilbert(s, n - 1, k)
+    forward s
+    hilbert(s, n - 1, k)
+    right k * 90
+    forward s
+    hilbert(s, n - 1, -k)
+    left k * 90
+  end
+end
+
+Ray::Game.new("Turtle") do
+  register do
+    add_hook :quit, method(:exit!)
+  end
+
+  scene :hilbert do
+    render do |win|
+      win.fill(Ray::Color.black).turtle do
+        pen_up
+        left 90
+        backward 185
+        right 90
+        forward 185
+        left 90
+
+        pen_down
+        hilbert(12, 5, 1)
+      end
+    end
+  end
+
+  push_scene :hilbert
+end

data/samples/turtle/koch.rb

@@ -0,0 +1,55 @@
+# Drawing code stolen from here:
+#  http://www.rubyquiz.com/quiz104.html
+
+$:.unshift File.expand_path(File.dirname(__FILE__) + "/../../lib")
+$:.unshift File.expand_path(File.dirname(__FILE__) + "/../../ext")
+
+require 'ray'
+
+class Ray::Turtle
+  def koch(s, n)
+    if n < 1
+      forward s
+      return
+    end
+
+    koch(s / 3, n - 1)
+    left 60
+    koch(s / 3, n - 1)
+    right 120
+    koch(s / 3, n - 1)
+    left 60
+    koch(s / 3, n - 1)
+  end
+
+  def snowflake(s, n)
+    3.times do
+      koch(s, n)
+      right 120
+    end
+  end
+end
+
+Ray::Game.new("Turtle") do
+  register do
+    add_hook :quit, method(:exit!)
+  end
+
+  scene :koch do
+    render do |win|
+      win.fill(Ray::Color.black).turtle do
+        pen_up
+        center
+        backward 165
+        left 90
+        forward 95
+        right 90
+
+        pen_down
+        snowflake(350, 4)
+      end
+    end
+  end
+
+  push_scene :koch
+end

data/samples/turtle/mandala.rb

@@ -0,0 +1,61 @@
+# Drawing code stolen from here:
+#  http://www.rubyquiz.com/quiz104.html
+
+$:.unshift File.expand_path(File.dirname(__FILE__) + "/../../lib")
+$:.unshift File.expand_path(File.dirname(__FILE__) + "/../../ext")
+
+require 'ray'
+
+class Ray::Turtle
+  def polygon(r, n)
+    poly = []
+    theta = 360 * (PI / 180) / n
+
+    n.times do |k|
+      angle = k * theta
+      poly << [img.w / 2 + r * sin(angle),
+               img.h / 2 + r * cos(angle)]
+    end
+
+    poly
+  end
+
+  def ray(from, to)
+    pen_down
+    go_to(*to)
+
+    pen_up
+    go_to(*from)
+  end
+
+  def fan(from, others)
+    others.each { |to| ray from, to }
+  end
+
+  def mandala(r, n)
+    poly = polygon(r, n)
+
+    until poly.empty?
+      v = poly.shift
+      go_to(*v)
+      fan v, poly
+    end
+  end
+end
+
+Ray::Game.new("Turtle") do
+  register do
+    add_hook :quit, method(:exit!)
+  end
+
+  scene :mandala do
+    render do |win|
+      win.fill(Ray::Color.black).turtle do
+        pen_up
+        mandala(180, 24)
+      end
+    end
+  end
+
+  push_scene :mandala
+end