ray 0.1.0.pre1 → 0.1.0

data/samples/turtle/hilbert.rb

@@ -29,18 +29,23 @@ Ray::Game.new("Turtle") do
   end
 
   scene :hilbert do
+    img = Ray::Image.new window.size
+    img.turtle do
+      pen_up
+      left 90
+      backward 185
+      right 90
+      forward 185
+      left 90
+
+      pen_down
+      hilbert(10, 5, 1)
+    end
+
+    @sprite = sprite img
+
     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
+      win.draw @sprite
     end
   end
 

data/samples/turtle/koch.rb

@@ -36,18 +36,23 @@ Ray::Game.new("Turtle") do
   end
 
   scene :koch do
+    img = Ray::Image.new window.size
+    img.turtle do
+      pen_up
+      center
+      backward 165
+      left 90
+      forward 95
+      right 90
+
+      pen_down
+      snowflake(350, 4)
+    end
+
+    @sprite = sprite img
+
     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
+      win.draw @sprite
     end
   end
 

data/samples/turtle/mandala.rb

@@ -6,54 +6,59 @@ $:.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
+Ray::Game.new("Turtle") do
+  register do
+    add_hook :quit, method(:exit!)
   end
 
-  def ray(from, to)
-    pen_down
-    go_to(*to)
+  scene :mandala do
+    img = Ray::Image.new window.size
+    img.turtle do
+      def polygon(r, n)
+        center = target.clip.center
 
-    pen_up
-    go_to(*from)
-  end
+        poly = []
+        theta = 360 * (PI / 180) / n
 
-  def fan(from, others)
-    others.each { |to| ray from, to }
-  end
+        n.times do |k|
+          angle = k * theta
+          poly << [center.x + r * sin(angle),
+                   center.y + r * cos(angle)]
+        end
+
+        poly
+      end
 
-  def mandala(r, n)
-    poly = polygon(r, n)
+      def ray(from, to)
+        pen_down
+        go_to to
 
-    until poly.empty?
-      v = poly.shift
-      go_to(*v)
-      fan v, poly
+        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
+
+      pen_up
+      mandala(180, 24)
     end
-  end
-end
 
-Ray::Game.new("Turtle") do
-  register do
-    add_hook :quit, method(:exit!)
-  end
+    @sprite = sprite img
 
-  scene :mandala do
     render do |win|
-      win.fill(Ray::Color.black).turtle do
-        pen_up
-        mandala(180, 24)
-      end
+      win.draw @sprite
     end
   end
 

data/samples/turtle/tree.rb

@@ -41,15 +41,20 @@ Ray::Game.new("Turtle") do
   end
 
   scene :tree do
+    tree = Ray::Image.new window.size
+    tree.turtle do
+      pen_up
+      left 90
+      center
+      backward 180
+      pen_down
+      tree(240.0)
+    end
+
+    @sprite = sprite tree
+
     render do |win|
-      win.fill(Ray::Color.black).turtle do
-        pen_up
-        left 90
-        center
-        backward 180
-        pen_down
-        tree(240.0)
-      end
+      win.draw @sprite
     end
   end
 

data/samples/view/resize.rb

@@ -0,0 +1,26 @@
+$:.unshift File.expand_path(File.dirname(__FILE__) + "/../../lib")
+$:.unshift File.expand_path(File.dirname(__FILE__) + "/../../ext")
+
+require 'ray'
+
+def path_of(res)
+  File.expand_path File.join(File.dirname(__FILE__), '../../test/res', res)
+end
+
+Ray.game "Resizable window", :resizable => true do
+  register { add_hook :quit, method(:exit!) }
+
+  scene :view do
+    @sprite = sprite path_of("sprite.png")
+
+    on :window_resize do
+      window.view = window.default_view
+    end
+
+    render do |win|
+      win.draw @sprite
+    end
+  end
+
+  scenes << :view
+end

data/samples/view/view.rb

@@ -0,0 +1,35 @@
+$:.unshift File.expand_path(File.dirname(__FILE__) + "/../../lib")
+$:.unshift File.expand_path(File.dirname(__FILE__) + "/../../ext")
+
+require 'ray'
+
+def path_of(res)
+  File.expand_path File.join(File.dirname(__FILE__), '../../test/res', res)
+end
+
+Ray.game "View" do
+  register { add_hook :quit, method(:exit!) }
+
+  scene :view do
+    @sprite = sprite path_of("sprite.png")
+
+    @normal_view = window.default_view
+    @normal_view.center = @sprite.rect.size / 2
+
+    @zoomed_view = @normal_view.dup
+    @zoomed_view.viewport = [0.05, 0.05, 0.2, 0.2]
+    @zoomed_view.zoom_by [10, 10]
+
+    render do |win|
+      win.with_view @normal_view do
+        win.draw @sprite
+      end
+
+      win.with_view @zoomed_view do
+        win.draw @sprite
+      end
+    end
+  end
+
+  scenes << :view
+end

data/samples/window/all_events.rb

@@ -0,0 +1,44 @@
+# -*- coding: utf-8 -*-
+$:.unshift File.expand_path(File.dirname(__FILE__) + "/../../lib")
+$:.unshift File.expand_path(File.dirname(__FILE__) + "/../../ext")
+
+require 'ray'
+
+Ray.game "all events", :resizable => true do
+  register { add_hook :quit, method(:exit!) }
+
+  scene :main do
+    [
+     :quit,
+     :focus_gain, :focus_loss,
+     :mouse_entered, :mouse_left,
+     :mouse_motion, :wheel_motion,
+     :mouse_press, :mouse_release,
+     :key_press, :key_release,
+     :window_resize,
+     :text_entered
+    ].each do |name|
+      name_array = [name]
+      on name do |*args|
+        puts "received event: #{(name_array + args).inspect}"
+      end
+    end
+
+    on :window_resize do
+      window.view = window.default_view
+    end
+
+    on :text_entered do |text|
+      puts Ray::TextHelper.convert(text)
+    end
+
+    @obj = Ray::Polygon.rectangle [50, 100, 100, 50], Ray::Color.red
+
+    render do
+      window.clear Ray::Color.green
+      window.draw @obj
+    end
+  end
+
+  scenes << :main
+end

