ashton 0.0.1alpha → 0.0.2alpha

data/lib/ashton/window_buffer.rb

@@ -0,0 +1,16 @@
+module Ashton
+  # A texture that is the same size as the Gosu::Window.
+  class WindowBuffer < Texture
+    def initialize
+      super $window.width, $window.height
+    end
+
+    public
+    # Copy the window contents into the buffer.
+    def capture
+      glBindTexture GL_TEXTURE_2D, id
+      glCopyTexImage2D GL_TEXTURE_2D, 0, GL_RGBA8, 0, 0, width, height, 0
+      self
+    end
+  end
+end

data/spec/ashton/ashton_spec.rb

@@ -0,0 +1,22 @@
+
+require_relative "../helper.rb"
+
+describe Ashton do
+  let(:accuracy) { 0.000001 }
+
+  describe "fast_sin" do
+    it "should give the same result as Math.sin" do
+      (-360..360).step 90 do |angle|
+        Ashton.fast_sin(angle).should be_within(accuracy).of Math.sin(angle.gosu_to_radians)
+      end
+    end
+  end
+
+  describe "fast_cos" do
+    it "should give the same result as Math.cos" do
+      (-360..360).step 90 do |angle|
+        Ashton.fast_cos(angle).should be_within(accuracy).of Math.cos(angle.gosu_to_radians)
+      end
+    end
+  end
+end

data/spec/ashton/gosu_ext/color_spec.rb

@@ -0,0 +1,34 @@
+require_relative "../../helper.rb"
+
+describe Gosu::Color do
+  let :conversions do
+    [
+        [Gosu::Color::RED,                  [1.0, 0.0, 0.0, 1.0]],
+        [Gosu::Color::GREEN,                [0.0, 1.0, 0.0, 1.0]],
+        [Gosu::Color::BLUE,                 [0.0, 0.0, 1.0, 1.0]],
+        [Gosu::Color.rgba(25, 50, 75, 125), [0.09803921568627451, 0.19607843137254902, 0.29411764705882354, 0.49019607843137253]],
+    ]
+  end
+
+  describe "to_opengl" do
+    it "should convert from Color to float array" do
+      conversions.each do |gosu, opengl|
+        gosu.to_opengl.should eq opengl
+      end
+    end
+  end
+
+  describe ".from_opengl" do
+    it "should create the expected Colors from a float array" do
+      conversions.each do |gosu, opengl|
+        Gosu::Color.from_opengl(opengl).should eq gosu
+      end
+    end
+  end
+
+  describe "to_i" do
+    it "should convert to an ARGB8 value" do
+      Gosu::Color.new(0x01234567).to_i.should eq 0x01234567
+    end
+  end
+end

data/spec/ashton/gosu_ext/font_spec.rb

