retrograph 0.2.1

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,133 @@
+require 'sdl'
+require 'retrograph'
+
+describe Retrograph do
+  constants = [
+    [:DISPLAY_WIDTH, 256],
+    [:DISPLAY_HEIGHT, 224],
+    [: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
+      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, 256, 224, 32,
+                                         RMASK, GMASK, BMASK, AMASK)
+      SDL::Surface.blit(raw_image, 0, 0, 256, 224, 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 have a surface with the right characteristics" do
+    surface = @vdu.surface
+    surface.should be_an_instance_of(SDL::Surface)
+    surface.flags.should == 0
+    surface.w.should == Retrograph::DISPLAY_WIDTH
+    surface.h.should == Retrograph::DISPLAY_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 return that surface each time from #render_frame" do
+    output = @vdu.render_frame
+    output.should == @vdu.surface
+  end
+
+  it "should not allow nested calls to #render_frame" do
+    lambda {
+      @vdu.render_frame { @vdu.render_frame }
+    }.should raise_error(Retrograph::RenderError, "Already in frame")
+  end
+
+  it "should not allow naked calls to #render_scanlines" do
+    lambda {
+      @vdu.render_scanlines(30)
+    }.should raise_error(Retrograph::RenderError, "Not in frame")
+  end
+
+  it "should allow calls to #render_scanlines within a frame" do
+    @vdu.render_frame { @vdu.render_scanlines(30) }
+  end
+
+  extend ImageTests
+  spec_dir = File.join(File.split(__FILE__).first,
+                            'image-specs')
+  build_image_specs(spec_dir)
+end