data/samples/window/change_title.rb

@@ -0,0 +1,16 @@
+$:.unshift File.expand_path(File.dirname(__FILE__) + "/../../lib")
+$:.unshift File.expand_path(File.dirname(__FILE__) + "/../../ext")
+
+require 'ray'
+
+Ray.game "Change title" do
+  register { add_hook :quit, method(:exit!) }
+
+  scene :main do
+    on :text_entered do |text|
+      window.title = text
+    end
+  end
+
+  scenes << :main
+end

data/samples/window/fullscreen.rb

@@ -0,0 +1,18 @@
+$:.unshift File.expand_path(File.dirname(__FILE__) + "/../../lib")
+$:.unshift File.expand_path(File.dirname(__FILE__) + "/../../ext")
+
+require 'ray'
+
+Ray.game "Fullscreen", :fullscreen => true, :size => Ray.screen_size do
+  register { add_hook :key_press, key(:q), method(:exit!) }
+
+  scene :main do
+    @text = text "Press q to leave", :size => 30
+
+    render do |win|
+      win.draw @text
+    end
+  end
+
+  scenes << :main
+end

data/samples/window/get_pixel.rb

@@ -0,0 +1,29 @@
+$:.unshift File.expand_path(File.dirname(__FILE__) + "/../../lib")
+$:.unshift File.expand_path(File.dirname(__FILE__) + "/../../ext")
+
+require 'ray'
+
+Ray.game "Get Pixels" do
+  register { add_hook :quit, method(:exit!) }
+
+  scene :main do
+    on :key_press, key(:a) do
+      puts "(0,   0)  == #{window[0, 0]}"
+      puts "(50,  50) == #{window[50, 50]}"
+      puts "(50, 430) == #{window[50, 430]}"
+    end
+
+    on :key_press, key(:p) do
+      window.to_image.write "screenshot.png"
+    end
+
+    @obj = Ray::Polygon.circle([50, 50], 10, Ray::Color.blue)
+
+    render do
+      window.clear Ray::Color.green
+      window.draw @obj
+    end
+  end
+
+  scenes << :main
+end

data/samples/window/icon.rb

@@ -0,0 +1,88 @@
+# -*- coding: utf-8 -*-
+$:.unshift File.expand_path(File.join(File.dirname(__FILE__), '../../ext'))
+$:.unshift File.expand_path(File.join(File.dirname(__FILE__), '../../lib'))
+
+def path_of(res)
+  File.expand_path File.join(File.dirname(__FILE__), '../../test/res', res)
+end
+
+require 'ray'
+
+Ray::Shader.use_old!
+
+img = Ray::Image.new [100, 100]
+
+target = Ray::ImageTarget.new
+target.image = img
+target.draw Ray::Polygon.rectangle([0, 0, 100, 100], Ray::Color.cyan)
+target.draw Ray::Text.new("Testing image targets!", :color => Ray::Color.red)
+target.update
+
+Ray.game "test", :size => [640, 480] do
+  register { add_hook :quit, method(:exit!) }
+
+  scene :test do
+    window.icon = img
+
+    self.frames_per_second = 60
+
+    # use deprecated-style shaders to ensure compatibility with old GPUs
+    window.shader.compile(:frag => StringIO.new(<<-frag))
+#version 110
+
+uniform sampler2D in_Texture;
+uniform bool in_TextureEnabled;
+
+varying vec4 var_Color;
+varying vec2 var_TexCoord;
+
+void main() {
+if (in_TextureEnabled)
+gl_FragColor = texture2D(in_Texture, var_TexCoord) * var_Color;
+else
+gl_FragColor = var_Color;
+
+float gray = dot(gl_FragColor.rgb, vec3(0.299, 0.587, 0.114));
+gl_FragColor = vec4(gray, gray, gray, gl_FragColor.a);
+}
+frag
+
+    @text = text <<eof.chomp, :size => 30, :style => [:italic, :underlined]
+Ce qui se conçoit bien s'énonce clairement
+Et les mots pour le dire arrivent aisément.
+eof
+
+    @poly = Ray::Polygon.rectangle @text.rect, Ray::Color.green
+
+    @sprite = sprite path_of("sprite.png")
+    @sprite.origin = @sprite.image.size / 2
+    @sprite.color = Ray::Color.new(255, 255, 255, 128)
+
+    always do
+      @sprite.pos += [2, 0] if holding? :right
+      @sprite.pos -= [2, 0] if holding? :left
+      @sprite.pos += [0, 2] if holding? :down
+      @sprite.pos -= [0, 2] if holding? :up
+
+      @sprite.angle += 1 if holding? :'6'
+      @sprite.angle -= 1 if holding? :'4'
+
+      @sprite.scale *= [1.1, 1.1] if holding? :'8'
+      @sprite.scale /= [1.1, 1.1] if holding? :'2'
+    end
+
+    on :key_press, key(:q) do
+      exit!
+    end
+
+    @sprite.shader = Ray::Shader.new
+
+    render do |win|
+      win.draw @poly
+      win.draw @sprite
+      win.draw @text
+    end
+  end
+
+  scenes << :test
+end