svg-graph 1.0.1 → 1.0.3

data/test/data.txt

@@ -0,0 +1,4 @@
+Question 7
+Internet,TV,Newspaper,Magazine,Radio
+-2 3 1 3 1
+0 2 1 5 4

data/test/plot.rb

@@ -0,0 +1,51 @@
+$: << File.dirname(__FILE__) + '/../lib'
+require 'SVG/Graph/Plot'
+
+
+title = "Plot"
+#data1 = []
+#(rand(10)+5).times{
+#  data1 << rand(20)
+#  data1 << rand(20)
+#}
+data1 = [6.1, 11.2, 0.3, 5.4, 18.5, 7.6, 1.7, 11.8, 13.9, 9.11, 11.22, 2.33, 19.44, 0.555, 3.6666, 13.77777, 7.888888, 9.9999999]
+#data2 = []
+#(rand(10)+5).times{
+#  data2 << rand(20)
+#  data2 << rand(20)
+#}
+data2 = [0, 18, 8, 15, 9, 4, 18, 14, 10, 2, 11, 6, 14, 12, 15, 6, 4, 17, 2, 12]
+
+
+graph = SVG::Graph::Plot.new( {
+  :width => 640,
+  :height => 480,
+  :graph_title => title,
+  :show_graph_title => true,
+  :no_css => true,
+  :key => true,
+  :scale_x_integers => true,
+  :scale_y_integers => false,
+  :min_x_value => 0,
+  :min_y_value => 0,
+  :show_data_labels => true,
+  :show_x_guidelines => true,
+  :show_x_title => true,
+  :x_title => "Time",
+  :show_y_title => true,
+  :y_title => "Ice Cream Cones",
+  :y_title_text_direction => :bt,
+  :show_lines => false,
+  :add_popups => true,
+  :round_popups => false
+})
+graph.add_data( 
+  :data => data1,
+  :title => "Dataset 1"
+  )
+graph.add_data( 
+  :data => data2,
+  :title => "Dataset 2"
+  )
+puts graph.burn
+

data/test/schedule.rb

@@ -0,0 +1,43 @@
+require 'SVG/Graph/Schedule'
+
+
+title = "Billy's Schedule"
+data1 = [
+  "History 107", "5/19/04", "6/30/04",
+  "Algebra 011", "6/2/04", "8/11/04",
+  "Psychology 101", "6/28/04", "8/9/04",
+  "Acting 105", "7/7/04", "8/16/04"
+  ]
+
+graph = SVG::Graph::Schedule.new( {
+  :width => 640,
+  :height => 480,
+  :graph_title => title,
+  :show_graph_title => true,
+  :no_css => true,
+  :key => false,
+  :scale_x_integers => true,
+  :scale_y_integers => true,
+  :show_data_labels => true,
+  :show_y_guidelines => false,
+  :show_x_guidelines => true,
+  :show_x_title => true,
+  :x_title => "Time",
+  :show_y_title => false,
+  :rotate_x_labels => true,
+  :rotate_y_labels => false,
+  :x_label_format => "%m/%d",
+  :timescale_divisions => "1 weeks",
+  :add_popups => true,
+  :popup_format => "%m/%d/%y",
+  :area_fill => true,
+  :min_y_value => 0,
+})
+
+graph.add_data( 
+  :data => data1,
+  :title => "Data"
+  )
+
+puts graph.burn
+

data/test/single.rb

@@ -0,0 +1,33 @@
+require 'SVG/Graph/BarHorizontal'
+require 'SVG/Graph/Bar'
+require 'SVG/Graph/Line'
+require 'SVG/Graph/Pie'
+
+
+File.open( "data.txt" ) { |fin|
+  title = fin.readline
+  fields = fin.readline.split( /,/ )
+  female_data = fin.readline.split( " " ).collect{|x| x.to_i}
+  male_data = fin.readline.split( " " ).collect{|x| x.to_i}
+
+  graph = SVG::Graph::Pie.new( {
+    :width => 640,
+    :height => 480,
+    :fields => fields,
+    :graph_title => title,
+    :show_graph_title => true,
+    :no_css => true,
+    :expanded => true,
+    :show_data_labels => true
+  })
+  graph.add_data( {
+      :data => female_data,
+      :title => "Female"
+    })
+  graph.add_data( {
+      :data => male_data,
+      :title => "Male"
+    })
+  puts graph.burn
+}
+

