xrvg 0.0.3 → 0.0.4

data/test/test_interpolation.rb

@@ -5,8 +5,23 @@ class InterpolatorTest < Test::Unit::TestCase
   
   def test_quadtree
     quad = QuadTree.new( [0.0,1.0, 0.2,0.0, 0.6,1.0,  0.8,0.0, 1.0,1.0]  )
-    assert_equal( [0.2,0.0,0.6,1.0], quad.range( 0.5 ) )
+    assert_equal( [0.2,0.0, 0.6,1.0], quad.range( 0.5 ) )
     assert_equal( [0.0,1.0, 0.2,0.0], quad.range( 0.0 ) )
     assert_equal( [0.8,0.0, 1.0,1.0], quad.range( 1.0 ) )
+    assert_equal( [0.8,0.0, 1.0,1.0], quad.range( 1.1 ) )
   end
+
+  def test_interpolator
+    interpolator = Interpolator[ :samplelist, [0.0,0.0, 1.0,2.0]]
+    assert_equal( 1.0, interpolator.interpolate( 0.5 ) )
+    assert_equal( 2.0, interpolator.interpolate( 2.5 ) )
+  end
+
+  class A
+      include Interpolation
+  end
+  def test_interpolation
+    assert_raise(NotImplementedError) {A[].samplelist}
+  end
+
 end

data/test/test_parametric_length.rb

@@ -0,0 +1,15 @@
+require 'test/unit'
+require 'bezier'
+
+class ParametricLengthTest < Test::Unit::TestCase
+
+  class A
+    include ParametricLength
+  end
+  
+  def test_holes
+    assert_raise(NotImplementedError) {A[].parameter_range}
+    assert_raise(NotImplementedError) {A[].pointfromparameter( 0.0, V2D[] )}
+  end
+
+end

data/test/test_render.rb

@@ -3,16 +3,64 @@ require 'render'
 
 class SVGRenderTest  < Test::Unit::TestCase
 
-  
-
-  def test_raster
-    if nil
+  def test_render
     require 'shape'
-    render = SVGRender.new( :filename, "output/svgrender.svg" )
+    if File.exist?( "svgrender.svg" ) 
+      File.delete( "svgrender.svg" ) 
+    end
+    render = SVGRender.new( :filename, "svgrender.svg" )
     render.add( Circle[] )
     render.end
-    assert( File.exist?( "svgrender.jpg" ) )
+    assert( File.exist?( "svgrender.svg" ) )
+  end
+
+  def test_render2
+    require 'shape'
+    if File.exist?( "svgrender.svg" ) 
+      File.delete( "svgrender.svg" ) 
+    end
+    SVGRender.[](:filename, "svgrender.svg") do |render|
+      render.add( Circle[] )
+      render.add( Circle[:center, V2D[1.0,1.0]] )
+      render.add( Circle[:center, V2D[-1.0,-1.0]] )
+      
+    end
+    assert( File.exist?( "svgrender.svg" ) )
+  end
+
+  def test_render3
+    require 'shape'
+    if File.exist?( "svgrender.svg" ) 
+      File.delete( "svgrender.svg" ) 
+    end
+    SVGRender.[](:filename, "svgrender.svg") do |render|
+      render.add( Circle[:radius, 0.0] )
+    end
+    assert( File.exist?( "svgrender.svg" ) )
+  end
+
+  def test_render4
+    require 'shape'
+    if File.exist?( "svgrender.svg" ) 
+      File.delete( "svgrender.svg" ) 
+    end
+    circle   = Circle.new
+    gradient = CircularGradient.new( :colorlist, [0.0, Color.black(1.0), 1.0, Color.black(0.0)], :circle, circle )
+    render = SVGRender.new( :filename, "svgrender.svg" )
+    render.add( Circle[], Style[ :fill, gradient, :stroke, gradient, :strokewidth, 0.01 ] )
+    render.end
+    assert( File.exist?( "svgrender.svg" ) )
+  end
+
+  def test_layer
+    if File.exist?( "svgrender.svg" ) 
+      File.delete( "svgrender.svg" ) 
     end
