retrograph 0.5-x86-mswin32

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/image-specs/color-blue-bits.case

@@ -0,0 +1,2 @@
+should use color bits 0-1 for blue
+7f00: 03

data/spec/image-specs/color-green-bits.case

@@ -0,0 +1,2 @@
+should use color bits 2-3 for green
+7f00: 0c

data/spec/image-specs/color-red-bits.case

@@ -0,0 +1,2 @@
+should use color bits 4-5 for red
+7f00: 30

data/spec/image-specs/default-screen-black.case

@@ -0,0 +1 @@
+should fill the screen with black by default

data/spec/image-specs/default-screen-color-0.case

@@ -0,0 +1,2 @@
+should fill the screen with color 0 by default
+7f00: ff

data/spec/image-specs/scroll-mode1.case

@@ -0,0 +1,7 @@
+should support text-style scrolling in mode 1
+7ff8: 05
+7ffc: 0c 0c
+7f00: 00 ff
+0008: 01 03 07 0f 1f 3f 7f ff ff 7f 3f 1f 0f 07 03 01
+0800: 0101
+0840: 0102

data/spec/image-specs/scroll-mode2.case

@@ -0,0 +1,10 @@
+should support smooth scrolling in mode 2
+7ff8: 06
+7ffc: 0c 84
+7f00: 00 ff
+0010: 0001 0005 0015 0055  0155 0555 1555 5555
+0020: 5555 1555 0555 0155  0055 0015 0005 0001
+0030: 1111 4444 1111 4444  1111 4444 1111 4444
+0c00: 0002
+0ac0: 0001
+0b00: 0003

data/spec/image-specs/scroll-mode3.case

@@ -0,0 +1,10 @@
+should support smooth scrolling in mode 3
+7ff8: 07
+7ffc: 0c 84
+7f00: 00 ff
+0020: 00000001 00000011 00000111 00001111  00011111 00111111 01111111 11111111
+0040: 11111111 01111111 00111111 00011111  00001111 00000111 00000011 00000001
+0060: 01010101 10101010 01010101 10101010  01010101 10101010 01010101 10101010
+0c00: 0002
+0ac0: 0001
+0b00: 0003

data/spec/image-specs/sprites-doubling.case

@@ -0,0 +1,5 @@
+should render doubled sprites
+7ff8: 0b
+7f10: 00 3f
+7e00: 00 01 0001   10 01 0801  00 11 0401  10 11 0c01
+2020: 10101010 01010101 10101010 01010101  10101010 01010101 10101010 01010101

data/spec/image-specs/sprites-mode2.case

@@ -0,0 +1,8 @@
+should show first 8 sprites per line in mode 2
+7ff8: 0a
+7f10: 00 02 08 0a  20 22 38 2a  15 17 1d 1f  35 37 3d 3f
+7e00: 00 01 0001   08 01 0002  10 01 0101  18 01 0102
+7e10: 20 01 0201   28 01 0202  30 01 0301  38 01 0302
+7e20: 40 01 0001   48 01 0002  50 01 0001  58 01 0002
+2020: 11111111 11111111 11111111 11111111  11111111 11111111 11111111 11111111
+2040: 20202020 02020202 20202020 02020202  20202020 02020202 20202020 02020202

data/spec/image-specs/sprites-mode3.case

@@ -0,0 +1,8 @@
+should show first 8 sprites per line in mode 3
+7ff8: 0b
+7f10: 00 02 08 0a  20 22 38 2a  15 17 1d 1f  35 37 3d 3f
+7e00: 00 01 0001   08 01 0002  10 01 0101  18 01 0102
+7e10: 20 01 0201   28 01 0202  30 01 0301  38 01 0302
+7e20: 40 01 0001   48 01 0002  50 01 0001  58 01 0002
+2020: 11111111 11111111 11111111 11111111  11111111 11111111 11111111 11111111
+2040: 20202020 02020202 20202020 02020202  20202020 02020202 20202020 02020202

data/spec/image-specs/sprites-ordering.case

@@ -0,0 +1,5 @@
+should render lower-numbered sprites over higher-numbered ones
+7ff8: 0b
+7f10: 00 30 00 00  00 0c 00 00
+7e00: 00 01 0001  04 05 0101
+2020: 10101010 01010101 10101010 01010101  10101010 01010101 10101010 01010101

data/spec/image-specs/text-colors.case

@@ -0,0 +1,5 @@
+should allow setting cell fg and bg colors in text mode
+7ff8: 05
+7f00: 03 0c 30
+0000: ff ff ff ff 00 00 00 00
+0800: 1200

data/spec/image-specs/tile-attributes-mode2.case

@@ -0,0 +1,9 @@
+should implement tile attributes in mode 2
+7ff8: 06
+7f00: 00 02 08 0a  20 22 38 2a  15 17 1d 1f  35 37 3d 3f
+7f10: 3f 3d 37 35  1f 1d 17 15  2a 38 22 20  0a 08 02 00
+0010: 5500 5500 5500 5500  ffaa ffaa ffaa ffaa
+0800: 0001 0201 0401 0601  0801 0a01 0c01 0e01
+0840: 1001 1201 1401 1601  1801 1a01 1c01 1e01
+0880: 2001 2201 2401 2601  2801 2a01 2c01 2e01
+08c0: 3001 3201 3401 3601  3801 3a01 3c01 3e01

data/spec/image-specs/tile-attributes-mode3.case