@@ -0,0 +1,57 @@
+require_relative "../../helper.rb"
+
+describe Gosu::Font do
+  before :each do
+    $window = Gosu::Window.new 16, 16, false
+  end
+  let(:subject) { described_class.new $window, Gosu::default_font_name, 20 }
+  let(:shader) { Ashton::Shader.new }
+
+  describe "draw" do
+    it "should pass parameters through normally, without a hash" do
+      mock(subject).draw_without_hash "bleh", 1, 2, 3, 4, 5, 6, 7
+
+      subject.draw "bleh", 1, 2, 3, 4, 5, 6, 7
+    end
+
+    it "should pass parameters through normally, without :shader in the hash" do
+      mock(subject).draw_without_hash "bleh", 1, 2, 3, 4, 5, 6, 7
+
+      subject.draw "bleh", 1, 2, 3, 4, 5, 6, 7, shader: shader
+    end
+
+    it "should use the shader if supplied" do
+      mock(shader) do |m|
+        m.enable 3
+        m.disable 3
+      end
+      mock(subject).draw_without_hash "bleh", 1, 2, 3, 4, 5, 6, 7
+
+      subject.draw "bleh", 1, 2, 3, 4, 5, 6, 7, shader: shader
+    end
+  end
+
+  describe "draw_rel" do
+    it "should pass parameters through normally, without a hash" do
+      mock(subject).draw_rel_without_hash "bleh", 1, 2, 3, 4, 5, 6, 7, 8, 9
+
+      subject.draw_rel "bleh", 1, 2, 3, 4, 5, 6, 7, 8, 9
+    end
+
+    it "should pass parameters through normally, without :shader in the hash" do
+      mock(subject).draw_rel_without_hash "bleh", 1, 2, 3, 4, 5, 6, 7, 8, 9
+
+      subject.draw_rel "bleh", 1, 2, 3, 4, 5, 6, 7, 8, 9, shader: shader
+    end
+
+    it "should use the shader if supplied" do
+      mock(shader) do |m|
+        m.enable 3
+        m.disable 3
+      end
+      mock(subject).draw_rel_without_hash "bleh", 1, 2, 3, 4, 5, 6, 7, 8, 9
+
+      subject.draw_rel "bleh", 1, 2, 3, 4, 5, 6, 7, 8, 9, shader: shader
+    end
+  end
+end

data/spec/ashton/gosu_ext/gosu_spec.rb

@@ -0,0 +1,11 @@
+require_relative "../../helper.rb"
+
+describe Gosu do
+  describe "enable_undocumented_retrofication" do
+    it "should set Texture.pixelated? true" do
+      Ashton::Texture.should_not be_pixelated
+      Gosu.enable_undocumented_retrofication
+      Ashton::Texture.should be_pixelated
+    end
+  end
+end

data/spec/ashton/gosu_ext/image_spec.rb

@@ -0,0 +1,66 @@
+require_relative "../../helper.rb"
+
+describe Gosu::Image do
+  before :each do
+    $window = Gosu::Window.new 16, 16, false
+  end
+
+  let(:subject) { described_class.new $window, media_path("LargeStar.png") }
+
+  describe "draw" do
+    it "should pass parameters through normally, without a hash" do
+      mock(subject).draw_without_hash 0, 1, 2, 3, 4, 5
+
+      subject.draw 0, 1, 2, 3, 4, 5
+    end
+
+    it "should pass parameters through normally, without :shader in the hash" do
+      mock(subject).draw_without_hash 0, 1, 2, 3, 4, 5
+
+      subject.draw 0, 1, 2, 3, 4, 5, {}
+    end
+
+    it "should use the shader if supplied" do
+      mock(shader = Ashton::Shader.new) do |m|
+        m.enable 2
+        m.image = subject
+        m.disable 2
+      end
+      mock(subject).draw_without_hash 0, 1, 2, 3, 4, 5
+
+      subject.draw 0, 1, 2, 3, 4, 5, :shader => shader
+    end
+  end
+
+  describe "draw_rot" do
+    it "should pass parameters through normally, without a hash" do
+      mock(subject).draw_rot_without_hash 0, 1, 2, 3, 4, 5, 6, 7, 8
+
+      subject.draw_rot 0, 1, 2, 3, 4, 5, 6, 7, 8
+    end
+
+    it "should pass parameters through normally, without :shader in the hash" do
+      mock(subject).draw_rot_without_hash 0, 1, 2, 3, 4, 5, 6, 7, 8
+
+      subject.draw_rot 0, 1, 2, 3, 4, 5, 6, 7, 8, {}
+    end
+
+    it "should use the shader if supplied" do
+      mock(shader = Ashton::Shader.new) do |m|
+        m.enable 2
+        m.image = subject
+        m.disable 2
+      end
+      mock(subject).draw_rot_without_hash 0, 1, 2, 3, 4, 5, 6, 7, 8
+
+      subject.draw_rot 0, 1, 2, 3, 4, 5, 6, 7, 8, :shader => shader
+    end
+  end
+
+  describe "to_texture" do
+    it "should create a texture identical to the image" do
+      texture = subject.to_texture
+      texture.to_blob.should eq subject.to_blob
+    end
+  end
+end