+    render = SVGRender.new( :filename, "svgrender.svg" )
+    render.layers = [:stars, :disk, :dustback, :halo, :dustforeground]
+    render.add( Circle[], nil, :stars )
+    render.end
+    assert( File.exist?( "svgrender.svg" ) )
   end
 
 end

data/test/test_shape.rb

@@ -4,29 +4,95 @@ require 'test/unit'
 class ShapeTest < Test::Unit::TestCase
 
   def test_abstract
-    # Shape.new.svg
+    assert_raise(NotImplementedError){Shape[].contour}
+    assert_raise(NotImplementedError){Shape[].svg}
+    assert_raise(NotImplementedError){Shape[].viewbox}
+  end
+
+  def test_default_style
+    assert_equal( Color.black, Shape[].default_style.fill )
   end
 
 end
 
+class CurveTest < Test::Unit::TestCase
+
+  def test_abstract
+    assert_raise(NotImplementedError){Curve[].contour}
+    assert_raise(NotImplementedError){Curve[].svg}
+    assert_raise(NotImplementedError){Curve[].point(0.0)}
+    assert_raise(NotImplementedError){Curve[].tangent(0.0)}
+    assert_raise(NotImplementedError){Curve[].acc(0.0)}
+    assert_raise(NotImplementedError){Curve[].length(0.0)}
+    assert_raise(NotImplementedError){Curve[].rotation(0.0)}
+    assert_raise(NotImplementedError){Curve[].scale(0.0)}
+  end
+
+  def test_default_style
+    assert_equal( Color.black, Shape[].default_style.fill )
+  end
+
+end
 
-class LineTest <  Test::Unit::TestCase
 
+class LineTest <  Test::Unit::TestCase
+  @@line = Line[ :points, [ V2D[ 0.0, 0.0], V2D[ 0.0, 1.0] ] ]
+  
   def test_point
-    line = Line[ :points, [ V2D[ 0.0, 0.0], V2D[ 0.0, 1.0] ] ]
-    # puts Line.instance_methods(false)
-    assert_equal( V2D[0.0, 0.3], line.point( 0.3 ) )
+    assert_equal( V2D[0.0, 0.3], @@line.point( 0.3 ) )
+  end
+  
+  def test_points
+    assert_equal( [V2D[0.0, 0.3], V2D[0.0, 0.7]] , @@line.points( [0.3,0.7] ) )
   end
 
   def test_tangent
-    line = Line[ :points, [ V2D[ 0.0, 0.0], V2D[ 0.0, 2.0] ] ]
-    assert_equal( V2D[0.0, 1.0], line.tangent( 0.3 ) )
+    assert_equal( V2D[0.0, 1.0], @@line.tangent( 0.3 ) )
+  end
+
+  def test_tangents
+    assert_equal( [V2D[0.0, 1.0],V2D[0.0, 1.0]], @@line.tangents( [0.3,0.7] ) )
+  end
+
+  def test_acc
+    assert_equal( V2D[0.0, 0.0], @@line.acc( 0.3 ) )
+  end
+  
+  def test_normal
+    assert_equal( V2D[-1.0, 0.0], @@line.normal( 0.3 ) )
+  end
+
+  def test_normals
+    assert_equal( [V2D[-1.0, 0.0],V2D[-1.0, 0.0]], @@line.normals( [0.3,0.7] ) )
+  end
+
+  def test_acc_normal
+    assert_equal( 0.0, @@line.acc_normal( 0.3 ) )
+  end
+
+  def test_curvature
+    assert_equal( 0.0, @@line.curvature( 0.3 ) )
+  end
+
+  def test_surface
+    assert_equal( 0.0, @@line.surface  )
+    assert_equal( 1.0, Line[ :points, [ V2D[ 0.0, 0.0], V2D[ 1.0, 1.0] ] ].surface )
   end
 
   def test_frame
