ray 0.1.0.pre1 → 0.1.0

data/samples/sokoban/level_1

@@ -1,7 +1,11 @@
- ####
- #  ###
- # $$ #
-##... #
-#  @$ #
-#   ###
-#####
+    #####
+    #   #
+    #o  #
+  ###  o##
+  #  o o #
+### # ## #   ######
+#   # ## #####  ..#
+# o  o          ..#
+##### ### #@##  ..#
+    #     #########
+    #######

data/samples/sokoban/sokoban.rb

@@ -11,7 +11,7 @@ module Sokoban
     include Enumerable
 
     def self.open(filename)
-      level = Kernel.open(filename) { |io| new(io) }
+      level = File.open(filename) { |io| new(io) }
 
       if block_given?
         yield level
@@ -39,6 +39,7 @@ module Sokoban
 
     def []=(x, y, value)
       @objects[y][x] = value
+      raise_event :tile_changed, self, x, y, value if raiser_runner
     end
 
     attr_reader :character_pos
@@ -148,14 +149,18 @@ module Sokoban
     def parse_content
       @objects = []
 
-      @content.each_line do |line|
+      @content.each_line.with_index do |line, y|
         @objects << []
 
-        line.chomp.each_char do |char|
+        line.chomp.each_char.with_index do |char, x|
           @objects.last << char_to_object(char)
         end
       end
 
+      each_with_pos do |obj, x, y|
+        raise_event :tile_changed, self, x, y, obj if raiser_runner
+      end
+
       @character_pos = find_character_pos
       self
     end
@@ -163,7 +168,7 @@ module Sokoban
     def check_solved
       if !include? :crate
         @solved = true
-        raise_event(:level_solved, self)
+        raise_event(:level_solved, self) if raiser_runner
       else
         @solved = false
       end
@@ -250,13 +255,20 @@ module Sokoban
   class LevelScene < Ray::Scene
     scene_name :sokoban_level
 
-    TILE_WIDTH = 32
+    TileWidth = 32
 
     def setup(filename)
       @filename = filename
       @level = Level.open(filename)
 
-      self.loops_per_second = 60
+      @tiles = []
+      @level.each_with_pos do |obj, x, y|
+        obj = Ray::Polygon.rectangle([0, 0, TileWidth, TileWidth], color_for(obj),
+                                     1, Ray::Color.black)
+        obj.pos = [TileWidth * x, TileWidth * y]
+
+        (@tiles[y] ||= [])[x] = obj
+      end
     end
 
     def register
@@ -268,88 +280,49 @@ module Sokoban
 
           if @level.can_move?(dir)
             @level.move(dir)
-            need_render!
           end
         end
       end
 
       on :key_press, key(:r) do
         next if @level.solved?
-
         @level.reset
-        need_render!
       end
 
       on :key_press, key(:u) do
         next if @level.solved?
-
         @level.undo
-        need_render!
       end
 
       on :level_solved do
         puts "Level solved!"
         pop_scene
       end
+
+      on :tile_changed do |level, x, y, value|
+        color = color_for(value)
+        @tiles[y][x].each { |point| point.color = color }
+      end
     end
 
     def render(win)
-      reset_window(win)
-
-      @level.each_with_pos do |obj, x, y|
-        case obj
-        when :man then draw_man(win, x, y)
-        when :crate then draw_crate(win, x, y)
-        when :wall then draw_wall(win, x, y)
-        when :storage then draw_storage(win, x, y)
-        when :crate_on_storage then draw_crate_on_storage(win, x, y)
-        when :man_on_storage then draw_man_on_storage(win, x, y)
-        when :empty then draw_empty_tile(win, x, y)
+      @tiles.each do |line|
+        line.each do |tile|
+          win.draw tile
         end
       end
     end
 