data/spec/ashton/gosu_ext/window_spec.rb

@@ -0,0 +1,71 @@
+require_relative "../../helper.rb"
+
+describe Gosu::Window do
+  before :all do
+    $window ||= Gosu::Window.new 16, 16, false
+  end
+
+  # Class methods.
+
+  describe "Window.pixel" do
+    it "should be a 1x1 image" do
+      described_class.pixel.should be_kind_of Gosu::Image
+      described_class.pixel.width.should eq 1
+      described_class.pixel.height.should eq 1
+    end
+
+    it "should be white" do
+      described_class.pixel[0, 0].should eq [1.0, 1.0, 1.0, 1.0]
+    end
+  end
+
+  describe "Window.primary_buffer" do
+    it "should be a window sized buffer" do
+      described_class.primary_buffer.should be_kind_of Ashton::WindowBuffer
+    end
+  end
+
+  describe "Window.secondary_buffer" do
+    it "should be a window sized buffer" do
+      described_class.secondary_buffer.should be_kind_of Ashton::WindowBuffer
+    end
+
+    it "should not be the same as the primary buffer" do
+      described_class.secondary_buffer.should_not eq described_class.primary_buffer
+    end
+  end
+
+  # Instance methods
+
+  describe "post_process" do
+    pending
+  end
+
+  describe "pixel" do
+    it "should be a 1x1 image" do
+      $window.pixel.should be_kind_of Gosu::Image
+      $window.pixel.width.should eq 1
+      $window.pixel.height.should eq 1
+    end
+
+    it "should be white" do
+      $window.pixel[0, 0].should eq [1.0, 1.0, 1.0, 1.0]
+    end
+  end
+
+  describe "primary_buffer" do
+    it "should be a window sized buffer" do
+      $window.primary_buffer.should be_kind_of Ashton::WindowBuffer
+    end
+  end
+
+  describe "secondary_buffer" do
+    it "should be a window sized buffer" do
+      $window.secondary_buffer.should be_kind_of Ashton::WindowBuffer
+    end
+
+    it "should not be the same as the primary buffer" do
+      $window.secondary_buffer.should_not eq $window.primary_buffer
+    end
+  end
+end

data/spec/ashton/image_stub_spec.rb

@@ -0,0 +1,46 @@
+require_relative "../helper.rb"
+
+describe Ashton::ImageStub do
+  describe "#initialize" do
+    it "should fail if the blob data is not the expected size" do
+      lambda do
+        described_class.new "\0\0\0", 2, 3
+      end.should raise_error ArgumentError, /Expected blob to be 24 bytes/
+    end
+
+    it "should fail width <= 0" do
+      lambda do
+        described_class.new "\0\0\0\0", 0, 2
+      end.should raise_error ArgumentError, /Width must be >= 1 pixel/
+    end
+
+    it "should fail height <= 0" do
+      lambda do
+        described_class.new "\0\0\0\0", 2, 0
+      end.should raise_error ArgumentError, /Height must be >= 1 pixel/
+    end
+  end
+
+  context "instantiated" do
+    let(:two_by_three_blob) { 24.times.to_a.pack("C*") }
+    let(:subject) { described_class.new two_by_three_blob, 2, 3 }
+
+    describe "#to_blob" do
+      it "should return the blob given" do
+        subject.to_blob.should eq two_by_three_blob
+      end
+    end
+
+    describe "#columns" do
+      it "should equal the width of the blob" do
+        subject.columns.should eq 2
+      end
+    end
+
+    describe "#rows" do
+      it "should equal the height of the blob" do
+        subject.rows.should eq 3
+      end
+    end
+  end
+end

data/spec/ashton/particle_emitter_spec.rb

