geometry-in-ruby 0.0.1

data/test/geometry/line.rb

@@ -0,0 +1,132 @@
+require 'minitest/autorun'
+require 'geometry/line'
+
+describe Geometry::Line do
+    Line = Geometry::Line
+    Point = Geometry::Point
+
+    describe "when initializing" do
+	it "must accept two named points" do
+	    line = Line.new(from:Point[0,0], to:Point[10,10])
+	    line.must_be_kind_of(Line)
+	    line.must_be_instance_of(Geometry::TwoPointLine)
+	    line.first.must_equal Point[0,0]
+	    line.last.must_equal Point[10,10]
+	end
+
+	it "must accept named start and end points" do
+	    line = Line.new(start:Point[0,0], end:Point[10,10])
+	    line.must_be_kind_of(Line)
+	    line.must_be_instance_of(Geometry::TwoPointLine)
+	    line.first.must_equal Point[0,0]
+	    line.last.must_equal Point[10,10]
+	end
+
+	it "must raise an exception when no arguments are given" do
+	    -> { Line.new }.must_raise ArgumentError
+	end
+    end
+
+    it "create a Line object from 2 Points" do
+	line = Geometry::Line[Geometry::Point[0,0], Geometry::Point[10,10]]
+	assert_kind_of(Geometry::Line, line)
+	assert_kind_of(Geometry::TwoPointLine, line)
+    end
+    it "create a Line object from two arrays" do
+	line = Geometry::Line[[0,0], [10,10]]
+	assert(line.is_a?(Geometry::Line))
+	assert_kind_of(Geometry::TwoPointLine, line)
+	assert_kind_of(Geometry::Point, line.first)
+	assert_kind_of(Geometry::Point, line.last)
+    end
+    it "create a Line object from two Vectors" do
+	line = Geometry::Line[Vector[0,0], Vector[10,10]]
+	assert(line.is_a?(Geometry::Line))
+	assert_kind_of(Geometry::TwoPointLine, line)
+    end
+
+    it "create a Line from a slope and y-intercept" do
+	line = Geometry::Line[0.75, 5]
+	assert(line.is_a?(Geometry::Line))
+	assert_kind_of(Geometry::SlopeInterceptLine, line)
+	assert_equal(5, line.intercept)
+	assert_equal(0.75, line.slope)
+    end
+
+    it "create a Line from a Rational slope and y-intercept" do
+	line = Geometry::Line[Rational(3,4), 5]
+	assert_kind_of(Geometry::SlopeInterceptLine, line)
+	assert(line.is_a?(Geometry::Line))
+	assert_equal(Rational(3,4), line.slope)
+    end
+
+    it "have a special constructor for horizontal lines" do
+	line = Geometry::Line.horizontal
+	assert(line.horizontal?)
+    end
+    it "have a special constructor for vertical lines" do
+	line = Geometry::Line.vertical
+	assert(line.vertical?)
+    end
+
+    it "have accessor for y-intercept" do
+	line = Geometry::Line[0.75, 5]
+	assert_equal(5, line.intercept)
+	assert_equal(5, line.intercept(:y))
+    end
+    it "have accessor for x-intercept" do
+	line = Geometry::Line.vertical(7)
+	assert_equal(7, line.intercept(:x))
+    end
+
+    it "return the correct x-intercept for vertical lines" do
+	line = Geometry::Line.vertical(7)
+	assert_equal(7, line.intercept(:x))
+    end
+    it "return the correct y-intercept for horizontal lines" do
+	line = Geometry::Line.horizontal(4)
+	assert_equal(4, line.intercept(:y))
+    end
+
+    it "return nil x-intercept for horizontal lines" do
+	line = Geometry::Line.horizontal
+	assert_nil(line.intercept(:x))
+    end
+    it "return nil y-intercept for vertical lines" do
+	line = Geometry::Line.vertical
+	assert_nil(line.intercept(:y))
+    end
+
+    it "implement inspect" do
+	line = Geometry::Line[[0,0], [10,10]]
+	assert_equal('Line(Point[0, 0], Point[10, 10])', line.inspect)
+    end
+    it "implement to_s" do
+	line = Geometry::Line[[0,0], [10,10]]
+	assert_equal('Line(Point[0, 0], Point[10, 10])', line.to_s)
+    end
+end
+
+describe Geometry::PointSlopeLine do
+    subject { Geometry::PointSlopeLine.new [1,2], 3 }
+
+    it "must have a slope attribute" do
+	subject.slope.must_equal 3
+    end
+end
+
+describe Geometry::SlopeInterceptLine do
+    subject { Geometry::SlopeInterceptLine.new 3, 2 }
+
+    it "must have a slope attribute" do
+	subject.slope.must_equal 3
+    end
+end
+
+describe Geometry::TwoPointLine do
+    subject { Geometry::TwoPointLine.new [1,2], [3,4] }
+
+    it "must have a slope attribute" do
+	subject.slope.must_equal 1
+    end
+end