-    def reset_window(win)
-      win.fill(Ray::Color.black)
-    end
-
-    def draw_man(win, x, y)
-      draw_rect(win, x, y, Ray::Color.white)
-    end
-
-    def draw_crate(win, x, y)
-      draw_rect(win, x, y, Ray::Color.gray)
-    end
-
-    def draw_wall(win, x, y)
-      draw_rect(win, x, y, Ray::Color.new(91, 59, 17))
-    end
-
-    def draw_storage(win, x, y)
-      draw_rect(win, x, y, Ray::Color.yellow)
-    end
-
-    def draw_crate_on_storage(win, x, y)
-      draw_rect(win, x, y, Ray::Color.green)
-    end
-
-    def draw_man_on_storage(win, x, y)
-      draw_rect(win, x, y, Ray::Color.red)
-    end
-
-    def draw_empty_tile(win, x, y)
-      draw_rect(win, x, y, Ray::Color.black)
-    end
-
-    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]
+    def color_for(obj)
+      case obj
+      when :man              then Ray::Color.white
+      when :crate            then Ray::Color.gray
+      when :wall             then Ray::Color.new(91, 59, 17)
+      when :storage          then Ray::Color.yellow
+      when :crate_on_storage then Ray::Color.green
+      when :man_on_storage   then Ray::Color.red
+      when :empty            then Ray::Color.black
+      end
     end
   end
 

data/samples/starfighter/starfighter.rb

@@ -0,0 +1,159 @@
+# Ported from the Gosu tutorial by Spooner
+
+$:.unshift File.expand_path(File.dirname(__FILE__) + "/../../lib")
+$:.unshift File.expand_path(File.dirname(__FILE__) + "/../../ext")
+
+require 'ray'
+require 'forwardable'
+
+def path_of(resource)
+  File.expand_path File.join(File.dirname(File.dirname(__FILE__)), resource)
+end
+
+class Player
+  include Ray::Helper
+
+  extend Forwardable
+  def_delegators :@sprite, :x, :y, :x=, :y=, :pos, :pos=
+
+  attr_reader :score, :window, :sprite
+
+  def initialize(stars)
+    @stars = stars
+    @sprite = Ray::Sprite.new path_of("_media/Starfighter.png")
+    @sprite.origin = @sprite.image.size / 2
+
+    @beep = sound path_of("_media/Beep.wav")
+
+    @vel_x = @vel_y = 0.0
+
+    @score = 0
+  end
+
+  def register(scene)
+    self.event_runner = scene.event_runner
+    @window = scene.window
+  end
+
+  def update
+    if holding? key(:up)
+      @vel_x += Math::sin(@sprite.angle / (180 / Math::PI)) * 0.5
+      @vel_y -= Math::cos(@sprite.angle / (180 / Math::PI)) * 0.5
+    end
+
+    if holding? key(:left)
+      @sprite.angle -= 4.5
+    end
+
+    if holding? key(:right)
+      @sprite.angle += 4.5
+    end
+
+    move
+
+    collect_stars
+  end
+
+  def warp(position)
+    @sprite.pos = position
+  end
+
+  def move
+    self.pos += [@vel_x, @vel_y]
+    self.x %= window.size.width
+    self.y %= window.size.height
+
+    @vel_x *= 0.95
+    @vel_y *= 0.95
+  end
+
+  def collect_stars
+    @stars.reject! do |star|
+      if pos.dist(star.pos) < 35 then
+        @score += 10
+        @beep.play
+        true
+      else
+        false
+      end
+    end
+  end
+end
+
+class Star
+  include Ray::Helper
+
+  extend Forwardable
+  def_delegators :@sprite, :x, :y, :x=, :y=, :pos
+
+  attr_reader :sprite
+
+  def initialize(position)
+    @sprite = Ray::Sprite.new path_of("_media/Star.png"), :at => position
+    @sprite.sheet_size = [10, 1]
+    @sprite.origin = (@sprite.image.size / @sprite.sheet_size) / 2
+    @animation = sprite_animation(:from => [0, 0], :to => [9, 0],
+                                  :duration => 2).start(@sprite)
+
+    color = Ray::Color.white
+    color.red   = rand(255 - 40) + 40
+    color.green = rand(255 - 40) + 40
+    color.blue  = rand(255 - 40) + 40
+    @sprite.color = color
+  end
+
+  def register(scene)
+    self.event_runner = scene.event_runner
+    @animation.event_runner = event_runner
+
+    on :animation_end, @animation do
+      @animation.start @sprite
+    end
+  end
+
+  def update
+    @animation.update
+  end
+end
+
+Ray::Game.new("Starfighter --- [LEFT/RIGHT/UP to move; collect the stars]") do
+  register do
+    add_hook :quit, method(:exit!)
+  end
+
+  scene :game do
+    @background_image = sprite path_of("_media/Space.png")
+    @score_text = text("", :at => [10, 10], :size => 20,
+                       :color => Ray::Color.yellow)
+
+    @stars = Array.new
+
+    @player = Player.new @stars
+    @player.register self
+    @player.warp(window.size / 2)
+
+    add_hook :key_press, key(:escape), method(:exit!)
+
+    always do
+      if rand(100) < 4 and @stars.size < 25 then
+        star = Star.new [window.size.width * rand, window.size.height * rand]
+        star.register self
+        @stars << star
+      end
+
+      @stars.each(&:update)
+      @player.update
+
+      @score_text.string = "Score: #{@player.score}"
+    end
+
+    render do |win|
+      win.draw @background_image
+      @stars.each {|star| win.draw star.sprite }
+      win.draw @player.sprite
+      win.draw @score_text
+    end
+  end
+
+  scenes << :game
+end

