retrograph_easy 0.1

data/lib/retrograph/easy/logo.rb

@@ -0,0 +1,287 @@
+# retrograph/easy/logo - the retrograph logo display magic
+# 
+# Copyright (c) 2009  MenTaLguY <mental@rydia.net>
+# 
+# Permission is hereby granted, free of charge, to any person obtaining a copy
+# of this software and associated documentation files (the "Software"), to deal
+# in the Software without restriction, including without limitation the rights
+# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+# copies of the Software, and to permit persons to whom the Software is
+# furnished to do so, subject to the following conditions:
+# 
+# The above copyright notice and this permission notice shall be included in
+# all copies or substantial portions of the Software.
+# 
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+# AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+# OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
+# THE SOFTWARE.
+#
+
+module Retrograph
+module Easy
+
+class Logo
+  def initialize(app)
+    @app = app
+  end
+
+  def show
+    @app.reset_vdu
+
+    @app.vdu_mode 0x7
+
+    # setup palette
+    @app.palette_entry_rgb 0, 0, 0, 0
+    @app.palette_entry_rgb 1, 255, 0, 0
+
+    # setup patterns
+    @app.tile_pattern_4bit(0x0000, START_PATTERN, PATTERN_DATA)
+
+    num_characters = CHARACTERS.size
+
+    start_row = (28 - 4) / 2 - 2
+    start_col = (32 - (num_characters * 2)) / 2
+    name_base = (start_col + start_row * 32) * 2
+
+    # setup name table
+    @app.write_vdu(0x0800 + name_base, LETTER_NAME_DATA)
+    name_base += 64
+    prepare_led_characters(name_base, num_characters)
+
+    # start display loop
+    characters = [0] * num_characters
+    delay = 9
+    for revealed in 0..num_characters
+      @app.each_of_n_frames(delay) do
+        characters.map! { rand(127) + 1 }
+        characters[0, revealed] = CHARACTERS[0, revealed]
+        show_led_characters(name_base, characters)
+      end
+      delay = 1
+    end
+  end
+
+  def prepare_led_characters(name_base, count)
+    count.times do
+      prepare_led_character(name_base)
+      name_base += 4
+    end
+  end
+
+  def prepare_led_character(name_base)
+    @app.write_vdu_byte(0x0800 + name_base + 3, 0b00100000)
+    @app.write_vdu_byte(0x0800 + name_base + 67, 0b00100000)
+    @app.write_vdu_byte(0x0800 + name_base + 129, 0b00010000)
+    @app.write_vdu_byte(0x0800 + name_base + 131, 0b00110000)
+  end
+
+  def show_led_characters(name_base, cs)
+    cs.each do |c|
+      show_led_character(name_base, c)
+      name_base += 4
+    end
+  end
+
+  def show_led_character(name_base, c)
+    for (name_offset, index, mappings) in CHAR_BIT_MAPPINGS
+      for (mask, shift) in mappings
+        index += (c & mask) >> shift
+      end
+      @app.write_vdu_byte(0x0800 + name_base + name_offset, index)
+    end
+  end
+end
+
+Logo::START_PATTERN = 1
+
+ma_pattern = [
+  0x00000000,
+  0x01001010,
+  0x10101110,
+  0x11101110,
+  0x10101010,
+  0x10101010,
+  0x00000000,
+  0x00000000
+].pack("V8")
+
+de_pattern = [
+  0x00000000,
+  0x11100110,
+  0x00101010,
+  0x01101010,
+  0x00101010,
+  0x11100110,
+  0x00000000,
+  0x00000000
+].pack("V8")
+
+wi_pattern = [
+  0x00000000,
+  0x10101000,
+  0x10101000,
+  0x10101000,
+  0x10111000,
+  0x10111000,
+  0x00000000,
+  0x00000000
+].pack("V8")
+
+th_pattern = [
+  0x00000000,
+  0x10101110,
+  0x10100100,
+  0x11100100,
+  0x10100100,
+  0x10100100,
+  0x00000000,
+  0x00000000
+].pack("V8")
+
+letter_patterns = [
+  ma_pattern,
+  de_pattern,
+  wi_pattern,
+  th_pattern
+]
+
+letter_pattern_offset = Logo::START_PATTERN
+n_letter_patterns = letter_patterns.size
+
+blank = [
+  0x00000000,
+  0x00000000,
+  0x00000000,
+  0x00000000,
+  0x00000000,
+  0x00000000,
+  0x00000000,
+  0x00000000
+]
+
+corner_horizontal = [
+  0x00000000,
+  0x11111000,
+  0x11110000,
+  0x11100000,
+  0x00000000,
+  0x00000000,
+  0x00000000,
+  0x00000000
+]
+
+corner_vertical = [
+  0x00000000,
+  0x00000000,
+  0x00000010,
+  0x00000110,
+  0x00001110,
+  0x00001110,
+  0x00001110,
+  0x00001110
+]
+
+raw_corner_images = [
+  corner_vertical,
+  corner_horizontal
+]
+
+corner_pattern_offset = letter_pattern_offset + n_letter_patterns
+n_corner_patterns = 1 << raw_corner_images.size
+
+middle_horizontal = [
+  0x00000000,
+  0x00000000,
+  0x11110000,
+  0x11111000,
+  0x11110000,
+  0x00000000,
+  0x00000000,
+  0x00000000
+]
+
+middle_vertical_top = [
+  0x00001110,
+  0x00000110,
+  0x00000010,
+  0x00000000,
+  0x00000000,
+  0x00000000,
+  0x00000000,
+  0x00000000
+]
+
+middle_vertical_bottom = [
+  0x00000000,
+  0x00000000,
+  0x00000000,
+  0x00000000,
+  0x00000010,
+  0x00000110,
+  0x00001110,
+  0x00001110
+]
+
+raw_middle_images = [
+  middle_vertical_bottom,
+  middle_vertical_top,
+  middle_horizontal
+]
+
+middle_pattern_offset = corner_pattern_offset + n_corner_patterns
+n_middle_patterns = 1 << raw_middle_images.size
+
+Logo::LETTER_NAME_DATA = (0...n_letter_patterns).map { |i|
+  [ i + letter_pattern_offset, 0 ]
+}.flatten.pack("C*")
+
+led_patterns = [raw_corner_images, raw_middle_images].map { |raw_images|
+  bits = raw_images.size
+  (0...(1 << bits)).map { |i|
+    image = blank
+    for bit in 0...bits
+      if ((i >> bit) & 1).nonzero?
+        image = image.zip(raw_images[bit]).map { |a, b| a | b }
+      end
+    end
+    image.pack("V8")
+  }
+}
+
+Logo::PATTERN_DATA = [letter_patterns, led_patterns].flatten.inject("") { |a, b| a + b }
+
+Logo::CHARACTERS = [
+  0b00100010, # r
+  0b01111110, # e
+  0b00111010, # t
+  0b00100010, # r
+  0b00110011, # o
+  0b01111101, # g
+  0b00100010, # r
+  0b01110111, # a
+  0b01101110, # P
+  0b00101011  # h
+]
+
+Logo::CHAR_BIT_MAPPINGS = [
+  [0, corner_pattern_offset, [[0b01000000, 5], [0b00001000, 3]]],
+  [2, corner_pattern_offset, [[0b01000000, 5], [0b00000100, 2]]],
+  [64, middle_pattern_offset, [[0b00100000, 3], [0b00001000, 2], [0b00000010, 1]]],
+  [66, middle_pattern_offset, [[0b00100000, 3], [0b00000100, 1], [0b00000001, 0]]],
+  [128, corner_pattern_offset, [[0b00010000, 3], [0b00000010, 1]]],
+  [130, corner_pattern_offset, [[0b00010000, 3], [0b00000001, 0]]]
+]
+
+class App
+  def show_retrograph_logo
+    Logo.new(self).show
+    self
+  end
+end
+
+end
+end