data/test/test.rb

@@ -0,0 +1,54 @@
+require 'SVG/Graph/BarHorizontal'
+require 'SVG/Graph/Bar'
+require 'SVG/Graph/Line'
+require 'SVG/Graph/Pie'
+
+def gen klass, args, title, fields, female_data, male_data
+  args[ :width ] = 640
+  args[ :height ] = 480
+  #args[ :compress ] = true
+  args[ :fields ] = fields
+  args[ :graph_title ] = title
+  args[ :show_graph_title ] = true
+  args[ :no_css ] = true
+  puts klass.name
+  graph = klass.new( args )
+  graph.add_data( {
+      :data => female_data,
+      :title => "Female"
+    })
+  graph.add_data( {
+      :data => male_data,
+      :title => "Male"
+    })
+  return graph.burn
+end
+
+File.open( "data.txt" ) { |fin|
+  title = fin.readline
+  fields = fin.readline.split( /,/ )
+  female_data = fin.readline.split( " " ).collect{|x| x.to_i}
+  male_data = fin.readline.split( " " ).collect{|x| x.to_i}
+
+  for file, klass, args in [
+    [ "bar", SVG::Graph::Bar,
+      { :scale_integers => true, 
+	      :stack => :side } ],
+    [ "barhorizontal",SVG::Graph::BarHorizontal,
+      {:scale_integers=> true,
+	     :stack=>:side,
+	     :rotate_x_labels => true
+      }],
+    [ "line", SVG::Graph::Line, 
+      { :scale_integers => true, 
+	    :area_fill => true, } ],
+    [ "pie", SVG::Graph::Pie, 
+      { :expand_greatest => true, 
+	    :show_data_labels => true, } ],
+    ]
+    File.open("#{file}.svg", "w") {|fout| 
+      fout.print( gen(klass, args, title, fields, female_data, male_data ) )
+    }
+  end
+}
+

data/test/test_plot.rb