data/test/geometry/obround.rb

@@ -0,0 +1,25 @@
+require 'minitest/autorun'
+require 'geometry/obround'
+
+describe Geometry::Obround do
+    Obround = Geometry::Obround
+
+    describe "when constructed" do
+	it "must accept two Points" do
+	    obround = Geometry::Obround.new [1,2], [3,4]
+	    obround.must_be_kind_of Geometry::Obround
+	end
+
+	it "must accept a width and height" do
+	    obround = Geometry::Obround.new 2, 3
+	    obround.must_be_kind_of Geometry::Obround
+	    obround.height.must_equal 3
+	    obround.width.must_equal 2
+	end
+
+	it "must compare equal" do
+	    obround = Geometry::Obround.new [1,2], [3,4]
+	    obround.must_equal Obround.new([1,2], [3,4])
+	end
+    end
+end

data/test/geometry/path.rb

@@ -0,0 +1,66 @@
+require 'minitest/autorun'
+require 'geometry/path'
+
+describe Geometry::Path do
+    describe "construction" do
+	it "must create a Path with no arguments" do
+	    path = Geometry::Path.new
+	    path.must_be_kind_of Geometry::Path
+	    path.elements.wont_be_nil
+	    path.elements.size.must_equal 0
+	end
+
+	it "must create a Path from Points" do
+	    path = Geometry::Path.new Point[1,1], Point[2,2], Point[3,3]
+	    path.elements.size.must_equal 2
+	    path.elements.each {|a| a.must_be_kind_of Geometry::Edge }
+	end
+
+	it "with connected Edges" do
+	    path = Geometry::Path.new Edge.new([1,1], [2,2]), Edge.new([2,2], [3,3])
+	    path.elements.size.must_equal 2
+	    path.elements.each {|a| a.must_be_kind_of Geometry::Edge }
+	end
+
+	it "with disjoint Edges" do
+	    path = Geometry::Path.new Edge.new([1,1], [2,2]), Edge.new([3,3], [4,4])
+	    path.elements.size.must_equal 3
+	    path.elements.each {|a| a.must_be_kind_of Geometry::Edge }
+	end
+
+	it "with Points and Arcs" do
+	    path = Geometry::Path.new [0,0], [1.0,0.0], Arc.new(center:[1,1], radius:1, start:-90*Math::PI/180, end:0), [2.0,1.0], [1,2]
+	    path.elements.size.must_equal 3
+	    path.elements[0].must_be_kind_of Geometry::Edge
+	    path.elements[1].must_be_kind_of Geometry::Arc
+	    path.elements[2].must_be_kind_of Geometry::Edge
+	end
+
+	it "with Edges and Arcs" do
+	    path = Geometry::Path.new Edge.new([0,0], [1.0,0.0]), Arc.new(center:[1,1], radius:1, start:-90*Math::PI/180, end:0), Edge.new([2.0,1.0], [1,2])
+	    path.elements.size.must_equal 3
+	    path.elements[0].must_be_kind_of Geometry::Edge
+	    path.elements[1].must_be_kind_of Geometry::Arc
+	    path.elements[2].must_be_kind_of Geometry::Edge
+	end
+
+	it "with disjoint Edges and Arcs" do
+	    path = Geometry::Path.new Edge.new([0,0], [1,0]), Arc.new(center:[2,1], radius:1, start:-90*Math::PI/180, end:0), Edge.new([3,1], [1,2])
+	    path.elements.size.must_equal 4
+	    path.elements[0].must_be_kind_of Geometry::Edge
+	    path.elements[1].must_be_kind_of Geometry::Edge
+	    path.elements[2].must_be_kind_of Geometry::Arc
+	    path.elements[3].must_be_kind_of Geometry::Edge
+	end
+
+	it "with disjoint Arcs" do
+	    path = Geometry::Path.new Arc.new(center:[2,1], radius:1, start:-90*Math::PI/180, end:0), Arc.new(center:[3,1], radius:1, start:-90*Math::PI/180, end:0)
+	    path.elements.size.must_equal 3
+	    path.elements[0].must_be_kind_of Geometry::Arc
+	    path.elements[1].must_be_kind_of Geometry::Edge
+	    path.elements[2].must_be_kind_of Geometry::Arc
+
+	    path.elements[0].last.must_equal path.elements[1].first
+	end
+    end
+end