data/lib/retrograph/easy/periodic.rb

@@ -0,0 +1,99 @@
+# retrograph/easy/periodic
+# 
+# Copyright (c) 2009  MenTaLguY <mental@rydia.net>
+# 
+# Permission is hereby granted, free of charge, to any person obtaining a copy
+# of this software and associated documentation files (the "Software"), to deal
+# in the Software without restriction, including without limitation the rights
+# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+# copies of the Software, and to permit persons to whom the Software is
+# furnished to do so, subject to the following conditions:
+# 
+# The above copyright notice and this permission notice shall be included in
+# all copies or substantial portions of the Software.
+# 
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+# AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+# OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
+# THE SOFTWARE.
+#
+
+module Retrograph
+module Easy
+
+class Periodic
+  def initialize(interval, phases)
+    @count = 0
+    @interval = interval.to_i
+    @period = @interval * phases.to_i
+  end
+
+  def phase
+    @count / @interval
+  end
+
+  def firing?
+    (@count % @interval).zero?
+  end
+
+  def tick
+    @count = (@count + 1) % @period
+    nil
+  end
+end
+
+class PeriodicManager
+  def initialize
+    @named_periodics = {}
+  end
+
+  def start(label, interval, phases)
+    label = label.to_sym
+    periodic = Periodic.new(interval, phases)
+    @named_periodics[label] = periodic
+    nil
+  end
+
+  def stop(label)
+    label = label.to_sym
+    @named_periodics.delete label
+    nil
+  end
+
+  def frame_for?(label)
+    label = label.to_sym
+    begin
+      periodic = @named_periodics.fetch label
+    rescue IndexError
+      return false
+    end
+    periodic.firing?
+  end
+
+  def already?(label)
+    label = label.to_sym
+    @named_periodics.has_key? label
+  end
+
+  def phase_of(label)
+    label = label.to_sym
+    begin
+      periodic = @named_periodics.fetch label
+    rescue IndexError
+      return 0
+    end
+    periodic.phase
+  end
+
+  def tick
+    @named_periodics.each_value do |periodic|
+      periodic.tick
+    end
+  end
+end
+
+end
+end