@@ -0,0 +1,170 @@
+$: << File.dirname(__FILE__) + '/../lib'
+require "test/unit"
+require "svggraph"
+
+class TestSvgGraphPlot < Test::Unit::TestCase
+    def _test_plot
+        
+        projection = [
+         6, 11,    0, 5,   18, 7,   1, 11,   13, 9,   1, 2,   19, 0,   3, 13,
+         7, 9 
+        ]
+        actual = [
+         0, 18,    8, 15,    9, 4,   18, 14,   10, 2,   11, 6,  14, 12,   
+         15, 6,   4, 17,   2, 12
+        ]
+        
+        graph = SVG::Graph::Plot.new({
+        :height => 500,
+            :width => 300,
+         :key => true,
+         :scale_x_integers => true,
+         :scale_y_integerrs => true,
+        })
+        
+        graph.add_data({
+        :data => projection, 
+          :title => 'Projected',
+        })
+        
+        graph.add_data({
+        :data => actual,
+          :title => 'Actual',
+        })
+        
+        out=graph.burn()
+        assert(out=~/Created with SVG::Graph/)
+    end
+  def test_default_plot_emits_polyline_connecting_data_points
+    actual = [
+     0, 18,    8, 15,    9, 4,   18, 14,   10, 2,   11, 6,  14, 12,
+     15, 6,   4, 17,   2, 12
+    ]
+
+    graph = SVG::Graph::Plot.new({
+      :height => 500,
+      :width => 300,
+      :key => true,
+      :scale_x_integers => true,
+      :scale_y_integerrs => true,
+    })
+
+    graph.add_data({
+      :data => actual,
+      :title => 'Actual',
+    })
+    out=graph.burn()
+    assert_match(/path.*class='line1'/, out)
+  end
+  
+  def _test_disabling_show_lines_does_not_emit_polyline_connecting_data_points
+    actual = [
+     0, 18,    8, 15,    9, 4,   18, 14,   10, 2,   11, 6,  14, 12,
+     15, 6,   4, 17,   2, 12
+    ]
+
+    graph = SVG::Graph::Plot.new({
+      :height => 500,
+      :width => 300,
+      :key => true,
+      :scale_x_integers => true,
+      :scale_y_integers => true,
+      :show_lines => false,
+    })
+
+    graph.add_data({
+      :data => actual,
+      :title => 'Actual',
+    })
+
+    out=graph.burn()
+    assert_no_match(/path class='line1' d='M.* L.*'/, out)
+  end
+  def _test_popup_values_round_to_integer_by_default_in_popups
+    actual = [
+     0.1, 18,    8.55, 15.1234,    9.09876765, 4,
+    ]
+
+    graph = SVG::Graph::Plot.new({
+      :height => 500,
+      :width => 300,
+      :key => true,
+      :scale_x_integers => true,
+      :scale_y_integers => true,
+      :add_popups => true,
+    })
+
+    graph.add_data({
+      :data => actual,
+      :title => 'Actual',
+    })
+
+    out=graph.burn()
+    assert_no_match(/\(0.1, 18\)/, out)
+    assert_match(/\(0, 18\)/, out)
+    assert_no_match(/\(8.55, 15.1234\)/, out)
+    assert_match(/\(8, 15\)/, out)
+    assert_no_match(/\(9.09876765, 4\)/, out)
+    assert_match(/\(9, 4\)/, out)
+  end
+  def _test_do_not_round_popup_values_shows_decimal_values_in_popups
+    actual = [
+     0.1, 18,    8.55, 15.1234,    9.09876765, 4,
+    ]
+
+    graph = SVG::Graph::Plot.new({
+      :height => 500,
+      :width => 300,
+      :key => true,
+      :scale_x_integers => true,
+      :scale_y_integers => true,
+      :add_popups => true,
+      :round_popups => false,
+    })
+
+    graph.add_data({
+      :data => actual,
+      :title => 'Actual',
+    })
+
+    out=graph.burn()
+    assert_match(/\(0.1, 18\)/, out)
+    assert_no_match(/\(0, 18\)/, out)
+    assert_match(/\(8.55, 15.1234\)/, out)
+    assert_no_match(/\(8, 15\)/, out)
+    assert_match(/\(9.09876765, 4\)/, out)
+    assert_no_match(/\(9, 4\)/, out)
+  end
+  def _test_description_is_shown_in_popups_if_provided
+    actual = [
+     8.55, 15.1234,    9.09876765, 4,     0.1, 18,
+    ]
+    description = [
+     'first',    'second',          'third',
+    ]
+
+    graph = SVG::Graph::Plot.new({
+      :height => 500,
+      :width => 300,
+      :key => true,
+      :scale_x_integers => true,
+      :scale_y_integers => true,
+      :add_popups => true,
+      :round_popups => false,
+    })
+
+    graph.add_data({
+      :data => actual,
+      :title => 'Actual',
+      :description => description,
+    })
+
+    out=graph.burn()
+    assert_match(/\(8.55, 15.1234, first\)/, out)
+    assert_no_match(/\(8.55, 15.1234\)/, out)
+    assert_match(/\(9.09876765, 4, second\)/, out)
+    assert_no_match(/\(9.09876765, 4\)/, out)
+    assert_match(/\(0.1, 18, third\)/, out)
+    assert_no_match(/\(0.1, 18\)/, out)
+  end
+end

data/test/test_svg_graph.rb