@@ -0,0 +1,123 @@
+require_relative "../helper.rb"
+
+# Values and their defaults. The deviations default to 0.
+FLOATS_WITH_RANGE = {
+    angular_velocity: 0.0..0.0,
+    center_x: 0.5..0.5,
+    center_y: 0.5..0.5,
+    fade: 0.0..0.0,
+    friction: 0.0..0.0,
+    interval: Float::INFINITY..Float::INFINITY,
+    scale: 1.0..1.0,
+    speed: 0.0..0.0,
+    time_to_live: Float::INFINITY..Float::INFINITY,
+    zoom: 0.0..0.0,
+}
+
+describe Ashton::ParticleEmitter do
+  before :all do
+    $window ||= Gosu::Window.new 16, 16, false
+    # Need not to create a large number of these.
+    @emitter = described_class.new 1, 2, 3
+  end
+
+  let(:default_max) { 1000 }
+  let(:subject) { @emitter }
+
+  describe "initialize" do
+    [:x, :y, :z].each.with_index(1) do |attr, value|
+      it "should set #{attr}" do
+        subject.send(attr).should be_kind_of Float
+        subject.send(attr).should eq value
+      end
+    end
+
+    FLOATS_WITH_RANGE.each_pair do |attr, expected|
+      it "should set #{attr}" do
+        subject.send(attr).should be_kind_of Range
+        subject.send(attr).should eq expected
+      end
+    end
+
+    it "should be set max_particles" do
+      subject.max_particles.should be_kind_of Fixnum
+      subject.max_particles.should eq default_max
+    end
+
+    it "should not have any particles" do
+      subject.count.should eq 0
+    end
+
+    it "should have color set to white" do
+      subject.color.should eq Gosu::Color::WHITE
+    end
+  end
+
+  [:x, :y, :z].each.with_index(1) do |attr, value|
+    describe "#{attr}=" do
+      it "should set the value of #{attr}" do
+        ->{ subject.send "#{attr}=", value + 5.0 }.should change(subject, attr).from(value).to(value + 5)
+      end
+    end
+  end
+
+  FLOATS_WITH_RANGE.keys.each do |attr|
+    describe "#{attr}=" do
+      it "should set #{attr} with a number" do
+        subject.send("#{attr}=", 42.0).should eq 42.0
+        subject.send("#{attr}").should eq 42.0..42.0
+      end
+
+      it "should set #{attr} with a range" do
+        subject.send("#{attr}=", 42.0..99.0).should eq 42.0..99.0
+        subject.send("#{attr}").should eq 42.0..99.0
+      end
+    end
+  end
+
+  describe "color=" do
+    it "should set color" do
+      (subject.color = Gosu::Color::BLACK).should eq Gosu::Color::BLACK
+      subject.color.should eq Gosu::Color::BLACK
+    end
+  end
+
+  describe "draw" do
+    it "should respond to #draw" do
+      subject.draw
+    end
+  end
+
+  describe "emit" do
+    it "should create one more particle" do
+      ->{ subject.emit }.should change(subject, :count).from(0).to(1)
+    end
+
+    it "should replace a particle if we are already at max particles" do
+      (default_max + 1).times { subject.emit }
+      subject.count.should eq default_max
+    end
+  end
+
+  describe "update" do
+    it "should an appropriate number of particles" do
+      subject = described_class.new 1, 2, 3, interval: 0.001
+      mock(subject).emit.times 16
+      subject.update 1.0 / 60.0 # 16.66667 ms
+    end
+
+    it "should not emit a particle if delta is less than interval" do
+      subject = described_class.new 1, 2, 3, interval: 0.020
+      dont_allow(subject).emit
+      subject.update 1.0 / 60.0 # 16.66667 ms
+    end
+
+    it "should fail given a negative delta" do
+      ->{ subject.update -1 }.should raise_error ArgumentError, "delta must be >= 0"
+    end
+
+    it "should fail for a bad delta type" do
+      ->{ subject.update "fred" }.should raise_error TypeError
+    end
+  end
+end