-    line = Line[ :points, [ V2D[ 0.0, 0.0], V2D[ 0.0, 1.0] ] ]
-    result = Frame[ :center, V2D[0.0,0.5], :vector,  V2D[0.0,0.0], :rotation,  0.0, :scale, 1.0 ]
-    assert_equal( result, line.frame( 0.5 ) )
+    result = Frame[ :center, V2D[0.0,0.5], :vector,  V2D[0.0,1.0], :rotation,  0.0, :scale, 1.0 ]
+    assert_equal( result, @@line.frame( 0.5 ) )
+  end
+
+  def test_frames
+    result = [Frame[ :center, V2D[0.0,0.5], :vector,  V2D[0.0,1.0], :rotation,  0.0, :scale, 1.0 ],
+              Frame[ :center, V2D[0.0,0.7], :vector,  V2D[0.0,1.0], :rotation,  0.0, :scale, 1.0 ]]
+    assert_equal( result, @@line.frames( [0.5, 0.7] ) )
+  end
+
+  def test_framev
+    result = [ V2D[0.0,0.5], V2D[0.0,1.0] ]
+    assert_equal( result, @@line.framev( 0.5 ) )
   end
 
 
@@ -40,6 +106,24 @@ class LineTest <  Test::Unit::TestCase
       assert( V2D.vequal?( v1, v2 ) )
     end
   end
+  
+  def test_length
+    line = Line[ :points, [ V2D[ 0.0, 0.0], V2D[ 0.0, 1.0], V2D[ 1.0, 1.0] ] ]
+    assert_equal( 2.0, line.length )
+  end
+
+  def test_translate
+    line = Line[ :points, [ V2D[ 0.0, 0.0], V2D[ 0.0, 1.0], V2D[ 1.0, 1.0] ] ].translate( V2D[1.0,2.0] )
+    assert_equal( V2D[ 1.0, 2.0], line.point( 0.0 ) )
+    assert_equal( V2D[ 2.0, 3.0], line.point( 2.0 ) )
+  end
+
+  def test_reverse
+    line = Line[ :points, [ V2D[ 0.0, 0.0], V2D[ 0.0, 1.0], V2D[ 1.0, 1.0] ] ].reverse
+    assert_equal( V2D[ 1.0, 1.0], line.point( 0.0 ) )
+    assert_equal( V2D[ 0.0, 0.0], line.point( 2.0 ) )
+  end
+  
 end
 
 class CircleTest < Test::Unit::TestCase
@@ -65,6 +149,11 @@ class CircleTest < Test::Unit::TestCase
     end
   end
 
+  def test_curvature
+    assert( 1.0.fequal?( Circle[].curvature( 0.0 ) ) )
+    assert( Circle[].curvature( Range.O.rand ).fequal?( Circle[].curvature( Range.O.rand ) ) )
+  end
+
   def test_diameter
     cd = Circle.diameter( V2D[0.0,1.0], V2D[0.0,-1.0] )
     c2 = Circle[ :center, V2D::O, :radius, 1.0 ]
@@ -72,4 +161,8 @@ class CircleTest < Test::Unit::TestCase
     assert_equal( cd.radius, c2.radius )
     assert( V2D.vequal?( V2D[0.0,1.0], cd.point( 0.0 ) ) )
   end
+
+  def test_rotate
+    assert( V2D.vequal?( V2D[0.0,1.0], Circle[].rotate(Math::PI/2.0).point( 0.0 ) ) )
+  end
 end

data/test/test_trace.rb

@@ -0,0 +1,13 @@
+require 'test/unit'
+require 'utils'
+
+class TraceTest < Test::Unit::TestCase
+
+  def test_trace
+    Trace("hello")
+    Trace.inhibit
+    Trace("ghost")
+    Trace.activate
+    Trace("goodbye")
+  end
+end

data/test/test_utils.rb

@@ -17,17 +17,8 @@ class IntegerTest < Test::Unit::TestCase
 
   def test_randsplit1!
     result = 3.randsplit!
-    puts "result #{result.join(" ")}"
     assert_equal( 1.0, result[0] + result[1] + result[2] )