@@ -1,55 +1,24 @@
-require "test/unit"
-require "svggraph"
-
-class TestSvgGraph < Test::Unit::TestCase
-    def test_bar_line_and_pie
-        fields = %w(Jan Feb Mar);
-        data_sales_02 = [12, 45, 21]
-        [SVG::Graph::Bar, SVG::Graph::BarHorizontal, SVG::Graph::Line, SVG::Graph::Pie].each do 
-            |klass|
-            graph = klass.new(
-            :height => 500,
-            :width => 300,
-            :fields => fields
-            )
-            graph.add_data(
-            :data => data_sales_02,
-            :title => 'Sales 2002'
-            )
-            out=graph.burn
-            assert(out=~/Created with SVG::Graph/)
-        end
-    end
-    def test_plot
-        
-        projection = [
-         6, 11,    0, 5,   18, 7,   1, 11,   13, 9,   1, 2,   19, 0,   3, 13,
-         7, 9 
-        ]
-        actual = [
-         0, 18,    8, 15,    9, 4,   18, 14,   10, 2,   11, 6,  14, 12,   
-         15, 6,   4, 17,   2, 12
-        ]
-        
-        graph = SVG::Graph::Plot.new({
-        :height => 500,
-            :width => 300,
-         :key => true,
-         :scale_x_integers => true,
-         :scale_y_integerrs => true,
-        })
-        
-        graph.add_data({
-        :data => projection, 
-          :title => 'Projected',
-        })
-        
-        graph.add_data({
-        :data => actual,
-          :title => 'Actual',
-        })
-        
-        out=graph.burn()
-        assert(out=~/Created with SVG::Graph/)
-    end
-end
+$: << File.dirname(__FILE__) + '/../lib'
+require "test/unit"
+require "svggraph"
+
+class TestSvgGraph < Test::Unit::TestCase
+    def test_bar_line_and_pie
+        fields = %w(Jan Feb Mar);
+        data_sales_02 = [12, 45, 21]
+        [SVG::Graph::Bar, SVG::Graph::BarHorizontal, SVG::Graph::Line, SVG::Graph::Pie].each do 
+            |klass|
+            graph = klass.new(
+            :height => 500,
+            :width => 300,
+            :fields => fields
+            )
+            graph.add_data(
+            :data => data_sales_02,
+            :title => 'Sales 2002'
+            )
+            out=graph.burn
+            assert(out=~/Created with SVG::Graph/)
+        end
+    end
+end

data/test/timeseries.rb

@@ -0,0 +1,58 @@
+require 'SVG/Graph/TimeSeries'
+
+
+title = "Plot"
+#data1 = []
+#(rand(10)+5).times{
+#  data1 << rand(20)
+#  data1 << rand(20)
+#}
+data1 = ["6/17/74", 11, "1/11/74", 7, "4/13/04 17:31", 11, "9/11/01", 9, "9/1/85", 2, "9/1/88", 1, "1/15/95", 13]
+#data2 = []
+#(rand(10)+5).times{
+#  data2 << rand(20)
+#  data2 << rand(20)
+#}
+data2 = ["8/1/73", 18, "10/21/76", 15, "01/11/80", 4, "4/3/83", 14, "6/23/86", 6, "9/13/89", 12, "12/3/92", 6, "2/24/96", 17, "5/16/99", 12, "8/5/02", 7]
+data3 = ["1/1/78", 5, "1/1/83", 13, "1/1/93", 10, "1/1/03", 5]
+
+
+graph = SVG::Graph::TimeSeries.new( {
+  :width => 640,
+  :height => 480,
+  :graph_title => title,
+  :show_graph_title => true,
+  :no_css => true,
+  :key => true,
+  :scale_x_integers => true,
+  :scale_y_integers => true,
+  :show_data_values => true,
+  :show_x_guidelines => true,
+  :show_x_title => true,
+  :x_title => "Time",
+  :show_y_title => true,
+  :y_title => "Units",
+  :y_title_text_direction => :bt,
+  :stagger_x_labels => true,
+  :x_label_format => "%Y",
+  :min_x_value => "1/1/73",
+  :timescale_divisions => "5 years",
+  :add_popups => true,
+  :popup_format => "%m/%d/%y",
+  #:area_fill => true,
+  :min_y_value => 0,
+})
+graph.add_data( 
+  :data => data1,
+  :title => "Ice Cream"
+  )
+graph.add_data( 
+  :data => data2,
+  :title => "Ice Cream Cones"
+)
+graph.add_data( 
+  :data => data3,
+  :title => "Sprinkles"
+)
+puts graph.burn
+