data/test/geometry/point.rb

@@ -0,0 +1,258 @@
+require 'minitest/autorun'
+require 'geometry/point'
+
+describe Geometry::Point do
+    PointZero = Geometry::PointZero
+
+    describe "class methods" do
+	it "must generate a PointZero" do
+	    Point.zero.must_be_instance_of(PointZero)
+	end
+
+	it "must generate a Point full of zeros" do
+	    Point.zero(3).must_equal Point[0,0,0]
+	end
+    end
+
+    describe "constructor" do
+	it "must return the Point when constructed from a Point" do
+	    original_point = Point[3,4]
+	    point = Geometry::Point[original_point]
+	    point.must_be_same_as original_point
+	    point.size.must_equal 2
+	    point.x.must_equal 3
+	    point.y.must_equal 4
+	end
+
+	it "must return the PointZero when constructed from a PointZero" do
+	    original_point = Geometry::PointZero.new
+	    point = Geometry::Point[original_point]
+	    point.must_be_same_as original_point
+	end
+    end
+
+    it "create a Point object from an array" do
+	point = Geometry::Point[[3,4]]
+	assert_equal(2, point.size)
+	assert_equal(3, point.x)
+	assert_equal(4, point.y)
+    end
+    it "create a Point object from individual parameters" do
+	point = Geometry::Point[3,4]
+	assert_equal(2, point.size)
+	assert_equal(3, point.x)
+	assert_equal(4, point.y)
+    end
+    it "create a Point object from a Vector" do
+	point = Geometry::Point[Vector[3,4]]
+	assert_equal(2, point.size)
+	assert_equal(3, point.x)
+	assert_equal(4, point.y)
+    end
+
+    it "create a Point object from a Point using list syntax" do
+	point = Geometry::Point[Geometry::Point[13,14]]
+	assert_equal(2, point.size)
+	assert_equal(13, point.x)
+	assert_equal(14, point.y)
+    end
+    it "allow indexed element access" do
+	point = Geometry::Point[5,6]
+	assert_equal(2, point.size)
+	assert_equal(5, point[0])
+	assert_equal(6, point[1])
+    end
+    it "allow named element access" do
+	point = Geometry::Point[5,6,7]
+	assert_equal(3, point.size)
+	assert_equal(5, point.x)
+	assert_equal(6, point.y)
+	assert_equal(7, point.z)
+    end
+
+    it "implement inspect" do
+	point = Geometry::Point[8,9]
+	assert_equal('Point[8, 9]', point.inspect)
+    end
+    it "implement to_s" do
+	point = Geometry::Point[10,11]
+	assert_equal('Point[10, 11]', point.to_s)
+    end
+
+    it "must support array access" do
+	Point[1,2][0].must_equal 1
+	Point[1,2][1].must_equal 2
+	Point[1,2][2].must_equal nil
+    end
+
+    it "must clone" do
+	Point[1,2].clone.must_be_instance_of(Point)
+	Point[1,2].clone.must_equal Point[1,2]
+    end
+
+    it "must duplicate" do
+	Point[1,2].dup.must_be_instance_of(Point)
+	Point[1,2].dup.must_equal Point[1,2]
+    end
+
+    describe "arithmetic" do
+	let(:left) { Point[1,2] }
+	let(:right) { Point[3,4] }
+
+	it "must have +@" do
+	    (+left).must_equal Point[1,2]
+	    (+left).must_be_instance_of(Point)
+	end
+
+	it "must have unary negation" do
+	    (-left).must_equal Point[-1,-2]
+	    (-left).must_be_instance_of(Point)
+	end
+
+	describe "when adding" do
+	    it "return a Point when adding two Points" do
+		assert_kind_of(Point, left+right)
+	    end
+
+	    it "must return a Point when adding an array to a Point" do
+		(left + [5,6]).must_equal Point[6,8]
+	    end
+
+	    it "must add a Numeric to all elements" do
+		(left + 2).must_equal Point[3,4]
+		(2 + left).must_equal Point[3,4]
+	    end
+
+	    it "must raise an exception when adding mismatched sizes" do
+		lambda { left + [1,2,3,4] }.must_raise Geometry::DimensionMismatch
+	    end
+
+	    it "must return a Point when adding a Vector" do
+		(left + Vector[5,6]).must_equal Point[6,8]
+		(Vector[5,6] + right).must_equal Vector[8,10]
+	    end
+
+	    it "must return self when adding a PointZero" do
+		(left + Point.zero).must_equal left
+	    end
+
+	    it "must return self when adding a NilClass" do
+		(left + nil).must_equal left
+	    end
+	end
+
+	describe "when subtracting" do
+	    it "return a Point when subtracting two Points" do
+		assert_kind_of(Point, left-right)
+	    end
+
+	    it "must return a Point when subtracting an array from a Point" do
+		(left - [5,6]).must_equal Point[-4, -4]
+	    end
+
+	    it "must subtract a Numeric from all elements" do
+		(left - 2).must_equal Point[-1, 0]
+		(2 - left).must_equal Point[1,0]
+	    end
+
+	    it "must raise an exception when subtracting mismatched sizes" do
+		lambda { left - [1,2,3,4] }.must_raise Geometry::DimensionMismatch
+	    end
+
+	    it "must return self when subtracting a PointZero" do
+		(left - Point.zero).must_equal left
+	    end
+
+	    it "must return self when subtracting a NilClass" do
+		(left - nil).must_equal left
+	    end
+	end
+
+	describe "when multiplying" do
+	    it "must return a Point when multiplied by a Matrix" do
+		(Matrix[[1,2],[3,4]]*Point[5,6]).must_equal Point[17, 39]
+	    end
+	end
+    end
+
+    describe "coercion" do
+	subject { Point[1,2] }
+
+	it "must coerce Arrays into Points" do
+	    subject.coerce([3,4]).must_equal [Point[3,4], subject]
+	end
+
+	it "must coerce Vectors into Points" do
+	    subject.coerce(Vector[3,4]).must_equal [Point[3,4], subject]
+	end
+
+	it "must coerce a Numeric into a Point" do
+	    subject.coerce(42).must_equal [Point[42,42], subject]
+	end
+
+	it "must reject anything that can't be coerced" do
+	    -> { subject.coerce(NilClass) }.must_raise TypeError
+	end
+    end
+
+    describe "comparison" do
+	let(:point) { Point[1,2] }
+
+	it "must compare equal to an equal Array" do
+	    point.must_be :==, [1,2]
+	    point.must_be :eql?, [1,2]
+	    [1,2].must_equal point
+	end
+
+	it "must not compare equal to an unequal Array" do
+	    point.wont_equal [3,2]
+	    [3,2].wont_equal point
+	end
+
+	it "must compare equal to an equal Point" do
+	    point.must_be :==, Point[1,2]
+	    point.must_be :eql?, Point[1,2]
+	    Point[1,2].must_equal point
+	end
+
+	it "must not compare equal to an unequal Point" do
+	    point.wont_equal Point[3,2]
+	    Point[3,2].wont_equal point
+	end
+
+	it "must compare equal to an equal Vector" do
+	    point.must_equal Vector[1,2]
+	    Vector[1,2].must_equal point
+	end
+
+	it "must not compare equal to an unequal Vector" do
+	    point.wont_equal Vector[3,2]
+	    Vector[3,2].wont_equal point
+	end
+
+	it "must think that floats == ints" do
+	    Point[1,2].must_be :==, Point[1.0,2.0]
+	    Point[1.0,2.0].must_be :==, Point[1,2]
+	end
+
+	it "must not think that floats eql? ints" do
+	    Point[1,2].wont_be :eql?, Point[1.0,2.0]
+	    Point[1.0,2.0].wont_be :eql?, Point[1,2]
+	end
+
+	describe "spaceship" do
+	    it "must spaceship with another Point of the same length" do
+		(Point[1,2] <=> Point[0,3]).must_equal Point[1,-1]
+	    end
+
+	    it "must spaceship with another Point of different length" do
+		(Point[1,2] <=> Point[0,3,4]).must_equal Point[1,-1]
+		(Point[1,2,4] <=> Point[0,3]).must_equal Point[1,-1]
+	    end
+
+	    it "must spaceship with an Array" do
+		(Point[1,2] <=> [0,3]).must_equal Point[1,-1]
+	    end
+	end
+    end
+end