data/lib/retrograph/easy/sprites.rb

@@ -0,0 +1,133 @@
+# retrograph/easy/sprites
+# 
+# Copyright (c) 2009  MenTaLguY <mental@rydia.net>
+# 
+# Permission is hereby granted, free of charge, to any person obtaining a copy
+# of this software and associated documentation files (the "Software"), to deal
+# in the Software without restriction, including without limitation the rights
+# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+# copies of the Software, and to permit persons to whom the Software is
+# furnished to do so, subject to the following conditions:
+# 
+# The above copyright notice and this permission notice shall be included in
+# all copies or substantial portions of the Software.
+# 
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+# AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+# OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
+# THE SOFTWARE.
+#
+
+class String
+  if instance_methods.include? :get_byte # 1.9
+    alias_method :_retrograph_get_byte, :get_byte
+  else
+    alias_method :_retrograph_get_byte, :[]
+  end
+  if instance_methods.include? :set_byte # 1.9
+    alias_method :_retrograph_set_byte, :set_byte
+  else
+    alias_method :_retrograph_set_byte, :[]=
+  end
+end
+
+module Retrograph
+module Easy
+
+class SpriteManager
+  BLANK_SPRITES = ("\000" * 256).freeze
+
+  def initialize(display)
+    @display = display
+    @sprite_data = "\000" * 4
+    @data_offset = 0
+    @flip_flags = 0
+    @other_flags = 0
+    @x_exp = 0
+    @y_exp = 0
+    @x = 0
+    @y = 0
+    @mirror_x = 0
+    @mirror_y = 0
+  end
+
+  def add_sprite_group(x, y, width, height, flags)
+    saved_flip_flags = @flip_flags
+    saved_other_flags = @other_flags
+    saved_x_exp = @x_exp
+    saved_y_exp = @y_exp
+    saved_x = @x
+    saved_y = @y
+    saved_mirror_x = @mirror_x
+    saved_mirror_y = @mirror_y
+    begin
+      x = @mirror_x - x if (@flip_flags & 0b00100000).nonzero?
+      y = @mirror_y - y if (@flip_flags & 0b00010000).nonzero?
+      @x = (x << @x_exp) + @x
+      @y = (y << @y_exp) + @y
+      @flip_flags ^= flags & 0b00110000
+      @other_flags |= flags & 0b00001111
+      @x_exp = (@flip_flags & 0b00001000) >> 3
+      @y_exp = (@flip_flags & 0b00000100) >> 2
+      @mirror_x = (width << @x_exp) - (8 << @x_exp)
+      @mirror_y = (height << @y_exp) - (8 << @y_exp)
+      yield
+    rescue
+      @flip_flags = saved_flip_flags
+      @other_flags = saved_other_flags
+      @x_exp = saved_x_exp
+      @y_exp = saved_y_exp
+      @x = saved_x
+      @y = saved_y
+      @mirror_x = saved_mirror_x
+      @mirror_y = saved_mirror_y
+    end
+    nil
+  end
+
+  def add_multi_sprite(x, y, pattern, width_tiles, height_tiles, flags)
+    add_sprite_group(x, y, width_tiles << 3, height_tiles << 3, flags) do
+      row = 0
+      while row < height_tiles
+        col = 0
+        while col < width_tiles
+          add_sprite(x + (col << 3), y + (row << 3), (pattern + col) & 0xff, 0)
+          col += 1
+        end
+        pattern += 32
+        row += 1
+      end
+    end
+    nil
+  end
+
+  def add_sprite(x, y, pattern, flags)
+    return nil unless @data_offset < 256
+    x = @mirror_x - x if (@flip_flags & 0b00100000).nonzero?
+    y = @mirror_y - y if (@flip_flags & 0b00010000).nonzero?
+    x = (x << @x_exp) + @x
+    y = (y << @y_exp) + @y
+    if x >= 0 and x < 256 and y >= 0 and y < 224
+      flags = (flags ^ @flip_flags) | @other_flags
+      @sprite_data._retrograph_set_byte(0, x)
+      @sprite_data._retrograph_set_byte(1, y + 1)
+      @sprite_data._retrograph_set_byte(2, pattern)
+      @sprite_data._retrograph_set_byte(3, flags)
+      @display.write_vdu(0x7e00 + @data_offset, @sprite_data)
+    end
+    @data_offset += 4
+    nil
+  end
+
+  def clear_sprites
+    @display.write_vdu(0x7e00, BLANK_SPRITES)
+    @data_offset = 0
+    self
+  end
+end
+
+end
+end

