retrograph_easy 0.1

data/COPYING

@@ -0,0 +1,19 @@
+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.

data/README

@@ -0,0 +1,13 @@
+== What is Retrograph? ==
+
+Retrograph is a Ruby library which emulates the video
+display unit from a hypothetical late-80s 8-bit game
+console.  It is similar in capability to the Sega Master
+System's VDP, with some additional features and direct
+support for text modes.
+
+== What is Retrograph/EASY? ==
+
+Retrograph/EASY is a simple API for creating games based
+on Retrograph.  Currently, it is based atop Ruby/SDL, but
+support for other backends may be possible in the future.

data/Rakefile

@@ -0,0 +1,64 @@
+require 'rake'
+require 'rake/gempackagetask'
+begin
+  require 'spec/rake/spectask'
+  have_rspec = true
+rescue LoadError
+  $stderr.puts "*** The rspec gem is required to run specs. ***"
+  have_rspec = false
+end
+require 'rake/clean'
+
+GEM_VERSION = '0.1'
+
+task :clobber => [:clean]
+
+gemspec = Gem::Specification.new do |gemspec|
+  gemspec.name = "retrograph_easy"
+  gemspec.version = GEM_VERSION
+  gemspec.author = "MenTaLguY <mental@rydia.net>"
+  gemspec.summary = "Retrograph/EASY, a simple API for Retrograph games."
+  gemspec.description = <<EOS
+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.
+EOS
+  gemspec.homepage = "http://rubyforge.org/projects/retrograph"
+  gemspec.email = "mental@rydia.net"
+  gemspec.rubyforge_project = 'retrograph'
+  gemspec.files = FileList['Rakefile', 'README', 'COPYING', 'lib/**/*.rb',
+                           'spec/**/*_spec.rb', 'spec/**/*.case',
+                           'spec/**/*.png', 'demos/**/*.rb']
+  gemspec.require_paths = ['lib']
+  gemspec.platform = Gem::Platform::RUBY
+  gemspec.add_dependency("retrograph", ">= 0.5")
+end
+
+Rake::GemPackageTask.new(gemspec) do |pkg|
+  pkg.need_tar = true
+end
+
+def make_demo_task(taskname, filename)
+  namespace :demo do
+    desc "Run the #{taskname} demo"
+    task taskname.intern do
+      system 'ruby', '-Ilib', filename
+    end
+  end
+end
+
+for filename in Dir.glob('demos/*.rb')
+  basename = File.basename(filename)
+  extension = File.extname(basename)
+  taskname = basename[0...(-extension.size)]
+  make_demo_task(taskname, filename)
+end
+
+if have_rspec
+  Spec::Rake::SpecTask.new do |task|
+    task.ruby_opts << '-rrubygems'
+    task.libs << 'lib'
+    task.spec_files = FileList["spec/**/*_spec.rb"]
+  end
+  task :default => [:clean, :spec]
+end

data/demos/defense.rb