@@ -0,0 +1,9 @@
+should implement tile attributes in mode 3
+7ff8: 07
+7f00: 00 02 08 0a  20 22 38 2a  15 17 1d 1f  35 37 3d 3f
+7f10: 3f 3d 37 35  1f 1d 17 15  2a 38 22 20  0a 08 02 00
+0020: 33221100 33221100 77665544 77665544  bbaa9988 bbaa9988 ffeeddcc ffeeddcc
+0800: 0001 0201 0401 0601  0801 0a01 0c01 0e01
+0840: 1001 1201 1401 1601  1801 1a01 1c01 1e01
+0880: 2001 2201 2401 2601  2801 2a01 2c01 2e01
+08c0: 3001 3201 3401 3601  3801 3a01 3c01 3e01

data/spec/retrograph_spec.rb

@@ -0,0 +1,134 @@
+require 'retrograph/sdl'
+
+describe Retrograph do
+  constants = [
+    [:DISPLAY_WIDTH, 256],
+    [:DISPLAY_HEIGHT, 224],
+    [:OUTPUT_WIDTH, 512],
+    [:OUTPUT_HEIGHT, 448],
+    [:BYTES_PER_PIXEL, 4],
+    [:BITS_PER_PIXEL, 32],
+    [:RED_SHIFT, 16],
+    [:GREEN_SHIFT, 8],
+    [:BLUE_SHIFT, 0],
+    [:RED_MASK, 0x00ff0000],
+    [:GREEN_MASK, 0x0000ff00],
+    [:BLUE_MASK, 0x000000ff],
+    [:ALPHA_MASK, 0x00000000]
+  ]
+  for name, value in constants
+    it "should define #{name} as #{value}" do
+      Retrograph.const_get(name).should == value
+    end
+  end
+end
+
+module ImageTests
+  RMASK = Retrograph::RED_MASK
+  GMASK = Retrograph::GREEN_MASK
+  BMASK = Retrograph::BLUE_MASK
+  AMASK = Retrograph::ALPHA_MASK
+
+  def build_image_specs(spec_dir)
+    Dir.open(spec_dir) do |dir|
+      dir.each do |name|
+        parts = name.split('.')
+        extension = parts.pop
+        next unless extension == 'case'
+        case_file = File.join(spec_dir, name)
+        parts.push 'png'
+        image_file = File.join(spec_dir, parts.join('.'))
+        build_image_spec(case_file, image_file)
+      end
+    end
+  end
+
+  def build_image_spec(case_file, image_file)
+    description = nil
+    writes = []
+
+    File.open(case_file, "r") do |stream|
+      description = stream.readline.strip
+      stream.each_line do |line|
+        offset, data = line.split(':').map { |t| t.strip }
+        data, offset = offset, nil unless data
+        data = data.split(/\s+/).map { |w| w.scan(/[a-zA-Z0-9]{2}/).reverse }
+        data = data.map { |w| [w.join('')].pack("H*") }.join('')
+        offset = Integer("0x#{offset}")
+        unless data.empty?
+          if offset
+            writes << [offset, data]
+          else
+            writes.last[1] << data
+          end
+        end
+      end
+    end
+
+    it description do
+      vdu = Retrograph::VDU.new
+      for offset, data in writes
+        vdu.write(offset, data)
+      end
+      output_image = vdu.render_frame_sdl
+      output_file = image_file.sub(/\.[^.]*$/, '-output.bmp')
+      output_image.save_bmp(output_file)
+
+      raw_image = SDL::Surface.load(image_file)
+      raw_image.set_alpha(0, SDL::ALPHA_OPAQUE)
+      raw_image.set_color_key(0, 0)
+      reference_image = SDL::Surface.new(0, raw_image.w, raw_image.h, 32,
+                                         RMASK, GMASK, BMASK, AMASK)
+      SDL::Surface.blit(raw_image, 0, 0, 0, 0, reference_image, 0, 0)
+      raw_image = nil
+      if output_image.pixels != reference_image.pixels
+        raise "Output does not match."
+      end
+    end
+  end
+end
+
+describe Retrograph::VDU do
+  before do
+    @vdu = Retrograph::VDU.new
+  end
+
+  it "should render to a surface with the right characteristics" do
+    surface = @vdu.render_frame_sdl
+    surface.should be_an_instance_of(SDL::Surface)
+    surface.flags.should == 0
+    surface.w.should == Retrograph::OUTPUT_WIDTH
+    surface.h.should == Retrograph::OUTPUT_HEIGHT
+    surface.bpp.should == Retrograph::BITS_PER_PIXEL
+    surface.Rmask.should == Retrograph::RED_MASK
+    surface.Gmask.should == Retrograph::GREEN_MASK
+    surface.Bmask.should == Retrograph::BLUE_MASK
+    surface.Amask.should == Retrograph::ALPHA_MASK
+  end
+
+  it "should have a write method which takes an offset and a byte string" do
+    @vdu.write(0x0001, "foobar")
+  end
+
+  it "should have a write_bytes method which takes an offset and a byte" do
+    @vdu.write_byte(0x0001, 42)
+  end
+
+  it "should not allow nested calls to #render_frame_sdl" do
+    lambda {
+      @vdu.render_frame_sdl { @vdu.render_frame_sdl }
+    }.should raise_error(Retrograph::RenderError, "Already in frame")
+  end
+
+  it "should allow naked calls to #wait_scanlines (as a noop)" do
+    @vdu.wait_scanlines(30)
+  end
+
+  it "should allow calls to #wait_scanlines within a frame" do
+    @vdu.render_frame_sdl { @vdu.wait_scanlines(30) }
+  end
+
+  extend ImageTests
+  spec_dir = File.join(File.split(__FILE__).first, 'image-specs')
+  build_image_specs(spec_dir)
+end