-  end
-
-  if nil
-  def test_randsplit2!
-    result = 3.randsplit!(0.3)
-    puts "result minsize 0.3 #{result.join(" ")}"
-    assert_equal( 1.0, result[0] + result[1] + result[2] )
-    result.each {|v| assert( v > 0.3 ) }
-  end
+    assert_equal( [], 3.randsplit!( 4.0 ) )
   end
 
   def test_randsplitsum!
@@ -67,7 +58,6 @@ class ArrayTest < Test::Unit::TestCase
     [(0.0..1.0), (1.0..0.0)].samples(3) {|v1,v2| result += [v1,v2] }
     assert_equal( [0.0, 1.0, 0.5, 0.5, 1.0, 0.0], result )
   end
-  
 
   def test_pairs
     a = [ 1, 2, 3]
@@ -83,9 +73,13 @@ class ArrayTest < Test::Unit::TestCase
 
 
   def test_foreach
-    b = Array.new
+    b = []
     [1, 2, 3, 4].foreach {|i, j| b.push( [j,i] )}
     assert_equal( [[2, 1], [4, 3]], b)
+
+    b = []
+    [1, 2, 3, 4].foreach {|i| b << i}
+    assert_equal( [1, 2, 3, 4], b)
   end
   
   def test_slice
@@ -104,6 +98,10 @@ class ArrayTest < Test::Unit::TestCase
     assert_equal( [[1, 2], [2, 3]], result )
   end
 
+  def test_triplets
+    assert_equal( [[1, 2, 3], [2, 3, 4]], [1, 2, 3, 4].triplets )
+  end
+
   def test_assignment
     a, b, c = [1, 2, 3]
     assert_equal( a, 1 )
@@ -132,13 +130,30 @@ class ArrayTest < Test::Unit::TestCase
   def test_forpattern
     assert_equal( [1,2,"a",3,4,"b"], [ [1,2,3,4], ["a","b"] ].forpattern( [0,0,1] ) )
     assert_equal( [1,"a",2,3,"b",4], [ [1,2,3,4], ["a","b"] ].forpattern( [0,1,0] ) )
+    result = []
+    [ [1,2,3,4], ["a","b"] ].forpattern( [0,1,0] ) do |v1, v2, v3|
+      result += [v1,v2,v3]
+    end
+    assert_equal( [1,"a",2,3,"b",4], result )
   end
 
   def test_sub
     assert_equal( [1,3,5], [1,2,3,4,5].sub(2) )
     assert_equal( [1,3,5], [1,2,3,4,5].half )
+    result = []
+    [1,2,3,4,5].sub(2) {|v| result << v}
+    assert_equal( [1,3,5], result )
+  end
+
+  def test_mean
+    assert_equal( 3, [1,3,5].mean )    
+  end
+
+  def test_range
+    assert_equal( (1.0..5.0), [5.0,3.0,1.0].range )    
   end
 
+
 end
 
 class FloatTest < Test::Unit::TestCase
@@ -158,22 +173,51 @@ class FloatTest < Test::Unit::TestCase
     assert_equal( 0.25, r[0] + r[1] )
   end
 
+  def test_float_include
+    assert( Float.floatlist_include?( [1.0,2.0,3.0001,4.0], 3.0, 0.001 ) )
+    assert_equal( false, Float.floatlist_include?( [1.0,2.0,3.0001,4.0], 3.0, 0.0001 ) )
+  end
+
 end
 
 class RangeTest  < Test::Unit::TestCase
   
   def test_samples
     assert_equal( [0.0, 0.5, 1.0], (0.0..1.0).samples(3))
+    assert_equal( [1.0], (1.0..2.0).samples(1))
   end
 
   def test_samples2
     # assert_equal( [0.0, 0.667128916301921, 0.889196841637666], (0.0..1.0).geo(2.2).samples(3))
   end
 
+  def test_samples3
+    assert_not_equal( [0.0, 1.0], (0.0..1.0).ssort.random.samples(2))
+  end
+  
+
+  def test_samplesblock
+    result = []
+    (0.0..1.0).samples(3) do |v|
+      result << v
+    end
+    assert_equal( [0.0, 0.5, 1.0], result)
+  end
+
+
   def test_split
     assert_equal( [(0.0..0.5), (0.5..1.0)], (0.0..1.0).splits(2) )
   end
 