@@ -0,0 +1,413 @@
+# Earth Defense
+# 
+# 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 'rubygems'
+require 'retrograph/easy'
+
+SHIP_PATTERN = [
+  0x00022000,
+  0x00222200,
+  0x02200220,
+  0x22200222,
+  0x22222222,
+  0x22033022,
+  0x20033002,
+  0x00033000
+].pack("V8")
+
+SHOT_PATTERN = [
+  0x00000000,
+  0x00044000,
+  0x00044000,
+  0x00044000,
+  0x00044000,
+  0x00044000,
+  0x00044000,
+  0x00000000
+].pack("V8")
+
+ENEMY_PATTERN = [
+  0x00000000,
+  0x00000000,
+  0x11000011,
+  0x01100110,
+  0x00111100,
+  0x11100111,
+  0x01111110,
+  0x00100100
+].pack("V8")
+
+ENEMY_PATTERN2 = [
+  0x00000000,
+  0x01000010,
+  0x01100110,
+  0x01100110,
+  0x00111100,
+  0x11100111,
+  0x01111110,
+  0x01000010
+].pack("V8")
+
+EXPLOSION_PATTERN = [
+  0x00030000,
+  0x30030030,
+  0x03300300,
+  0x00333033,
+  0x30333330,
+  0x03303300,
+  0x03000330,
+  0x30000030
+].pack("V8")
+
+AMMO_FULL_PATTERN = [
+  0x00000000,
+  0x04444440,
+  0x04444440,
+  0x04444440,
+  0x04444440,
+  0x04444440,
+  0x04444440,
+  0x00000000
+].pack("V8")
+
+AMMO_EMPTY_PATTERN = [
+  0x00000000,
+  0x04444440,
+  0x04000040,
+  0x04000040,
+  0x04000040,
+  0x04000040,
+  0x04444440,
+  0x00000000
+].pack("V8")
+
+DIGIT_PATTERNS = [
+  0x00555550,
+  0x05500055,
+  0x05550055,
+  0x05505055,
+  0x05500555,
+  0x05500055,
+  0x00555550,
+  0x00000000,
+
+  0x00055000,
+  0x00055500,
+  0x00055000,
+  0x00055000,
+  0x00055000,
+  0x00055000,
+  0x00555500,
+  0x00000000,
+
+  0x00555550,
+  0x05500055,
+  0x05500000,
+  0x00550000,
+  0x00005500,
+  0x00000550,
+  0x05555555,
+  0x00000000,
+
+  0x00555550,
+  0x05500055,
+  0x05500000,
+  0x00555000,
+  0x05500000,
+  0x05500055,
+  0x00555550,
+  0x00000000,
+
+  0x00550000,
+  0x00555000,
+  0x00550500,
+  0x00550550,
+  0x05555555,
+  0x00550000,
+  0x05555000,
+  0x00000000,
+
+  0x05555555,
+  0x00000055,
+  0x00555555,
+  0x05500055,
+  0x05500000,
+  0x05500055,
+  0x00555550,
+  0x00000000,
+
+  0x00555550,
+  0x05500055,
+  0x00000055,
+  0x00555555,
+  0x05500055,
+  0x05500055,
+  0x00555550,
+  0x00000000,
+
+  0x05555555,
+  0x00550055,
+  0x00055000,
+  0x00055000,
+  0x00005500,
+  0x00005500,
+  0x00055550,
+  0x00000000,
+
+  0x00555550,
+  0x05500055,
+  0x05500055,
+  0x00555550,
+  0x05500055,
+  0x05500055,
+  0x00555550,
+  0x00000000,
+
+  0x00555550,
+  0x05500055,
+  0x05500055,
+  0x05555550,
+  0x05500000,
+  0x05500055,
+  0x00555550,
+  0x00000000
+].pack("V*")
+
+MAX_SHOTS = 3
+MAX_LIVES = 5
+SCORE_DIGITS = 7
+
+SHIP_PATTERN_INDEX = 1
+SHOT_PATTERN_INDEX = 2
+ENEMY_PATTERN_INDEX = 3
+EXPLOSION_PATTERN_INDEX = 5
+AMMO_PATTERN_INDEX = 6
+DIGIT_PATTERN_INDEX = 8
+
+BG_COLOR = 0
+ENEMY_COLOR = 17
+SHIP_COLOR = 18
+FIRE_COLOR = 19
+SHOT_COLOR = 20
+SCORE_COLOR = 21
+
+class Entity < Struct.new :x, :y, :health
+  def alive?
+    health > 0
+  end
+
+  def dead?
+    not alive?
+  end
+
+  def kill
+    self.health = 0
+    self
+  end
+end
+
+def main_game
+  lives = MAX_LIVES
+  score = 0
+  ship = Entity.new 128, 200, 1
+  shots = []
+  enemies = []
+  escaped_enemies = []
+  explosions = []
+
+  controller = controllers[0]
+
+  start :spawning_enemies, 50
+  start :enemy_animation, 10, 2
+  start :flickering, 3, 2
+
+  lives_name_offset = 0x0800 + (26 * 32 + 2) * 2
+  ammo_name_offset = 0x0800 + (26 * 32 + (32 - 2 - MAX_SHOTS)) * 2
+  score_name_offset = 0x0800 + (2 * 32 + (32 - 2 - SCORE_DIGITS)) * 2
+
+  for life in 0...MAX_LIVES
+    write_vdu_byte(lives_name_offset+life*2+1, 0b01001001)
+  end
+  for shot in 0...MAX_SHOTS
+    write_vdu_byte(ammo_name_offset+shot*2+1, 0b01001001)
+  end
+  for digit in 0...SCORE_DIGITS
+    write_vdu_byte(score_name_offset+digit*2+1, 0b01001001)
+  end
+
+  each_frame do
+    break unless lives >= 0
+
+    if controller.b_pressed?
+      start :firing, 6 unless already? :firing
+    else
+      stop :firing
+    end
+
+    hvelocity = controller.horizontal * 3
+    ship.x += hvelocity
+    if hvelocity > 0
+      ship.x = 256-4 if ship.x >= (256-4)
+    elsif hvelocity < 0
+      ship.x = 4 if ship.x <= 4
+    end
+
+    explosions.each do |explosion|
+      explosion.health -= 1
+    end
+    shots.each do |shot|
+      shot.y -= 6
+    end
+    enemies.each do |enemy|
+      enemy.y += 1
+    end
+    escaped_enemies.each do |enemy|
+      enemy.y += 1
+    end
+
+    enemies.each do |enemy|
+      next unless enemy.alive?
+      shots.each do |shot|
+        next unless shot.alive?
+        if (shot.x - enemy.x).abs < 4 and (shot.y - enemy.y).abs < 4
+          shot.kill
+          enemy.kill
+          explosions.push Entity.new(enemy.x, enemy.y, 5)
+          score += 15
+          break
+        end
+      end
+      if enemy.alive?
+        if (ship.x - enemy.x).abs < 8 and (ship.y - enemy.y).abs < 6
+          lives -= 1
+          enemy.kill
+          explosions.push Entity.new(enemy.x, enemy.y, 5)
+          score -= 100
+          score = 0 if score < 0
+        elsif enemy.y > (ship.y + 4)
+          lives -= 1 
+          enemy.kill
+          escaped_enemies.push Entity.new(enemy.x, enemy.y, 1)
+          score -= 50
+          score = 0 if score < 0
+        end
+      end
+    end
+
+    explosions.reject! { |e| e.dead? }
+    shots.reject! { |s| s.y < 0 or s.dead? }
+    enemies.reject! { |e| e.dead? }
+    escaped_enemies.reject! { |e| e.y >= 224 }
+
+    if frame_for? :firing and shots.size < MAX_SHOTS
+      shots.push Entity.new(ship.x, ship.y, 1)
+    end
+
+    if frame_for? :spawning_enemies
+      enemies.push Entity.new(rand(224)+16, 0, 1)
+    end
+
+    for life in 0...lives
+      write_vdu_byte(lives_name_offset+life*2, SHIP_PATTERN_INDEX)
+    end
+    for life in lives...MAX_LIVES
+      write_vdu_byte(lives_name_offset+life*2, 0)
+    end
+
+    for shot in 0...(shots.size)
+      write_vdu_byte(ammo_name_offset+shot*2, AMMO_PATTERN_INDEX+1)
+    end
+    for shot in (shots.size)...MAX_SHOTS
+      write_vdu_byte(ammo_name_offset+shot*2, AMMO_PATTERN_INDEX)
+    end
+
+    score_accum = score
+    for digit in 0...SCORE_DIGITS
+      offset = (SCORE_DIGITS-digit-1)*2
+      digit_value = score_accum % 10
+      write_vdu_byte(score_name_offset+offset, DIGIT_PATTERN_INDEX + digit_value)
+      score_accum /= 10
+    end
+
+    clear_sprites
+    explosions.each do |explosion|
+      sprite explosion.x - 4, explosion.y - 4, EXPLOSION_PATTERN_INDEX, 0
+    end
+    sprite ship.x - 4, ship.y - 4, SHIP_PATTERN_INDEX, 0
+    shots.each do |shot|
+      sprite shot.x - 4, shot.y - 4, SHOT_PATTERN_INDEX, 0
+    end
+    enemy_phase = phase_of :enemy_animation
+    enemies.each do |enemy|
+      sprite enemy.x - 4, enemy.y - 4, ENEMY_PATTERN_INDEX + enemy_phase, 0
+    end
+    escaped_enemies.each do |enemy|
+      sprite enemy.x - 4, enemy.y - 4, ENEMY_PATTERN_INDEX + enemy_phase, 0
+    end
+
+    if frame_for? :flickering
+      case phase_of :flickering
+      when 0
+        palette_entry_rgb FIRE_COLOR, 0xff, 0xaa, 0x00
+        palette_entry_rgb SHOT_COLOR, 0x55, 0xaa, 0xff
+      when 1
+        palette_entry_rgb FIRE_COLOR, 0xff, 0xff, 0x00
+        palette_entry_rgb SHOT_COLOR, 0x00, 0x55, 0xff
+      end
+    end
+
+    wait_scanlines 208
+
+    palette_entry_rgb FIRE_COLOR, 0xff, 0xaa, 0x00
+    palette_entry_rgb SHOT_COLOR, 0x00, 0x55, 0xff
+  end
+end
+
+Retrograph.app do
+  title "Earth Defense"
+
+  show_retrograph_logo
+  each_of_n_frames(25) do
+    break if controllers.first.start_pressed?
+  end
+
+  reset_vdu
+  vdu_mode 0x0f # mode 3 + sprites + bg
+
+  sprite_pattern(0x0000, SHIP_PATTERN_INDEX, SHIP_PATTERN)
+  sprite_pattern(0x0000, SHOT_PATTERN_INDEX, SHOT_PATTERN)
+  sprite_pattern(0x0000, ENEMY_PATTERN_INDEX, ENEMY_PATTERN)
+  sprite_pattern(0x0000, ENEMY_PATTERN_INDEX+1, ENEMY_PATTERN2)
+  sprite_pattern(0x0000, EXPLOSION_PATTERN_INDEX, EXPLOSION_PATTERN)
+  sprite_pattern(0x0000, AMMO_PATTERN_INDEX, AMMO_FULL_PATTERN)
+  sprite_pattern(0x0000, AMMO_PATTERN_INDEX+1, AMMO_EMPTY_PATTERN)
+  sprite_pattern(0x0000, DIGIT_PATTERN_INDEX, DIGIT_PATTERNS)
+
+  palette_entry_rgb BG_COLOR, 0x55, 0x55, 0x55
+  palette_entry_rgb ENEMY_COLOR, 0xaa, 0x00, 0x00
+  palette_entry_rgb SHIP_COLOR, 0xaa, 0xaa, 0xaa
+  palette_entry_rgb SCORE_COLOR, 0xff, 0xff, 0xff
+
+  loop do
+    main_game
+  end
+end

data/demos/logo.rb

@@ -0,0 +1,34 @@
+# Retrograph logo demo
+# 
+# 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 'rubygems'
+require 'retrograph/easy'
+
+Retrograph.app do
+  title "Retrograph Logo"
+  loop do
+    show_retrograph_logo
+    each_frame do
+      break if controllers.first.start_pressed?
+    end
+  end
+end