data/samples/test/actual_scene.rb

@@ -7,7 +7,7 @@ class AwesomeScene < Ray::Scene
   scene_name :awesome_scene
 
   def setup
-    @cursor = Ray::Shape.rectangle [-10, -10, 20, 20], Ray::Color.red
+    @cursor = Ray::Polygon.rectangle [-10, -10, 20, 20], Ray::Color.red
   end
 
   def register
@@ -17,7 +17,7 @@ class AwesomeScene < Ray::Scene
   end
 
   def render(win)
-    @cursor.draw_on win
+    win.draw @cursor
   end
 
   attr_reader :cursor
@@ -28,7 +28,7 @@ class AwesomeGame < Ray::Game
     super "Hello world!", :size => [600, 600]
 
     AwesomeScene.bind(self)
-    push_scene :awesome_scene
+    scenes << :awesome_scene
   end
 
   def register

data/samples/test/scene_riot.rb

@@ -10,7 +10,7 @@ context AwesomeScene do
 
   setup do
     @game = AwesomeGame.new
-    @scene = @game.registred_scene(:awesome_scene)
+    @scene = @game.registered_scene(:awesome_scene)
 
     @scene.register
     @scene.setup
@@ -30,10 +30,10 @@ context AwesomeScene do
   end
 
   asserts "draws its cursor" do
-    stub(topic.cursor).draw_on
-    topic.render Ray.screen
+    stub(topic.window).draw
+    topic.render topic.window
 
-    received(topic.cursor).draw_on(is_a(Ray::Image)).call
+    received(topic.window).draw(topic.cursor).call
     true
   end
 end

data/samples/test/scene_spec.rb

@@ -4,7 +4,7 @@ require 'actual_scene'
 describe AwesomeScene do
   before :each do
     @game = AwesomeGame.new
-    @scene = @game.registred_scene(:awesome_scene)
+    @scene = @game.registered_scene(:awesome_scene)
 
     @scene.register
     @scene.setup
@@ -22,8 +22,8 @@ describe AwesomeScene do
   end
 
   it "draws its cursor" do
-    @scene.cursor.should_receive(:draw_on)
-    @scene.render Ray.screen
+    @scene.window.should_receive(:draw, @scene.cursor)
+    @scene.render @scene.window
   end
 
   after :each do

data/samples/test/scene_test_unit.rb

@@ -6,7 +6,7 @@ require 'test/unit'
 class AwesomeSceneTest < Test::Unit::TestCase
   def setup
     @game = AwesomeGame.new
-    @scene = @game.registred_scene(:awesome_scene)
+    @scene = @game.registered_scene(:awesome_scene)
 
     @scene.register
     @scene.setup

data/samples/turtle/byzantium.rb

@@ -32,12 +32,17 @@ Ray::Game.new("Turtle") do
   end
 
   scene :byzantium do
+    img = Ray::Image.new window.size
+    img.turtle do
+      pen_up
+      center
+      byzantium(100, 5)
+    end
+
+    @sprite = sprite img
+
     render do |win|
-      win.fill(Ray::Color.black).turtle do
-        pen_up
-        center
-        byzantium(100, 4)
-      end
+      win.draw @sprite
     end
   end