data/lib/retrograph/easy.rb

@@ -0,0 +1,32 @@
+# retrograph/easy
+# 
+# Copyright (c) 2009  MenTaLguY <mental@rydia.net>
+# 
+# Permission is hereby granted, free of charge, to any person obtaining a copy
+# of this software and associated documentation files (the "Software"), to deal
+# in the Software without restriction, including without limitation the rights
+# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+# copies of the Software, and to permit persons to whom the Software is
+# furnished to do so, subject to the following conditions:
+# 
+# The above copyright notice and this permission notice shall be included in
+# all copies or substantial portions of the Software.
+# 
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+# AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+# OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
+# THE SOFTWARE.
+#
+
+require 'retrograph/easy/constants'
+require 'retrograph/easy/app'
+require 'retrograph/easy/logo'
+
+def Retrograph.app(&block)
+  Retrograph::Easy.app do
+    self.instance_eval(&block)
+  end
+end

data/lib/retrograph/sdl.rb

@@ -0,0 +1,26 @@
+# retrograph/sdl
+# 
+# Copyright (c) 2009  MenTaLguY <mental@rydia.net>
+# 
+# Permission is hereby granted, free of charge, to any person obtaining a copy
+# of this software and associated documentation files (the "Software"), to deal
+# in the Software without restriction, including without limitation the rights
+# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+# copies of the Software, and to permit persons to whom the Software is
+# furnished to do so, subject to the following conditions:
+# 
+# The above copyright notice and this permission notice shall be included in
+# all copies or substantial portions of the Software.
+# 
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+# AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+# OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
+# THE SOFTWARE.
+
+require 'retrograph'
+require 'sdl'
+
+Retrograph._init_sdl