data/test/geometry/point_zero.rb

@@ -0,0 +1,177 @@
+require 'minitest/autorun'
+require 'geometry/point_zero'
+
+describe Geometry::PointZero do
+    let(:zero) { Geometry::PointZero.new }
+
+    describe "arithmetic" do
+	let(:left) { Point[1,2] }
+	let(:right) { Point[3,4] }
+	
+	it "must have +@" do
+	    (+zero).must_be :eql?, 0
+	    (+zero).must_be_instance_of(Geometry::PointZero)
+	end
+	
+	it "must have unary negation" do
+	    (-zero).must_be :eql?, 0
+	    (-zero).must_be_instance_of(Geometry::PointZero)
+	end
+
+	describe "Accessors" do
+	    it "must return 0 for array access" do
+		zero[3].must_equal 0
+	    end
+
+	    it "must return 0 for named element access" do
+		zero.x.must_equal 0
+		zero.y.must_equal 0
+		zero.z.must_equal 0
+	    end
+	end
+
+	describe "when adding" do
+	    it "must return a number" do
+		(zero + 3).must_equal 3
+		(3 + zero).must_equal 3
+	    end
+
+	    it "return a Point when adding two Points" do
+		(zero + right).must_be_kind_of Point
+		(left + zero).must_be_kind_of Point
+	    end
+	    
+	    it "must return an Array when adding an array" do
+		(zero + [5,6]).must_equal [5,6]
+#		([5,6] + zero).must_equal [5,6]
+	    end
+
+	    it "must return a Point when adding a Size" do
+		(zero + Size[5,6]).must_be_instance_of(Point)
+		(zero + Size[5,6]).must_equal Point[5,6]
+	    end
+	end
+	
+	describe "when subtracting" do
+	    it "must return a number" do
+		(zero - 3).must_equal -3
+		(3 - zero).must_equal 3
+	    end
+
+	    it "return a Point when subtracting two Points" do
+		(zero - right).must_equal Point[-3,-4]
+		(left - zero).must_equal Point[1,2]
+	    end
+	    
+	    it "must return a Point when subtracting an array" do
+		(zero - [5,6]).must_equal [-5, -6]
+#		([5,6] - zero).must_equal [5,6]
+	    end
+
+	    it "must return a Point when subtracting a Size" do
+		(zero - Size[5,6]).must_be_instance_of(Point)
+		(zero - Size[5,6]).must_equal Point[-5,-6]
+	    end
+	end
+	
+	describe "multiplication" do
+	    it "must return 0 for scalars" do
+		(zero * 3).must_equal 0
+		(zero * 3.0).must_equal 0.0
+	    end
+
+	    it "must return 0 for Points" do
+		(zero * Point[1,2]).must_equal 0
+	    end
+
+	    it "must return 0 for Vectors" do
+		(zero * Vector[2,3]).must_equal 0
+	    end
+	end
+
+	describe "division" do
+	    it "must return 0 for non-zero scalars" do
+		(zero / 3).must_equal 0
+		(zero / 4.0).must_equal 0
+	    end
+
+	    it "must raise an exception when divided by 0" do
+		lambda { zero / 0 }.must_raise ZeroDivisionError
+	    end
+
+	    it "must raise an exception for Points" do
+		lambda { zero / Point[1,2] }.must_raise Geometry::OperationNotDefined
+	    end
+
+	    it "must raise an exception for Vectors" do
+		lambda { zero / Vector[1,2] }.must_raise Geometry::OperationNotDefined
+	    end
+
+	end
+
+    end
+
+    describe "coercion" do
+	it "must coerce Arrays into Points" do
+	    zero.coerce([3,4]).must_equal [Point[3,4], Point[0,0]]
+	end
+	
+	it "must coerce Vectors into Vectors" do
+	    zero.coerce(Vector[3,4]).must_equal [Vector[3,4], Vector[0,0]]
+	end
+
+	it "must coerce Points into Points" do
+	    zero.coerce(Point[5,6]).must_equal [Point[5,6], Point[0,0]]
+	end
+    end
+
+    describe "comparison" do
+	subject { Geometry::PointZero.new }
+	
+	it "must be equal to 0 and 0.0" do
+	    zero.must_be :eql?, 0
+	    zero.must_be :eql?, 0.0
+	end
+
+	it "must not be equal to a non-zero number" do
+	    1.wont_equal zero
+	    3.14.wont_equal zero
+	end
+
+	it "must be equal to an Array of zeros" do
+	    zero.must_be :==, [0,0]
+	    zero.must_be :eql?, [0,0]
+	    zero.must_be :===, [0,0]
+	    [0,0].must_equal zero
+	    subject.must_equal [0,0]
+	end
+	
+	it "must not be equal to a non-zero Array" do
+	    zero.wont_equal [3,2]
+	    [3,2].wont_equal zero
+	end
+	
+	it "must be equal to a Point at the origin" do
+	    zero.must_be :==, Point[0,0]
+	    zero.must_be :eql?, Point[0,0]
+	    zero.must_be :===, Point[0,0]
+	    Point[0,0].must_equal zero
+	    subject.must_equal Point[0,0]
+	end
+	
+	it "must not be equal to a Point not at the origin" do
+	    zero.wont_equal Point[3,2]
+	    Point[3,2].wont_equal zero
+	end
+	
+	it "must be equal to an Vector of zeroes" do
+	    zero.must_be :eql?, Vector[0,0]
+	    Vector[0,0].must_equal zero
+	end
+	
+	it "must not be equal to a non-zero Vector" do
+	    zero.wont_equal Vector[3,2]
+	    Vector[3,2].wont_equal zero
+	end
+    end
+end