+  def test_splitblock
+    result = []
+    (0.0..1.0).splits(2) do |subrange|
+      result << subrange
+    end
+    assert_equal( [(0.0..0.5), (0.5..1.0)], result )
+  end
+
+
   def test_split2
     # assert_equal( [(0.0..0.75), (0.75..1.0)], (0.0..1.0).geo(3.0).splits(2) )
   end
@@ -199,6 +243,7 @@ class RangeTest  < Test::Unit::TestCase
     assert_equal( 2, (1.0..2.0).rand( 2 ).length )
     assert_equal( 1.8, (1.0..2.0).complement(1.2) )
     assert_equal( 0.5, (1.0..2.0).abscissa(1.5) )
+    assert_equal( 1.0, (1.0..1.0).abscissa(1.5) )
 
     # Splittable module
     assert_equal( (1.2..1.3), (1.0..2.0).split(0.2,0.3) )
@@ -215,6 +260,15 @@ class RangeTest  < Test::Unit::TestCase
     assert_equal( (1.3..2.3), (1.0..2.0).translate(0.3)  )
   end
 
+  def test_range_sym
+    assert_equal( (-0.3..0.3), Range.sym(  0.3 ) )
+    assert_equal( (-0.5..0.5), Range.sym( -0.5 ) )
+  end
+
+  def test_resize
+      assert_equal( (-0.5..1.5), Range.O.resize( 2.0 )  )
+  end
+
 end
 
 class SampleClass
@@ -235,6 +289,21 @@ class SampleTest < Test::Unit::TestCase
     assert_equal( [0.0, 1.0, 2.0], (0.0..2.0).samples(3))
   end
 
+  def test_samples2
+    assert_equal( [0.0, 1.0, 2.0], (0.0..2.0).samples([0.0,0.5,1.0]))
+  end
+
+  def test_hash
+    assert_raise(RuntimeError) {Range.O.apply( [0.0], :toto )}
+  end
+
+  def test_limit
+    assert_equal( [], Range.O.samples(0) )
+    result = []
+    Range.O.samples(0) {|v| result << v}
+    assert_equal( [], result )
+  end
+
   def test_array_samples
     # TODO
     # assert_equal( [0.0, 0.0, 0.864664716763387, 1.72932943352677], [(0.0..1.0),(0.0..2.0)].geo(2.0).samples(3))
@@ -247,6 +316,39 @@ class SampleTest < Test::Unit::TestCase
 
   def test_roller
     assert_equal( ["a", "b", "a"], Roller["a","b"].samples(3))
+
+    rand = Roller["a","b"].rand
+    assert( ["a","b"].include?( rand ) )
+  end
+
+  def test_random_split
+    splits = Range.O.random.splits( 2 )
+    assert_equal( 0.0, splits[0].begin )
+    assert_equal( 1.0, splits[1].end )
+  end
+
+  def test_geo
+    assert_equal( 1.0, (0.0..1.0).geo(100.0).sample( 1.0 ) )
+  end
+
+  def test_alternate
+    assert_equal( [1.0,1.5], (1.0..0.0).alternate.samples( [0.0,0.5] ) )
+    assert_equal( [0.0,-0.5], AlternateFilter[(0.0..1.0)].samples( [0.0,0.5] ) )
+  end
+
+  def test_split_errors
+    assert_raise(RuntimeError){Range.O.random.splits( 0 )}
+    assert_raise(RuntimeError){Range.O.random.splits( [0.0] )}
+    assert_equal( [(0.0..1.0)], (0.0..1.0).splits(1) )
+  end
+
+  def test_multisamples
+    assert_equal( [0.0, 0.1875, 0.3125, 0.5, 0.625, 0.8125, 0.9375], (0.0..1.0).multisamples( [4, 2], [3.0, 1.0] ) )
+  end
+
+  def test_randomgauss
+    (0.0..1.0).randgauss
   end
 
 end
+