data/lib/retrograph.rb

@@ -0,0 +1,29 @@
+# retrograph
+# 
+# Copyright (c) 2009  MenTaLguY <mental@rydia.net>
+# 
+# Permission is hereby granted, free of charge, to any person obtaining a copy
+# of this software and associated documentation files (the "Software"), to deal
+# in the Software without restriction, including without limitation the rights
+# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+# copies of the Software, and to permit persons to whom the Software is
+# furnished to do so, subject to the following conditions:
+# 
+# The above copyright notice and this permission notice shall be included in
+# all copies or substantial portions of the Software.
+# 
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+# AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+# OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
+# THE SOFTWARE.
+#
+
+# augment search path for fat binary gems
+ruby_version = /^\d+\.\d+/.match(RUBY_VERSION)[0]
+base_dir = File.dirname(__FILE__)
+$:.push File.join(base_dir, ruby_version)
+
+require 'retrograph.so'

data/spec/easy_spec.rb

@@ -0,0 +1,6 @@
+require 'retrograph/easy'
+
+describe Retrograph::Easy do
+  it "should exist" do
+  end
+end

metadata

@@ -0,0 +1,83 @@
+--- !ruby/object:Gem::Specification 
+name: retrograph_easy
+version: !ruby/object:Gem::Version 
+  version: "0.1"
+platform: ruby
+authors: 
+- MenTaLguY <mental@rydia.net>
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2009-07-24 00:00:00 -04:00
+default_executable: 
+dependencies: 
+- !ruby/object:Gem::Dependency 
+  name: retrograph
+  type: :runtime
+  version_requirement: 
+  version_requirements: !ruby/object:Gem::Requirement 
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        version: "0.5"
+    version: 
+description: |
+  Retrograph/EASY is a simple API built atop Retrograph, a software renderer
+  which simulates a late-era 8-bit display with capabilities similar to those
+  of the Sega Master System.
+
+email: mental@rydia.net
+executables: []
+
+extensions: []
+
+extra_rdoc_files: []
+
+files: 
+- Rakefile
+- README
+- COPYING
+- lib/retrograph.rb
+- lib/retrograph/easy.rb
+- lib/retrograph/sdl.rb
+- lib/retrograph/easy/app.rb
+- lib/retrograph/easy/logo.rb
+- lib/retrograph/easy/constants.rb
+- lib/retrograph/easy/display.rb
+- lib/retrograph/easy/controllers.rb
+- lib/retrograph/easy/sprites.rb
+- lib/retrograph/easy/periodic.rb
+- spec/easy_spec.rb
+- demos/defense.rb
+- demos/logo.rb
+has_rdoc: true
+homepage: http://rubyforge.org/projects/retrograph
+licenses: []
+
+post_install_message: 
+rdoc_options: []
+
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+requirements: []
+
+rubyforge_project: retrograph
+rubygems_version: 1.3.4
+signing_key: 
+specification_version: 3
+summary: Retrograph/EASY, a simple API for Retrograph games.
+test_files: []
+