##// END OF EJS Templates
jro_apps » redmine
RSS
Update SVG library to latest stable (0.6.1) (#3056)....
Jean-Philippe Lang -
r2553:c9c269abf7e9
parent child
Show More
Side by Side Unified
Context file:
r2553:c9c269abf7e9 Loading diff...:
Show file before | Show file after | Hide comments
@@ -1,137 +1,148
1 require 'rexml/document'
2 require 'SVG/Graph/Graph'
3 require 'SVG/Graph/BarBase'
4
5 module SVG
6 module Graph
7 # === Create presentation quality SVG bar graphs easily
8 #
9 # = Synopsis
10 #
11 # require 'SVG/Graph/Bar'
12 #
13 # fields = %w(Jan Feb Mar);
14 # data_sales_02 = [12, 45, 21]
15 #
16 # graph = SVG::Graph::Bar.new(
17 # :height => 500,
18 # :width => 300,
19 # :fields => fields
20 # )
21 #
22 # graph.add_data(
23 # :data => data_sales_02,
24 # :title => 'Sales 2002'
25 # )
26 #
27 # print "Content-type: image/svg+xml\r\n\r\n"
28 # print graph.burn
29 #
30 # = Description
31 #
32 # This object aims to allow you to easily create high quality
33 # SVG[http://www.w3c.org/tr/svg bar graphs. You can either use the default
34 # style sheet or supply your own. Either way there are many options which
35 # can be configured to give you control over how the graph is generated -
36 # with or without a key, data elements at each point, title, subtitle etc.
37 #
38 # = Notes
39 #
40 # The default stylesheet handles upto 12 data sets, if you
41 # use more you must create your own stylesheet and add the
42 # additional settings for the extra data sets. You will know
43 # if you go over 12 data sets as they will have no style and
44 # be in black.
45 #
46 # = Examples
47 #
48 # * http://germane-software.com/repositories/public/SVG/test/test.rb
49 #
50 # = See also
51 #
52 # * SVG::Graph::Graph
53 # * SVG::Graph::BarHorizontal
54 # * SVG::Graph::Line
55 # * SVG::Graph::Pie
56 # * SVG::Graph::Plot
57 # * SVG::Graph::TimeSeries
58 class Bar < BarBase
59 include REXML
60
61 # See Graph::initialize and BarBase::set_defaults
62 def set_defaults
63 super
64 self.top_align = self.top_font = 1
65 end
66
67 protected
68
69 def get_x_labels
70 @config[:fields]
71 end
72
73 def get_y_labels
74 maxvalue = max_value
75 minvalue = min_value
76 range = maxvalue - minvalue
77
78 top_pad = range == 0 ? 10 : range / 20.0
79 scale_range = (maxvalue + top_pad) - minvalue
80
81 scale_division = scale_divisions || (scale_range / 10.0)
82
83 if scale_integers
84 scale_division = scale_division < 1 ? 1 : scale_division.round
85 end
86
87 rv = []
88 maxvalue = maxvalue%scale_division == 0 ?
89 maxvalue : maxvalue + scale_division
90 minvalue.step( maxvalue, scale_division ) {|v| rv << v}
91 return rv
92 end
93
94 def x_label_offset( width )
95 width / 2.0
96 end
97
98 def draw_data
99 fieldwidth = field_width
100 maxvalue = max_value
101 minvalue = min_value
102
103 fieldheight = (@graph_height.to_f - font_size*2*top_font) /
104 (get_y_labels.max - get_y_labels.min)
105 bargap = bar_gap ? (fieldwidth < 10 ? fieldwidth / 2 : 10) : 0
106
107 subbar_width = fieldwidth - bargap
108 subbar_width /= @data.length if stack == :side
109 x_mod = (@graph_width-bargap)/2 - (stack==:side ? subbar_width/2 : 0)
110 # Y1
111 p2 = @graph_height
112 # to X2
113 field_count = 0
114 @config[:fields].each_index { |i|
115 dataset_count = 0
116 for dataset in @data
117 # X1
118 p1 = (fieldwidth * field_count)
119 # to Y2
120 p3 = @graph_height - ((dataset[:data][i] - minvalue) * fieldheight)
121 p1 += subbar_width * dataset_count if stack == :side
122 @graph.add_element( "path", {
123 "class" => "fill#{dataset_count+1}",
124 "d" => "M#{p1} #{p2} V#{p3} h#{subbar_width} V#{p2} Z"
125 })
126 make_datapoint_text(
127 p1 + subbar_width/2.0,
128 p3 - 6,
129 dataset[:data][i].to_s)
130 dataset_count += 1
131 end
132 field_count += 1
133 }
134 end
135 end
136 end
137 end
1 require 'rexml/document'
2 require 'SVG/Graph/Graph'
3 require 'SVG/Graph/BarBase'
4
5 module SVG
6 module Graph
7 # === Create presentation quality SVG bar graphs easily
8 #
9 # = Synopsis
10 #
11 # require 'SVG/Graph/Bar'
12 #
13 # fields = %w(Jan Feb Mar);
14 # data_sales_02 = [12, 45, 21]
15 #
16 # graph = SVG::Graph::Bar.new(
17 # :height => 500,
18 # :width => 300,
19 # :fields => fields
20 # )
21 #
22 # graph.add_data(
23 # :data => data_sales_02,
24 # :title => 'Sales 2002'
25 # )
26 #
27 # print "Content-type: image/svg+xml\r\n\r\n"
28 # print graph.burn
29 #
30 # = Description
31 #
32 # This object aims to allow you to easily create high quality
33 # SVG[http://www.w3c.org/tr/svg bar graphs. You can either use the default
34 # style sheet or supply your own. Either way there are many options which
35 # can be configured to give you control over how the graph is generated -
36 # with or without a key, data elements at each point, title, subtitle etc.
37 #
38 # = Notes
39 #
40 # The default stylesheet handles upto 12 data sets, if you
41 # use more you must create your own stylesheet and add the
42 # additional settings for the extra data sets. You will know
43 # if you go over 12 data sets as they will have no style and
44 # be in black.
45 #
46 # = Examples
47 #
48 # * http://germane-software.com/repositories/public/SVG/test/test.rb
49 #
50 # = See also
51 #
52 # * SVG::Graph::Graph
53 # * SVG::Graph::BarHorizontal
54 # * SVG::Graph::Line
55 # * SVG::Graph::Pie
56 # * SVG::Graph::Plot
57 # * SVG::Graph::TimeSeries
58 class Bar < BarBase
59 include REXML
60
61 # See Graph::initialize and BarBase::set_defaults
62 def set_defaults
63 super
64 self.top_align = self.top_font = 1
65 end
66
67 protected
68
69 def get_x_labels
70 @config[:fields]
71 end
72
73 def get_y_labels
74 maxvalue = max_value
75 minvalue = min_value
76 range = maxvalue - minvalue
77
78 top_pad = range == 0 ? 10 : range / 20.0
79 scale_range = (maxvalue + top_pad) - minvalue
80
81 scale_division = scale_divisions || (scale_range / 10.0)
82
83 if scale_integers
84 scale_division = scale_division < 1 ? 1 : scale_division.round
85 end
86
87 rv = []
88 maxvalue = maxvalue%scale_division == 0 ?
89 maxvalue : maxvalue + scale_division
90 minvalue.step( maxvalue, scale_division ) {|v| rv << v}
91 return rv
92 end
93
94 def x_label_offset( width )
95 width / 2.0
96 end
97
98 def draw_data
99 minvalue = min_value
100 fieldwidth = field_width
101
102 unit_size = (@graph_height.to_f - font_size*2*top_font) /
103 (get_y_labels.max - get_y_labels.min)
104 bargap = bar_gap ? (fieldwidth < 10 ? fieldwidth / 2 : 10) : 0
105
106 bar_width = fieldwidth - bargap
107 bar_width /= @data.length if stack == :side
108 x_mod = (@graph_width-bargap)/2 - (stack==:side ? bar_width/2 : 0)
109
110 bottom = @graph_height
111
112 field_count = 0
113 @config[:fields].each_index { |i|
114 dataset_count = 0
115 for dataset in @data
116
117 # cases (assume 0 = +ve):
118 # value min length
119 # +ve +ve value - min
120 # +ve -ve value - 0
121 # -ve -ve value.abs - 0
122
123 value = dataset[:data][i]
124
125 left = (fieldwidth * field_count)
126
127 length = (value.abs - (minvalue > 0 ? minvalue : 0)) * unit_size
128 # top is 0 if value is negative
129 top = bottom - (((value < 0 ? 0 : value) - minvalue) * unit_size)
130 left += bar_width * dataset_count if stack == :side
131
132 @graph.add_element( "rect", {
133 "x" => left.to_s,
134 "y" => top.to_s,
135 "width" => bar_width.to_s,
136 "height" => length.to_s,
137 "class" => "fill#{dataset_count+1}"
138 })
139
140 make_datapoint_text(left + bar_width/2.0, top - 6, value.to_s)
141 dataset_count += 1
142 end
143 field_count += 1
144 }
145 end
146 end
147 end
148 end
Show file before | Show file after | Hide comments
@@ -1,140 +1,139
1 require 'rexml/document'
2 require 'SVG/Graph/Graph'
3
4 module SVG
5 module Graph
6 # = Synopsis
7 #
8 # A superclass for bar-style graphs. Do not attempt to instantiate
9 # directly; use one of the subclasses instead.
10 #
11 # = Author
12 #
13 # Sean E. Russell <serATgermaneHYPHENsoftwareDOTcom>
14 #
15 # Copyright 2004 Sean E. Russell
16 # This software is available under the Ruby license[LICENSE.txt]
17 #
18 class BarBase < SVG::Graph::Graph
19 # Ensures that :fields are provided in the configuration.
20 def initialize config
21 raise "fields was not supplied or is empty" unless config[:fields] &&
22 config[:fields].kind_of?(Array) &&
23 config[:fields].length > 0
24 super
25 end
26
27 # In addition to the defaults set in Graph::initialize, sets
28 # [bar_gap] true
29 # [stack] :overlap
30 def set_defaults
31 init_with( :bar_gap => true, :stack => :overlap )
32 end
33
34 # Whether to have a gap between the bars or not, default
35 # is true, set to false if you don't want gaps.
36 attr_accessor :bar_gap
37 # How to stack data sets. :overlap overlaps bars with
38 # transparent colors, :top stacks bars on top of one another,
39 # :side stacks the bars side-by-side. Defaults to :overlap.
40 attr_accessor :stack
41
42
43 protected
44
45 def max_value
46 return @data.collect{|x| x[:data].max}.max
47 end
48
49 def min_value
50 min = 0
51
52 if (min_scale_value.nil? == false) then
53 min = min_scale_value
54 else
55 min = @data.collect{|x| x[:data].min}.min
56 end
57
58 return min
59 end
60
61 def get_css
62 return <<EOL
63 /* default fill styles for multiple datasets (probably only use a single dataset on this graph though) */
64 .key1,.fill1{
65 fill: #ff0000;
66 fill-opacity: 0.5;
67 stroke: none;
68 stroke-width: 0.5px;
69 }
70 .key2,.fill2{
71 fill: #0000ff;
72 fill-opacity: 0.5;
73 stroke: none;
74 stroke-width: 1px;
75 }
76 .key3,.fill3{
77 fill: #00ff00;
78 fill-opacity: 0.5;
79 stroke: none;
80 stroke-width: 1px;
81 }
82 .key4,.fill4{
83 fill: #ffcc00;
84 fill-opacity: 0.5;
85 stroke: none;
86 stroke-width: 1px;
87 }
88 .key5,.fill5{
89 fill: #00ccff;
90 fill-opacity: 0.5;
91 stroke: none;
92 stroke-width: 1px;
93 }
94 .key6,.fill6{
95 fill: #ff00ff;
96 fill-opacity: 0.5;
97 stroke: none;
98 stroke-width: 1px;
99 }
100 .key7,.fill7{
101 fill: #00ffff;
102 fill-opacity: 0.5;
103 stroke: none;
104 stroke-width: 1px;
105 }
106 .key8,.fill8{
107 fill: #ffff00;
108 fill-opacity: 0.5;
109 stroke: none;
110 stroke-width: 1px;
111 }
112 .key9,.fill9{
113 fill: #cc6666;
114 fill-opacity: 0.5;
115 stroke: none;
116 stroke-width: 1px;
117 }
118 .key10,.fill10{
119 fill: #663399;
120 fill-opacity: 0.5;
121 stroke: none;
122 stroke-width: 1px;
123 }
124 .key11,.fill11{
125 fill: #339900;
126 fill-opacity: 0.5;
127 stroke: none;
128 stroke-width: 1px;
129 }
130 .key12,.fill12{
131 fill: #9966FF;
132 fill-opacity: 0.5;
133 stroke: none;
134 stroke-width: 1px;
135 }
136 EOL
137 end
138 end
139 end
140 end
1 require 'rexml/document'
2 require 'SVG/Graph/Graph'
3
4 module SVG
5 module Graph
6 # = Synopsis
7 #
8 # A superclass for bar-style graphs. Do not attempt to instantiate
9 # directly; use one of the subclasses instead.
10 #
11 # = Author
12 #
13 # Sean E. Russell <serATgermaneHYPHENsoftwareDOTcom>
14 #
15 # Copyright 2004 Sean E. Russell
16 # This software is available under the Ruby license[LICENSE.txt]
17 #
18 class BarBase < SVG::Graph::Graph
19 # Ensures that :fields are provided in the configuration.
20 def initialize config
21 raise "fields was not supplied or is empty" unless config[:fields] &&
22 config[:fields].kind_of?(Array) &&
23 config[:fields].length > 0
24 super
25 end
26
27 # In addition to the defaults set in Graph::initialize, sets
28 # [bar_gap] true
29 # [stack] :overlap
30 def set_defaults
31 init_with( :bar_gap => true, :stack => :overlap )
32 end
33
34 # Whether to have a gap between the bars or not, default
35 # is true, set to false if you don't want gaps.
36 attr_accessor :bar_gap
37 # How to stack data sets. :overlap overlaps bars with
38 # transparent colors, :top stacks bars on top of one another,
39 # :side stacks the bars side-by-side. Defaults to :overlap.
40 attr_accessor :stack
41
42
43 protected
44
45 def max_value
46 @data.collect{|x| x[:data].max}.max
47 end
48
49 def min_value
50 min = 0
51 if min_scale_value.nil?
52 min = @data.collect{|x| x[:data].min}.min
53 min = min > 0 ? 0 : min
54 else
55 min = min_scale_value
56 end
57 return min
58 end
59
60 def get_css
61 return <<EOL
62 /* default fill styles for multiple datasets (probably only use a single dataset on this graph though) */
63 .key1,.fill1{
64 fill: #ff0000;
65 fill-opacity: 0.5;
66 stroke: none;
67 stroke-width: 0.5px;
68 }
69 .key2,.fill2{
70 fill: #0000ff;
71 fill-opacity: 0.5;
72 stroke: none;
73 stroke-width: 1px;
74 }
75 .key3,.fill3{
76 fill: #00ff00;
77 fill-opacity: 0.5;
78 stroke: none;
79 stroke-width: 1px;
80 }
81 .key4,.fill4{
82 fill: #ffcc00;
83 fill-opacity: 0.5;
84 stroke: none;
85 stroke-width: 1px;
86 }
87 .key5,.fill5{
88 fill: #00ccff;
89 fill-opacity: 0.5;
90 stroke: none;
91 stroke-width: 1px;
92 }
93 .key6,.fill6{
94 fill: #ff00ff;
95 fill-opacity: 0.5;
96 stroke: none;
97 stroke-width: 1px;
98 }
99 .key7,.fill7{
100 fill: #00ffff;
101 fill-opacity: 0.5;
102 stroke: none;
103 stroke-width: 1px;
104 }
105 .key8,.fill8{
106 fill: #ffff00;
107 fill-opacity: 0.5;
108 stroke: none;
109 stroke-width: 1px;
110 }
111 .key9,.fill9{
112 fill: #cc6666;
113 fill-opacity: 0.5;
114 stroke: none;
115 stroke-width: 1px;
116 }
117 .key10,.fill10{
118 fill: #663399;
119 fill-opacity: 0.5;
120 stroke: none;
121 stroke-width: 1px;
122 }
123 .key11,.fill11{
124 fill: #339900;
125 fill-opacity: 0.5;
126 stroke: none;
127 stroke-width: 1px;
128 }
129 .key12,.fill12{
130 fill: #9966FF;
131 fill-opacity: 0.5;
132 stroke: none;
133 stroke-width: 1px;
134 }
135 EOL
136 end
137 end
138 end
139 end
Show file before | Show file after | Hide comments
@@ -1,136 +1,149
1 require 'rexml/document'
2 require 'SVG/Graph/BarBase'
3
4 module SVG
5 module Graph
6 # === Create presentation quality SVG horitonzal bar graphs easily
7 #
8 # = Synopsis
9 #
10 # require 'SVG/Graph/BarHorizontal'
11 #
12 # fields = %w(Jan Feb Mar)
13 # data_sales_02 = [12, 45, 21]
14 #
15 # graph = SVG::Graph::BarHorizontal.new({
16 # :height => 500,
17 # :width => 300,
18 # :fields => fields,
19 # })
20 #
21 # graph.add_data({
22 # :data => data_sales_02,
23 # :title => 'Sales 2002',
24 # })
25 #
26 # print "Content-type: image/svg+xml\r\n\r\n"
27 # print graph.burn
28 #
29 # = Description
30 #
31 # This object aims to allow you to easily create high quality
32 # SVG horitonzal bar graphs. You can either use the default style sheet
33 # or supply your own. Either way there are many options which can
34 # be configured to give you control over how the graph is
35 # generated - with or without a key, data elements at each point,
36 # title, subtitle etc.
37 #
38 # = Examples
39 #
40 # * http://germane-software.com/repositories/public/SVG/test/test.rb
41 #
42 # = See also
43 #
44 # * SVG::Graph::Graph
45 # * SVG::Graph::Bar
46 # * SVG::Graph::Line
47 # * SVG::Graph::Pie
48 # * SVG::Graph::Plot
49 # * SVG::Graph::TimeSeries
50 #
51 # == Author
52 #
53 # Sean E. Russell <serATgermaneHYPHENsoftwareDOTcom>
54 #
55 # Copyright 2004 Sean E. Russell
56 # This software is available under the Ruby license[LICENSE.txt]
57 #
58 class BarHorizontal < BarBase
59 # In addition to the defaults set in BarBase::set_defaults, sets
60 # [rotate_y_labels] true
61 # [show_x_guidelines] true
62 # [show_y_guidelines] false
63 def set_defaults
64 super
65 init_with(
66 :rotate_y_labels => true,
67 :show_x_guidelines => true,
68 :show_y_guidelines => false
69 )
70 self.right_align = self.right_font = 1
71 end
72
73 protected
74
75 def get_x_labels
76 maxvalue = max_value
77 minvalue = min_value
78 range = maxvalue - minvalue
79 top_pad = range == 0 ? 10 : range / 20.0
80 scale_range = (maxvalue + top_pad) - minvalue
81
82 scale_division = scale_divisions || (scale_range / 10.0)
83
84 if scale_integers
85 scale_division = scale_division < 1 ? 1 : scale_division.round
86 end
87
88 rv = []
89 maxvalue = maxvalue%scale_division == 0 ?
90 maxvalue : maxvalue + scale_division
91 minvalue.step( maxvalue, scale_division ) {|v| rv << v}
92 return rv
93 end
94
95 def get_y_labels
96 @config[:fields]
97 end
98
99 def y_label_offset( height )
100 height / -2.0
101 end
102
103 def draw_data
104 minvalue = min_value
105 fieldheight = field_height
106 fieldwidth = (@graph_width.to_f - font_size*2*right_font ) /
107 (get_x_labels.max - get_x_labels.min )
108 bargap = bar_gap ? (fieldheight < 10 ? fieldheight / 2 : 10) : 0
109
110 subbar_height = fieldheight - bargap
111 subbar_height /= @data.length if stack == :side
112
113 field_count = 1
114 y_mod = (subbar_height / 2) + (font_size / 2)
115 @config[:fields].each_index { |i|
116 dataset_count = 0
117 for dataset in @data
118 y = @graph_height - (fieldheight * field_count)
119 y += (subbar_height * dataset_count) if stack == :side
120 x = (dataset[:data][i] - minvalue) * fieldwidth
121
122 @graph.add_element( "path", {
123 "d" => "M0 #{y} H#{x} v#{subbar_height} H0 Z",
124 "class" => "fill#{dataset_count+1}"
125 })
126 make_datapoint_text(
127 x+5, y+y_mod, dataset[:data][i], "text-anchor: start; "
128 )
129 dataset_count += 1
130 end
131 field_count += 1
132 }
133 end
134 end
135 end
136 end
1 require 'rexml/document'
2 require 'SVG/Graph/BarBase'
3
4 module SVG
5 module Graph
6 # === Create presentation quality SVG horitonzal bar graphs easily
7 #
8 # = Synopsis
9 #
10 # require 'SVG/Graph/BarHorizontal'
11 #
12 # fields = %w(Jan Feb Mar)
13 # data_sales_02 = [12, 45, 21]
14 #
15 # graph = SVG::Graph::BarHorizontal.new({
16 # :height => 500,
17 # :width => 300,
18 # :fields => fields,
19 # })
20 #
21 # graph.add_data({
22 # :data => data_sales_02,
23 # :title => 'Sales 2002',
24 # })
25 #
26 # print "Content-type: image/svg+xml\r\n\r\n"
27 # print graph.burn
28 #
29 # = Description
30 #
31 # This object aims to allow you to easily create high quality
32 # SVG horitonzal bar graphs. You can either use the default style sheet
33 # or supply your own. Either way there are many options which can
34 # be configured to give you control over how the graph is
35 # generated - with or without a key, data elements at each point,
36 # title, subtitle etc.
37 #
38 # = Examples
39 #
40 # * http://germane-software.com/repositories/public/SVG/test/test.rb
41 #
42 # = See also
43 #
44 # * SVG::Graph::Graph
45 # * SVG::Graph::Bar
46 # * SVG::Graph::Line
47 # * SVG::Graph::Pie
48 # * SVG::Graph::Plot
49 # * SVG::Graph::TimeSeries
50 #
51 # == Author
52 #
53 # Sean E. Russell <serATgermaneHYPHENsoftwareDOTcom>
54 #
55 # Copyright 2004 Sean E. Russell
56 # This software is available under the Ruby license[LICENSE.txt]
57 #
58 class BarHorizontal < BarBase
59 # In addition to the defaults set in BarBase::set_defaults, sets
60 # [rotate_y_labels] true
61 # [show_x_guidelines] true
62 # [show_y_guidelines] false
63 def set_defaults
64 super
65 init_with(
66 :rotate_y_labels => true,
67 :show_x_guidelines => true,
68 :show_y_guidelines => false
69 )
70 self.right_align = self.right_font = 1
71 end
72
73 protected
74
75 def get_x_labels
76 maxvalue = max_value
77 minvalue = min_value
78 range = maxvalue - minvalue
79 top_pad = range == 0 ? 10 : range / 20.0
80 scale_range = (maxvalue + top_pad) - minvalue
81
82 scale_division = scale_divisions || (scale_range / 10.0)
83
84 if scale_integers
85 scale_division = scale_division < 1 ? 1 : scale_division.round
86 end
87
88 rv = []
89 maxvalue = maxvalue%scale_division == 0 ?
90 maxvalue : maxvalue + scale_division
91 minvalue.step( maxvalue, scale_division ) {|v| rv << v}
92 return rv
93 end
94
95 def get_y_labels
96 @config[:fields]
97 end
98
99 def y_label_offset( height )
100 height / -2.0
101 end
102
103 def draw_data
104 minvalue = min_value
105 fieldheight = field_height
106
107 unit_size = (@graph_width.to_f - font_size*2*right_font ) /
108 (get_x_labels.max - get_x_labels.min )
109 bargap = bar_gap ? (fieldheight < 10 ? fieldheight / 2 : 10) : 0
110
111 bar_height = fieldheight - bargap
112 bar_height /= @data.length if stack == :side
113 y_mod = (bar_height / 2) + (font_size / 2)
114
115 field_count = 1
116 @config[:fields].each_index { |i|
117 dataset_count = 0
118 for dataset in @data
119 value = dataset[:data][i]
120
121 top = @graph_height - (fieldheight * field_count)
122 top += (bar_height * dataset_count) if stack == :side
123 # cases (assume 0 = +ve):
124 # value min length left
125 # +ve +ve value.abs - min minvalue.abs
126 # +ve -ve value.abs - 0 minvalue.abs
127 # -ve -ve value.abs - 0 minvalue.abs + value
128 length = (value.abs - (minvalue > 0 ? minvalue : 0)) * unit_size
129 left = (minvalue.abs + (value < 0 ? value : 0)) * unit_size
130
131 @graph.add_element( "rect", {
132 "x" => left.to_s,
133 "y" => top.to_s,
134 "width" => length.to_s,
135 "height" => bar_height.to_s,
136 "class" => "fill#{dataset_count+1}"
137 })
138
139 make_datapoint_text(
140 left+length+5, top+y_mod, value, "text-anchor: start; "
141 )
142 dataset_count += 1
143 end
144 field_count += 1
145 }
146 end
147 end
148 end
149 end
Show file before | Show file after | Hide comments
This diff has been collapsed as it changes many lines, (1955 lines changed) Show them Hide them
@@ -1,977 +1,978
1 begin
2 require 'zlib'
3 @@__have_zlib = true
4 rescue
5 @@__have_zlib = false
6 end
7
8 require 'rexml/document'
9
10 module SVG
11 module Graph
12 VERSION = '@ANT_VERSION@'
13
14 # === Base object for generating SVG Graphs
15 #
16 # == Synopsis
17 #
18 # This class is only used as a superclass of specialized charts. Do not
19 # attempt to use this class directly, unless creating a new chart type.
20 #
21 # For examples of how to subclass this class, see the existing specific
22 # subclasses, such as SVG::Graph::Pie.
23 #
24 # == Examples
25 #
26 # For examples of how to use this package, see either the test files, or
27 # the documentation for the specific class you want to use.
28 #
29 # * file:test/plot.rb
30 # * file:test/single.rb
31 # * file:test/test.rb
32 # * file:test/timeseries.rb
33 #
34 # == Description
35 #
36 # This package should be used as a base for creating SVG graphs.
37 #
38 # == Acknowledgements
39 #
40 # Leo Lapworth for creating the SVG::TT::Graph package which this Ruby
41 # port is based on.
42 #
43 # Stephen Morgan for creating the TT template and SVG.
44 #
45 # == See
46 #
47 # * SVG::Graph::BarHorizontal
48 # * SVG::Graph::Bar
49 # * SVG::Graph::Line
50 # * SVG::Graph::Pie
51 # * SVG::Graph::Plot
52 # * SVG::Graph::TimeSeries
53 #
54 # == Author
55 #
56 # Sean E. Russell <serATgermaneHYPHENsoftwareDOTcom>
57 #
58 # Copyright 2004 Sean E. Russell
59 # This software is available under the Ruby license[LICENSE.txt]
60 #
61 class Graph
62 include REXML
63
64 # Initialize the graph object with the graph settings. You won't
65 # instantiate this class directly; see the subclass for options.
66 # [width] 500
67 # [height] 300
68 # [show_x_guidelines] false
69 # [show_y_guidelines] true
70 # [show_data_values] true
71 # [min_scale_value] 0
72 # [show_x_labels] true
73 # [stagger_x_labels] false
74 # [rotate_x_labels] false
75 # [step_x_labels] 1
76 # [step_include_first_x_label] true
77 # [show_y_labels] true
78 # [rotate_y_labels] false
79 # [scale_integers] false
80 # [show_x_title] false
81 # [x_title] 'X Field names'
82 # [show_y_title] false
83 # [y_title_text_direction] :bt
84 # [y_title] 'Y Scale'
85 # [show_graph_title] false
86 # [graph_title] 'Graph Title'
87 # [show_graph_subtitle] false
88 # [graph_subtitle] 'Graph Sub Title'
89 # [key] true,
90 # [key_position] :right, # bottom or righ
91 # [font_size] 12
92 # [title_font_size] 16
93 # [subtitle_font_size] 14
94 # [x_label_font_size] 12
95 # [x_title_font_size] 14
96 # [y_label_font_size] 12
97 # [y_title_font_size] 14
98 # [key_font_size] 10
99 # [no_css] false
100 # [add_popups] false
101 def initialize( config )
102 @config = config
103
104 self.top_align = self.top_font = self.right_align = self.right_font = 0
105
106 init_with({
107 :width => 500,
108 :height => 300,
109 :show_x_guidelines => false,
110 :show_y_guidelines => true,
111 :show_data_values => true,
112
113 :min_scale_value => 0,
114
115 :show_x_labels => true,
116 :stagger_x_labels => false,
117 :rotate_x_labels => false,
118 :step_x_labels => 1,
119 :step_include_first_x_label => true,
120
121 :show_y_labels => true,
122 :rotate_y_labels => false,
123 :stagger_y_labels => false,
124 :scale_integers => false,
125
126 :show_x_title => false,
127 :x_title => 'X Field names',
128
129 :show_y_title => false,
130 :y_title_text_direction => :bt,
131 :y_title => 'Y Scale',
132
133 :show_graph_title => false,
134 :graph_title => 'Graph Title',
135 :show_graph_subtitle => false,
136 :graph_subtitle => 'Graph Sub Title',
137 :key => true,
138 :key_position => :right, # bottom or right
139
140 :font_size =>10,
141 :title_font_size =>12,
142 :subtitle_font_size =>14,
143 :x_label_font_size =>11,
144 :x_title_font_size =>14,
145 :y_label_font_size =>11,
146 :y_title_font_size =>14,
147 :key_font_size => 9,
148
149 :no_css =>false,
150 :add_popups =>false,
151 })
152
153 set_defaults if methods.include? "set_defaults"
154
155 init_with config
156 end
157
158
159 # This method allows you do add data to the graph object.
160 # It can be called several times to add more data sets in.
161 #
162 # data_sales_02 = [12, 45, 21];
163 #
164 # graph.add_data({
165 # :data => data_sales_02,
166 # :title => 'Sales 2002'
167 # })
168 def add_data conf
169 @data = [] unless defined? @data
170
171 if conf[:data] and conf[:data].kind_of? Array
172 @data << conf
173 else
174 raise "No data provided by #{conf.inspect}"
175 end
176 end
177
178
179 # This method removes all data from the object so that you can
180 # reuse it to create a new graph but with the same config options.
181 #
182 # graph.clear_data
183 def clear_data
184 @data = []
185 end
186
187
188 # This method processes the template with the data and
189 # config which has been set and returns the resulting SVG.
190 #
191 # This method will croak unless at least one data set has
192 # been added to the graph object.
193 #
194 # print graph.burn
195 def burn
196 raise "No data available" unless @data.size > 0
197
198 calculations if methods.include? 'calculations'
199
200 start_svg
201 calculate_graph_dimensions
202 @foreground = Element.new( "g" )
203 draw_graph
204 draw_titles
205 draw_legend
206 draw_data
207 @graph.add_element( @foreground )
208 style
209
210 data = ""
211 @doc.write( data, 0 )
212
213 if @config[:compress]
214 if @@__have_zlib
215 inp, out = IO.pipe
216 gz = Zlib::GzipWriter.new( out )
217 gz.write data
218 gz.close
219 data = inp.read
220 else
221 data << "<!-- Ruby Zlib not available for SVGZ -->";
222 end
223 end
224
225 return data
226 end
227
228
229 # Set the height of the graph box, this is the total height
230 # of the SVG box created - not the graph it self which auto
231 # scales to fix the space.
232 attr_accessor :height
233 # Set the width of the graph box, this is the total width
234 # of the SVG box created - not the graph it self which auto
235 # scales to fix the space.
236 attr_accessor :width
237 # Set the path to an external stylesheet, set to '' if
238 # you want to revert back to using the defaut internal version.
239 #
240 # To create an external stylesheet create a graph using the
241 # default internal version and copy the stylesheet section to
242 # an external file and edit from there.
243 attr_accessor :style_sheet
244 # (Bool) Show the value of each element of data on the graph
245 attr_accessor :show_data_values
246 # The point at which the Y axis starts, defaults to '0',
247 # if set to nil it will default to the minimum data value.
248 attr_accessor :min_scale_value
249 # Whether to show labels on the X axis or not, defaults
250 # to true, set to false if you want to turn them off.
251 attr_accessor :show_x_labels
252 # This puts the X labels at alternative levels so if they
253 # are long field names they will not overlap so easily.
254 # Default it false, to turn on set to true.
255 attr_accessor :stagger_x_labels
256 # This puts the Y labels at alternative levels so if they
257 # are long field names they will not overlap so easily.
258 # Default it false, to turn on set to true.
259 attr_accessor :stagger_y_labels
260 # This turns the X axis labels by 90 degrees.
261 # Default it false, to turn on set to true.
262 attr_accessor :rotate_x_labels
263 # This turns the Y axis labels by 90 degrees.
264 # Default it false, to turn on set to true.
265 attr_accessor :rotate_y_labels
266 # How many "steps" to use between displayed X axis labels,
267 # a step of one means display every label, a step of two results
268 # in every other label being displayed (label <gap> label <gap> label),
269 # a step of three results in every third label being displayed
270 # (label <gap> <gap> label <gap> <gap> label) and so on.
271 attr_accessor :step_x_labels
272 # Whether to (when taking "steps" between X axis labels) step from
273 # the first label (i.e. always include the first label) or step from
274 # the X axis origin (i.e. start with a gap if step_x_labels is greater
275 # than one).
276 attr_accessor :step_include_first_x_label
277 # Whether to show labels on the Y axis or not, defaults
278 # to true, set to false if you want to turn them off.
279 attr_accessor :show_y_labels
280 # Ensures only whole numbers are used as the scale divisions.
281 # Default it false, to turn on set to true. This has no effect if
282 # scale divisions are less than 1.
283 attr_accessor :scale_integers
284 # This defines the gap between markers on the Y axis,
285 # default is a 10th of the max_value, e.g. you will have
286 # 10 markers on the Y axis. NOTE: do not set this too
287 # low - you are limited to 999 markers, after that the
288 # graph won't generate.
289 attr_accessor :scale_divisions
290 # Whether to show the title under the X axis labels,
291 # default is false, set to true to show.
292 attr_accessor :show_x_title
293 # What the title under X axis should be, e.g. 'Months'.
294 attr_accessor :x_title
295 # Whether to show the title under the Y axis labels,
296 # default is false, set to true to show.
297 attr_accessor :show_y_title
298 # Aligns writing mode for Y axis label.
299 # Defaults to :bt (Bottom to Top).
300 # Change to :tb (Top to Bottom) to reverse.
301 attr_accessor :y_title_text_direction
302 # What the title under Y axis should be, e.g. 'Sales in thousands'.
303 attr_accessor :y_title
304 # Whether to show a title on the graph, defaults
305 # to false, set to true to show.
306 attr_accessor :show_graph_title
307 # What the title on the graph should be.
308 attr_accessor :graph_title
309 # Whether to show a subtitle on the graph, defaults
310 # to false, set to true to show.
311 attr_accessor :show_graph_subtitle
312 # What the subtitle on the graph should be.
313 attr_accessor :graph_subtitle
314 # Whether to show a key, defaults to false, set to
315 # true if you want to show it.
316 attr_accessor :key
317 # Where the key should be positioned, defaults to
318 # :right, set to :bottom if you want to move it.
319 attr_accessor :key_position
320 # Set the font size (in points) of the data point labels
321 attr_accessor :font_size
322 # Set the font size of the X axis labels
323 attr_accessor :x_label_font_size
324 # Set the font size of the X axis title
325 attr_accessor :x_title_font_size
326 # Set the font size of the Y axis labels
327 attr_accessor :y_label_font_size
328 # Set the font size of the Y axis title
329 attr_accessor :y_title_font_size
330 # Set the title font size
331 attr_accessor :title_font_size
332 # Set the subtitle font size
333 attr_accessor :subtitle_font_size
334 # Set the key font size
335 attr_accessor :key_font_size
336 # Show guidelines for the X axis
337 attr_accessor :show_x_guidelines
338 # Show guidelines for the Y axis
339 attr_accessor :show_y_guidelines
340 # Do not use CSS if set to true. Many SVG viewers do not support CSS, but
341 # not using CSS can result in larger SVGs as well as making it impossible to
342 # change colors after the chart is generated. Defaults to false.
343 attr_accessor :no_css
344 # Add popups for the data points on some graphs
345 attr_accessor :add_popups
346
347
348 protected
349
350 def sort( *arrys )
351 sort_multiple( arrys )
352 end
353
354 # Overwrite configuration options with supplied options. Used
355 # by subclasses.
356 def init_with config
357 config.each { |key, value|
358 self.send( key.to_s+"=", value ) if methods.include? key.to_s
359 }
360 end
361
362 attr_accessor :top_align, :top_font, :right_align, :right_font
363
364 KEY_BOX_SIZE = 12
365
366 # Override this (and call super) to change the margin to the left
367 # of the plot area. Results in @border_left being set.
368 def calculate_left_margin
369 @border_left = 7
370 # Check for Y labels
371 max_y_label_height_px = rotate_y_labels ?
372 y_label_font_size :
373 get_y_labels.max{|a,b|
374 a.to_s.length<=>b.to_s.length
375 }.to_s.length * y_label_font_size * 0.6
376 @border_left += max_y_label_height_px if show_y_labels
377 @border_left += max_y_label_height_px + 10 if stagger_y_labels
378 @border_left += y_title_font_size + 5 if show_y_title
379 end
380
381
382 # Calculates the width of the widest Y label. This will be the
383 # character height if the Y labels are rotated
384 def max_y_label_width_px
385 return font_size if rotate_y_labels
386 end
387
388
389 # Override this (and call super) to change the margin to the right
390 # of the plot area. Results in @border_right being set.
391 def calculate_right_margin
392 @border_right = 7
393 if key and key_position == :right
394 val = keys.max { |a,b| a.length <=> b.length }
395 @border_right += val.length * key_font_size * 0.7
396 @border_right += KEY_BOX_SIZE
397 @border_right += 10 # Some padding around the box
398 end
399 end
400
401
402 # Override this (and call super) to change the margin to the top
403 # of the plot area. Results in @border_top being set.
404 def calculate_top_margin
405 @border_top = 5
406 @border_top += title_font_size if show_graph_title
407 @border_top += 5
408 @border_top += subtitle_font_size if show_graph_subtitle
409 end
410
411
412 # Adds pop-up point information to a graph.
413 def add_popup( x, y, label )
414 txt_width = label.length * font_size * 0.6 + 10
415 tx = (x+txt_width > width ? x-5 : x+5)
416 t = @foreground.add_element( "text", {
417 "x" => tx.to_s,
418 "y" => (y - font_size).to_s,
419 "visibility" => "hidden",
420 })
421 t.attributes["style"] = "fill: #000; "+
422 (x+txt_width > width ? "text-anchor: end;" : "text-anchor: start;")
423 t.text = label.to_s
424 t.attributes["id"] = t.id.to_s
425
426 @foreground.add_element( "circle", {
427 "cx" => x.to_s,
428 "cy" => y.to_s,
429 "r" => "10",
430 "style" => "opacity: 0",
431 "onmouseover" =>
432 "document.getElementById(#{t.id}).setAttribute('visibility', 'visible' )",
433 "onmouseout" =>
434 "document.getElementById(#{t.id}).setAttribute('visibility', 'hidden' )",
435 })
436
437 end
438
439
440 # Override this (and call super) to change the margin to the bottom
441 # of the plot area. Results in @border_bottom being set.
442 def calculate_bottom_margin
443 @border_bottom = 7
444 if key and key_position == :bottom
445 @border_bottom += @data.size * (font_size + 5)
446 @border_bottom += 10
447 end
448 if show_x_labels
449 max_x_label_height_px = rotate_x_labels ?
450 get_x_labels.max{|a,b|
451 a.length<=>b.length
452 }.length * x_label_font_size * 0.6 :
453 x_label_font_size
454 @border_bottom += max_x_label_height_px
455 @border_bottom += max_x_label_height_px + 10 if stagger_x_labels
456 end
457 @border_bottom += x_title_font_size + 5 if show_x_title
458 end
459
460
461 # Draws the background, axis, and labels.
462 def draw_graph
463 @graph = @root.add_element( "g", {
464 "transform" => "translate( #@border_left #@border_top )"
465 })
466
467 # Background
468 @graph.add_element( "rect", {
469 "x" => "0",
470 "y" => "0",
471 "width" => @graph_width.to_s,
472 "height" => @graph_height.to_s,
473 "class" => "graphBackground"
474 })
475
476 # Axis
477 @graph.add_element( "path", {
478 "d" => "M 0 0 v#@graph_height",
479 "class" => "axis",
480 "id" => "xAxis"
481 })
482 @graph.add_element( "path", {
483 "d" => "M 0 #@graph_height h#@graph_width",
484 "class" => "axis",
485 "id" => "yAxis"
486 })
487
488 draw_x_labels
489 draw_y_labels
490 end
491
492
493 # Where in the X area the label is drawn
494 # Centered in the field, should be width/2. Start, 0.
495 def x_label_offset( width )
496 0
497 end
498
499 def make_datapoint_text( x, y, value, style="" )
500 if show_data_values
501 @foreground.add_element( "text", {
502 "x" => x.to_s,
503 "y" => y.to_s,
504 "class" => "dataPointLabel",
505 "style" => "#{style} stroke: #fff; stroke-width: 2;"
506 }).text = value.to_s
507 text = @foreground.add_element( "text", {
508 "x" => x.to_s,
509 "y" => y.to_s,
510 "class" => "dataPointLabel"
511 })
512 text.text = value.to_s
513 text.attributes["style"] = style if style.length > 0
514 end
515 end
516
517
518 # Draws the X axis labels
519 def draw_x_labels
520 stagger = x_label_font_size + 5
521 if show_x_labels
522 label_width = field_width
523
524 count = 0
525 for label in get_x_labels
526 if step_include_first_x_label == true then
527 step = count % step_x_labels
528 else
529 step = (count + 1) % step_x_labels
530 end
531
532 if step == 0 then
533 text = @graph.add_element( "text" )
534 text.attributes["class"] = "xAxisLabels"
535 text.text = label.to_s
536
537 x = count * label_width + x_label_offset( label_width )
538 y = @graph_height + x_label_font_size + 3
539 t = 0 - (font_size / 2)
540
541 if stagger_x_labels and count % 2 == 1
542 y += stagger
543 @graph.add_element( "path", {
544 "d" => "M#{x} #@graph_height v#{stagger}",
545 "class" => "staggerGuideLine"
546 })
547 end
548
549 text.attributes["x"] = x.to_s
550 text.attributes["y"] = y.to_s
551 if rotate_x_labels
552 text.attributes["transform"] =
553 "rotate( 90 #{x} #{y-x_label_font_size} )"+
554 " translate( 0 -#{x_label_font_size/4} )"
555 text.attributes["style"] = "text-anchor: start"
556 else
557 text.attributes["style"] = "text-anchor: middle"
558 end
559 end
560
561 draw_x_guidelines( label_width, count ) if show_x_guidelines
562 count += 1
563 end
564 end
565 end
566
567
568 # Where in the Y area the label is drawn
569 # Centered in the field, should be width/2. Start, 0.
570 def y_label_offset( height )
571 0
572 end
573
574
575 def field_width
576 (@graph_width.to_f - font_size*2*right_font) /
577 (get_x_labels.length - right_align)
578 end
579
580
581 def field_height
582 (@graph_height.to_f - font_size*2*top_font) /
583 (get_y_labels.length - top_align)
584 end
585
586
587 # Draws the Y axis labels
588 def draw_y_labels
589 stagger = y_label_font_size + 5
590 if show_y_labels
591 label_height = field_height
592
593 count = 0
594 y_offset = @graph_height + y_label_offset( label_height )
595 y_offset += font_size/1.2 unless rotate_y_labels
596 for label in get_y_labels
597 y = y_offset - (label_height * count)
598 x = rotate_y_labels ? 0 : -3
599
600 if stagger_y_labels and count % 2 == 1
601 x -= stagger
602 @graph.add_element( "path", {
603 "d" => "M#{x} #{y} h#{stagger}",
604 "class" => "staggerGuideLine"
605 })
606 end
607
608 text = @graph.add_element( "text", {
609 "x" => x.to_s,
610 "y" => y.to_s,
611 "class" => "yAxisLabels"
612 })
613 text.text = label.to_s
614 if rotate_y_labels
615 text.attributes["transform"] = "translate( -#{font_size} 0 ) "+
616 "rotate( 90 #{x} #{y} ) "
617 text.attributes["style"] = "text-anchor: middle"
618 else
619 text.attributes["y"] = (y - (y_label_font_size/2)).to_s
620 text.attributes["style"] = "text-anchor: end"
621 end
622 draw_y_guidelines( label_height, count ) if show_y_guidelines
623 count += 1
624 end
625 end
626 end
627
628
629 # Draws the X axis guidelines
630 def draw_x_guidelines( label_height, count )
631 if count != 0
632 @graph.add_element( "path", {
633 "d" => "M#{label_height*count} 0 v#@graph_height",
634 "class" => "guideLines"
635 })
636 end
637 end
638
639
640 # Draws the Y axis guidelines
641 def draw_y_guidelines( label_height, count )
642 if count != 0
643 @graph.add_element( "path", {
644 "d" => "M0 #{@graph_height-(label_height*count)} h#@graph_width",
645 "class" => "guideLines"
646 })
647 end
648 end
649
650
651 # Draws the graph title and subtitle
652 def draw_titles
653 if show_graph_title
654 @root.add_element( "text", {
655 "x" => (width / 2).to_s,
656 "y" => (title_font_size).to_s,
657 "class" => "mainTitle"
658 }).text = graph_title.to_s
659 end
660
661 if show_graph_subtitle
662 y_subtitle = show_graph_title ?
663 title_font_size + 10 :
664 subtitle_font_size
665 @root.add_element("text", {
666 "x" => (width / 2).to_s,
667 "y" => (y_subtitle).to_s,
668 "class" => "subTitle"
669 }).text = graph_subtitle.to_s
670 end
671
672 if show_x_title
673 y = @graph_height + @border_top + x_title_font_size
674 if show_x_labels
675 y += x_label_font_size + 5 if stagger_x_labels
676 y += x_label_font_size + 5
677 end
678 x = width / 2
679
680 @root.add_element("text", {
681 "x" => x.to_s,
682 "y" => y.to_s,
683 "class" => "xAxisTitle",
684 }).text = x_title.to_s
685 end
686
687 if show_y_title
688 x = y_title_font_size + (y_title_text_direction==:bt ? 3 : -3)
689 y = height / 2
690
691 text = @root.add_element("text", {
692 "x" => x.to_s,
693 "y" => y.to_s,
694 "class" => "yAxisTitle",
695 })
696 text.text = y_title.to_s
697 if y_title_text_direction == :bt
698 text.attributes["transform"] = "rotate( -90, #{x}, #{y} )"
699 else
700 text.attributes["transform"] = "rotate( 90, #{x}, #{y} )"
701 end
702 end
703 end
704
705 def keys
706 return @data.collect{ |d| d[:title] }
707 end
708
709 # Draws the legend on the graph
710 def draw_legend
711 if key
712 group = @root.add_element( "g" )
713
714 key_count = 0
715 for key_name in keys
716 y_offset = (KEY_BOX_SIZE * key_count) + (key_count * 5)
717 group.add_element( "rect", {
718 "x" => 0.to_s,
719 "y" => y_offset.to_s,
720 "width" => KEY_BOX_SIZE.to_s,
721 "height" => KEY_BOX_SIZE.to_s,
722 "class" => "key#{key_count+1}"
723 })
724 group.add_element( "text", {
725 "x" => (KEY_BOX_SIZE + 5).to_s,
726 "y" => (y_offset + KEY_BOX_SIZE - 2).to_s,
727 "class" => "keyText"
728 }).text = key_name.to_s
729 key_count += 1
730 end
731
732 case key_position
733 when :right
734 x_offset = @graph_width + @border_left + 10
735 y_offset = @border_top + 20
736 when :bottom
737 x_offset = @border_left + 20
738 y_offset = @border_top + @graph_height + 5
739 if show_x_labels
740 max_x_label_height_px = rotate_x_labels ?
741 get_x_labels.max{|a,b|
742 a.length<=>b.length
743 }.length * x_label_font_size :
744 x_label_font_size
745 y_offset += max_x_label_height_px
746 y_offset += max_x_label_height_px + 5 if stagger_x_labels
747 end
748 y_offset += x_title_font_size + 5 if show_x_title
749 end
750 group.attributes["transform"] = "translate(#{x_offset} #{y_offset})"
751 end
752 end
753
754
755 private
756
757 def sort_multiple( arrys, lo=0, hi=arrys[0].length-1 )
758 if lo < hi
759 p = partition(arrys,lo,hi)
760 sort_multiple(arrys, lo, p-1)
761 sort_multiple(arrys, p+1, hi)
762 end
763 arrys
764 end
765
766 def partition( arrys, lo, hi )
767 p = arrys[0][lo]
768 l = lo
769 z = lo+1
770 while z <= hi
771 if arrys[0][z] < p
772 l += 1
773 arrys.each { |arry| arry[z], arry[l] = arry[l], arry[z] }
774 end
775 z += 1
776 end
777 arrys.each { |arry| arry[lo], arry[l] = arry[l], arry[lo] }
778 l
779 end
780
781 def style
782 if no_css
783 styles = parse_css
784 @root.elements.each("//*[@class]") { |el|
785 cl = el.attributes["class"]
786 style = styles[cl]
787 style += el.attributes["style"] if el.attributes["style"]
788 el.attributes["style"] = style
789 }
790 end
791 end
792
793 def parse_css
794 css = get_style
795 rv = {}
796 while css =~ /^(\.(\w+)(?:\s*,\s*\.\w+)*)\s*\{/m
797 names_orig = names = $1
798 css = $'
799 css =~ /([^}]+)\}/m
800 content = $1
801 css = $'
802
803 nms = []
804 while names =~ /^\s*,?\s*\.(\w+)/
805 nms << $1
806 names = $'
807 end
808
809 content = content.tr( "\n\t", " ")
810 for name in nms
811 current = rv[name]
812 current = current ? current+"; "+content : content
813 rv[name] = current.strip.squeeze(" ")
814 end
815 end
816 return rv
817 end
818
819
820 # Override and place code to add defs here
821 def add_defs defs
822 end
823
824
825 def start_svg
826 # Base document
827 @doc = Document.new
828 @doc << XMLDecl.new
829 @doc << DocType.new( %q{svg PUBLIC "-//W3C//DTD SVG 1.0//EN" } +
830 %q{"http://www.w3.org/TR/2001/REC-SVG-20010904/DTD/svg10.dtd"} )
831 if style_sheet && style_sheet != ''
832 @doc << Instruction.new( "xml-stylesheet",
833 %Q{href="#{style_sheet}" type="text/css"} )
834 end
835 @root = @doc.add_element( "svg", {
836 "width" => width.to_s,
837 "height" => height.to_s,
838 "viewBox" => "0 0 #{width} #{height}",
839 "xmlns" => "http://www.w3.org/2000/svg",
840 "xmlns:xlink" => "http://www.w3.org/1999/xlink",
841 "xmlns:a3" => "http://ns.adobe.com/AdobeSVGViewerExtensions/3.0/",
842 "a3:scriptImplementation" => "Adobe"
843 })
844 @root << Comment.new( " "+"\\"*66 )
845 @root << Comment.new( " Created with SVG::Graph " )
846 @root << Comment.new( " SVG::Graph by Sean E. Russell " )
847 @root << Comment.new( " Losely based on SVG::TT::Graph for Perl by"+
848 " Leo Lapworth & Stephan Morgan " )
849 @root << Comment.new( " "+"/"*66 )
850
851 defs = @root.add_element( "defs" )
852 add_defs defs
853 if not(style_sheet && style_sheet != '') and !no_css
854 @root << Comment.new(" include default stylesheet if none specified ")
855 style = defs.add_element( "style", {"type"=>"text/css"} )
856 style << CData.new( get_style )
857 end
858
859 @root << Comment.new( "SVG Background" )
860 @root.add_element( "rect", {
861 "width" => width.to_s,
862 "height" => height.to_s,
863 "x" => "0",
864 "y" => "0",
865 "class" => "svgBackground"
866 })
867 end
868
869
870 def calculate_graph_dimensions
871 calculate_left_margin
872 calculate_right_margin
873 calculate_bottom_margin
874 calculate_top_margin
875 @graph_width = width - @border_left - @border_right
876 @graph_height = height - @border_top - @border_bottom
877 end
878
879 def get_style
880 return <<EOL
881 /* Copy from here for external style sheet */
882 .svgBackground{
883 fill:#ffffff;
884 }
885 .graphBackground{
886 fill:#f5f5f5;
887 }
888
889 /* graphs titles */
890 .mainTitle{
891 text-anchor: middle;
892 fill: #555555;
893 font-size: #{title_font_size}px;
894 font-family: "Verdana", sans-serif;
895 font-weight: bold;
896 }
897 .subTitle{
898 text-anchor: middle;
899 fill: #999999;
900 font-size: #{subtitle_font_size}px;
901 font-family: "Verdana", sans-serif;
902 font-weight: normal;
903 }
904
905 .axis{
906 stroke: #666666;
907 stroke-width: 1px;
908 }
909
910 .guideLines{
911 stroke: #666666;
912 stroke-width: 1px;
913 stroke-dasharray:2,2,2;
914 }
915
916 .xAxisLabels{
917 text-anchor: middle;
918 fill: #000000;
919 font-size: #{x_label_font_size}px;
920 font-family: "Verdana", sans-serif;
921 font-weight: normal;
922 }
923
924 .yAxisLabels{
925 text-anchor: end;
926 fill: #000000;
927 font-size: #{y_label_font_size}px;
928 font-family: "Verdana", sans-serif;
929 font-weight: normal;
930 }
931
932 .xAxisTitle{
933 text-anchor: middle;
934 fill: #ff0000;
935 font-size: #{x_title_font_size}px;
936 font-family: "Verdana", sans-serif;
937 font-weight: normal;
938 }
939
940 .yAxisTitle{
941 fill: #ff0000;
942 text-anchor: middle;
943 font-size: #{y_title_font_size}px;
944 font-family: "Verdana", sans-serif;
945 font-weight: normal;
946 }
947
948 .dataPointLabel{
949 fill: #000000;
950 text-anchor:middle;
951 font-size: 10px;
952 font-family: "Verdana", sans-serif;
953 font-weight: normal;
954 }
955
956 .staggerGuideLine{
957 fill: none;
958 stroke: #000000;
959 stroke-width: 0.5px;
960 }
961
962 #{get_css}
963
964 .keyText{
965 fill: #000000;
966 text-anchor:start;
967 font-size: #{key_font_size}px;
968 font-family: "Verdana", sans-serif;
969 font-weight: normal;
970 }
971 /* End copy for external style sheet */
972 EOL
973 end
974
975 end
976 end
977 end
1 begin
2 require 'zlib'
3 @@__have_zlib = true
4 rescue
5 @@__have_zlib = false
6 end
7
8 require 'rexml/document'
9
10 module SVG
11 module Graph
12 VERSION = '@ANT_VERSION@'
13
14 # === Base object for generating SVG Graphs
15 #
16 # == Synopsis
17 #
18 # This class is only used as a superclass of specialized charts. Do not
19 # attempt to use this class directly, unless creating a new chart type.
20 #
21 # For examples of how to subclass this class, see the existing specific
22 # subclasses, such as SVG::Graph::Pie.
23 #
24 # == Examples
25 #
26 # For examples of how to use this package, see either the test files, or
27 # the documentation for the specific class you want to use.
28 #
29 # * file:test/plot.rb
30 # * file:test/single.rb
31 # * file:test/test.rb
32 # * file:test/timeseries.rb
33 #
34 # == Description
35 #
36 # This package should be used as a base for creating SVG graphs.
37 #
38 # == Acknowledgements
39 #
40 # Leo Lapworth for creating the SVG::TT::Graph package which this Ruby
41 # port is based on.
42 #
43 # Stephen Morgan for creating the TT template and SVG.
44 #
45 # == See
46 #
47 # * SVG::Graph::BarHorizontal
48 # * SVG::Graph::Bar
49 # * SVG::Graph::Line
50 # * SVG::Graph::Pie
51 # * SVG::Graph::Plot
52 # * SVG::Graph::TimeSeries
53 #
54 # == Author
55 #
56 # Sean E. Russell <serATgermaneHYPHENsoftwareDOTcom>
57 #
58 # Copyright 2004 Sean E. Russell
59 # This software is available under the Ruby license[LICENSE.txt]
60 #
61 class Graph
62 include REXML
63
64 # Initialize the graph object with the graph settings. You won't
65 # instantiate this class directly; see the subclass for options.
66 # [width] 500
67 # [height] 300
68 # [show_x_guidelines] false
69 # [show_y_guidelines] true
70 # [show_data_values] true
71 # [min_scale_value] 0
72 # [show_x_labels] true
73 # [stagger_x_labels] false
74 # [rotate_x_labels] false
75 # [step_x_labels] 1
76 # [step_include_first_x_label] true
77 # [show_y_labels] true
78 # [rotate_y_labels] false
79 # [scale_integers] false
80 # [show_x_title] false
81 # [x_title] 'X Field names'
82 # [show_y_title] false
83 # [y_title_text_direction] :bt
84 # [y_title] 'Y Scale'
85 # [show_graph_title] false
86 # [graph_title] 'Graph Title'
87 # [show_graph_subtitle] false
88 # [graph_subtitle] 'Graph Sub Title'
89 # [key] true,
90 # [key_position] :right, # bottom or righ
91 # [font_size] 12
92 # [title_font_size] 16
93 # [subtitle_font_size] 14
94 # [x_label_font_size] 12
95 # [x_title_font_size] 14
96 # [y_label_font_size] 12
97 # [y_title_font_size] 14
98 # [key_font_size] 10
99 # [no_css] false
100 # [add_popups] false
101 def initialize( config )
102 @config = config
103
104 self.top_align = self.top_font = self.right_align = self.right_font = 0
105
106 init_with({
107 :width => 500,
108 :height => 300,
109 :show_x_guidelines => false,
110 :show_y_guidelines => true,
111 :show_data_values => true,
112
113 # :min_scale_value => 0,
114
115 :show_x_labels => true,
116 :stagger_x_labels => false,
117 :rotate_x_labels => false,
118 :step_x_labels => 1,
119 :step_include_first_x_label => true,
120
121 :show_y_labels => true,
122 :rotate_y_labels => false,
123 :stagger_y_labels => false,
124 :scale_integers => false,
125
126 :show_x_title => false,
127 :x_title => 'X Field names',
128
129 :show_y_title => false,
130 :y_title_text_direction => :bt,
131 :y_title => 'Y Scale',
132
133 :show_graph_title => false,
134 :graph_title => 'Graph Title',
135 :show_graph_subtitle => false,
136 :graph_subtitle => 'Graph Sub Title',
137 :key => true,
138 :key_position => :right, # bottom or right
139
140 :font_size =>12,
141 :title_font_size =>16,
142 :subtitle_font_size =>14,
143 :x_label_font_size =>12,
144 :x_title_font_size =>14,
145 :y_label_font_size =>12,
146 :y_title_font_size =>14,
147 :key_font_size =>10,
148
149 :no_css =>false,
150 :add_popups =>false,
151 })
152
153 set_defaults if methods.include? "set_defaults"
154
155 init_with config
156 end
157
158
159 # This method allows you do add data to the graph object.
160 # It can be called several times to add more data sets in.
161 #
162 # data_sales_02 = [12, 45, 21];
163 #
164 # graph.add_data({
165 # :data => data_sales_02,
166 # :title => 'Sales 2002'
167 # })
168 def add_data conf
169 @data = [] unless defined? @data
170
171 if conf[:data] and conf[:data].kind_of? Array
172 @data << conf
173 else
174 raise "No data provided by #{conf.inspect}"
175 end
176 end
177
178
179 # This method removes all data from the object so that you can
180 # reuse it to create a new graph but with the same config options.
181 #
182 # graph.clear_data
183 def clear_data
184 @data = []
185 end
186
187
188 # This method processes the template with the data and
189 # config which has been set and returns the resulting SVG.
190 #
191 # This method will croak unless at least one data set has
192 # been added to the graph object.
193 #
194 # print graph.burn
195 def burn
196 raise "No data available" unless @data.size > 0
197
198 calculations if methods.include? 'calculations'
199
200 start_svg
201 calculate_graph_dimensions
202 @foreground = Element.new( "g" )
203 draw_graph
204 draw_titles
205 draw_legend
206 draw_data
207 @graph.add_element( @foreground )
208 style
209
210 data = ""
211 @doc.write( data, 0 )
212
213 if @config[:compress]
214 if @@__have_zlib
215 inp, out = IO.pipe
216 gz = Zlib::GzipWriter.new( out )
217 gz.write data
218 gz.close
219 data = inp.read
220 else
221 data << "<!-- Ruby Zlib not available for SVGZ -->";
222 end
223 end
224
225 return data
226 end
227
228
229 # Set the height of the graph box, this is the total height
230 # of the SVG box created - not the graph it self which auto
231 # scales to fix the space.
232 attr_accessor :height
233 # Set the width of the graph box, this is the total width
234 # of the SVG box created - not the graph it self which auto
235 # scales to fix the space.
236 attr_accessor :width
237 # Set the path to an external stylesheet, set to '' if
238 # you want to revert back to using the defaut internal version.
239 #
240 # To create an external stylesheet create a graph using the
241 # default internal version and copy the stylesheet section to
242 # an external file and edit from there.
243 attr_accessor :style_sheet
244 # (Bool) Show the value of each element of data on the graph
245 attr_accessor :show_data_values
246 # The point at which the Y axis starts, defaults to '0',
247 # if set to nil it will default to the minimum data value.
248 attr_accessor :min_scale_value
249 # Whether to show labels on the X axis or not, defaults
250 # to true, set to false if you want to turn them off.
251 attr_accessor :show_x_labels
252 # This puts the X labels at alternative levels so if they
253 # are long field names they will not overlap so easily.
254 # Default it false, to turn on set to true.
255 attr_accessor :stagger_x_labels
256 # This puts the Y labels at alternative levels so if they
257 # are long field names they will not overlap so easily.
258 # Default it false, to turn on set to true.
259 attr_accessor :stagger_y_labels
260 # This turns the X axis labels by 90 degrees.
261 # Default it false, to turn on set to true.
262 attr_accessor :rotate_x_labels
263 # This turns the Y axis labels by 90 degrees.
264 # Default it false, to turn on set to true.
265 attr_accessor :rotate_y_labels
266 # How many "steps" to use between displayed X axis labels,
267 # a step of one means display every label, a step of two results
268 # in every other label being displayed (label <gap> label <gap> label),
269 # a step of three results in every third label being displayed
270 # (label <gap> <gap> label <gap> <gap> label) and so on.
271 attr_accessor :step_x_labels
272 # Whether to (when taking "steps" between X axis labels) step from
273 # the first label (i.e. always include the first label) or step from
274 # the X axis origin (i.e. start with a gap if step_x_labels is greater
275 # than one).
276 attr_accessor :step_include_first_x_label
277 # Whether to show labels on the Y axis or not, defaults
278 # to true, set to false if you want to turn them off.
279 attr_accessor :show_y_labels
280 # Ensures only whole numbers are used as the scale divisions.
281 # Default it false, to turn on set to true. This has no effect if
282 # scale divisions are less than 1.
283 attr_accessor :scale_integers
284 # This defines the gap between markers on the Y axis,
285 # default is a 10th of the max_value, e.g. you will have
286 # 10 markers on the Y axis. NOTE: do not set this too
287 # low - you are limited to 999 markers, after that the
288 # graph won't generate.
289 attr_accessor :scale_divisions
290 # Whether to show the title under the X axis labels,
291 # default is false, set to true to show.
292 attr_accessor :show_x_title
293 # What the title under X axis should be, e.g. 'Months'.
294 attr_accessor :x_title
295 # Whether to show the title under the Y axis labels,
296 # default is false, set to true to show.
297 attr_accessor :show_y_title
298 # Aligns writing mode for Y axis label.
299 # Defaults to :bt (Bottom to Top).
300 # Change to :tb (Top to Bottom) to reverse.
301 attr_accessor :y_title_text_direction
302 # What the title under Y axis should be, e.g. 'Sales in thousands'.
303 attr_accessor :y_title
304 # Whether to show a title on the graph, defaults
305 # to false, set to true to show.
306 attr_accessor :show_graph_title
307 # What the title on the graph should be.
308 attr_accessor :graph_title
309 # Whether to show a subtitle on the graph, defaults
310 # to false, set to true to show.
311 attr_accessor :show_graph_subtitle
312 # What the subtitle on the graph should be.
313 attr_accessor :graph_subtitle
314 # Whether to show a key, defaults to false, set to
315 # true if you want to show it.
316 attr_accessor :key
317 # Where the key should be positioned, defaults to
318 # :right, set to :bottom if you want to move it.
319 attr_accessor :key_position
320 # Set the font size (in points) of the data point labels
321 attr_accessor :font_size
322 # Set the font size of the X axis labels
323 attr_accessor :x_label_font_size
324 # Set the font size of the X axis title
325 attr_accessor :x_title_font_size
326 # Set the font size of the Y axis labels
327 attr_accessor :y_label_font_size
328 # Set the font size of the Y axis title
329 attr_accessor :y_title_font_size
330 # Set the title font size
331 attr_accessor :title_font_size
332 # Set the subtitle font size
333 attr_accessor :subtitle_font_size
334 # Set the key font size
335 attr_accessor :key_font_size
336 # Show guidelines for the X axis
337 attr_accessor :show_x_guidelines
338 # Show guidelines for the Y axis
339 attr_accessor :show_y_guidelines
340 # Do not use CSS if set to true. Many SVG viewers do not support CSS, but
341 # not using CSS can result in larger SVGs as well as making it impossible to
342 # change colors after the chart is generated. Defaults to false.
343 attr_accessor :no_css
344 # Add popups for the data points on some graphs
345 attr_accessor :add_popups
346
347
348 protected
349
350 def sort( *arrys )
351 sort_multiple( arrys )
352 end
353
354 # Overwrite configuration options with supplied options. Used
355 # by subclasses.
356 def init_with config
357 config.each { |key, value|
358 self.send( key.to_s+"=", value ) if methods.include? key.to_s
359 }
360 end
361
362 attr_accessor :top_align, :top_font, :right_align, :right_font
363
364 KEY_BOX_SIZE = 12
365
366 # Override this (and call super) to change the margin to the left
367 # of the plot area. Results in @border_left being set.
368 def calculate_left_margin
369 @border_left = 7
370 # Check for Y labels
371 max_y_label_height_px = rotate_y_labels ?
372 y_label_font_size :
373 get_y_labels.max{|a,b|
374 a.to_s.length<=>b.to_s.length
375 }.to_s.length * y_label_font_size * 0.6
376 @border_left += max_y_label_height_px if show_y_labels
377 @border_left += max_y_label_height_px + 10 if stagger_y_labels
378 @border_left += y_title_font_size + 5 if show_y_title
379 end
380
381
382 # Calculates the width of the widest Y label. This will be the
383 # character height if the Y labels are rotated
384 def max_y_label_width_px
385 return font_size if rotate_y_labels
386 end
387
388
389 # Override this (and call super) to change the margin to the right
390 # of the plot area. Results in @border_right being set.
391 def calculate_right_margin
392 @border_right = 7
393 if key and key_position == :right
394 val = keys.max { |a,b| a.length <=> b.length }
395 @border_right += val.length * key_font_size * 0.6
396 @border_right += KEY_BOX_SIZE
397 @border_right += 10 # Some padding around the box
398 end
399 end
400
401
402 # Override this (and call super) to change the margin to the top
403 # of the plot area. Results in @border_top being set.
404 def calculate_top_margin
405 @border_top = 5
406 @border_top += title_font_size if show_graph_title
407 @border_top += 5
408 @border_top += subtitle_font_size if show_graph_subtitle
409 end
410
411
412 # Adds pop-up point information to a graph.
413 def add_popup( x, y, label )
414 txt_width = label.length * font_size * 0.6 + 10
415 tx = (x+txt_width > width ? x-5 : x+5)
416 t = @foreground.add_element( "text", {
417 "x" => tx.to_s,
418 "y" => (y - font_size).to_s,
419 "visibility" => "hidden",
420 })
421 t.attributes["style"] = "fill: #000; "+
422 (x+txt_width > width ? "text-anchor: end;" : "text-anchor: start;")
423 t.text = label.to_s
424 t.attributes["id"] = t.object_id.to_s
425
426 @foreground.add_element( "circle", {
427 "cx" => x.to_s,
428 "cy" => y.to_s,
429 "r" => "10",
430 "style" => "opacity: 0",
431 "onmouseover" =>
432 "document.getElementById(#{t.object_id}).setAttribute('visibility', 'visible' )",
433 "onmouseout" =>
434 "document.getElementById(#{t.object_id}).setAttribute('visibility', 'hidden' )",
435 })
436
437 end
438
439
440 # Override this (and call super) to change the margin to the bottom
441 # of the plot area. Results in @border_bottom being set.
442 def calculate_bottom_margin
443 @border_bottom = 7
444 if key and key_position == :bottom
445 @border_bottom += @data.size * (font_size + 5)
446 @border_bottom += 10
447 end
448 if show_x_labels
449 max_x_label_height_px = (not rotate_x_labels) ?
450 x_label_font_size :
451 get_x_labels.max{|a,b|
452 a.to_s.length<=>b.to_s.length
453 }.to_s.length * x_label_font_size * 0.6
454 @border_bottom += max_x_label_height_px
455 @border_bottom += max_x_label_height_px + 10 if stagger_x_labels
456 end
457 @border_bottom += x_title_font_size + 5 if show_x_title
458 end
459
460
461 # Draws the background, axis, and labels.
462 def draw_graph
463 @graph = @root.add_element( "g", {
464 "transform" => "translate( #@border_left #@border_top )"
465 })
466
467 # Background
468 @graph.add_element( "rect", {
469 "x" => "0",
470 "y" => "0",
471 "width" => @graph_width.to_s,
472 "height" => @graph_height.to_s,
473 "class" => "graphBackground"
474 })
475
476 # Axis
477 @graph.add_element( "path", {
478 "d" => "M 0 0 v#@graph_height",
479 "class" => "axis",
480 "id" => "xAxis"
481 })
482 @graph.add_element( "path", {
483 "d" => "M 0 #@graph_height h#@graph_width",
484 "class" => "axis",
485 "id" => "yAxis"
486 })
487
488 draw_x_labels
489 draw_y_labels
490 end
491
492
493 # Where in the X area the label is drawn
494 # Centered in the field, should be width/2. Start, 0.
495 def x_label_offset( width )
496 0
497 end
498
499 def make_datapoint_text( x, y, value, style="" )
500 if show_data_values
501 @foreground.add_element( "text", {
502 "x" => x.to_s,
503 "y" => y.to_s,
504 "class" => "dataPointLabel",
505 "style" => "#{style} stroke: #fff; stroke-width: 2;"
506 }).text = value.to_s
507 text = @foreground.add_element( "text", {
508 "x" => x.to_s,
509 "y" => y.to_s,
510 "class" => "dataPointLabel"
511 })
512 text.text = value.to_s
513 text.attributes["style"] = style if style.length > 0
514 end
515 end
516
517
518 # Draws the X axis labels
519 def draw_x_labels
520 stagger = x_label_font_size + 5
521 if show_x_labels
522 label_width = field_width
523
524 count = 0
525 for label in get_x_labels
526 if step_include_first_x_label == true then
527 step = count % step_x_labels
528 else
529 step = (count + 1) % step_x_labels
530 end
531
532 if step == 0 then
533 text = @graph.add_element( "text" )
534 text.attributes["class"] = "xAxisLabels"
535 text.text = label.to_s
536
537 x = count * label_width + x_label_offset( label_width )
538 y = @graph_height + x_label_font_size + 3
539 t = 0 - (font_size / 2)
540
541 if stagger_x_labels and count % 2 == 1
542 y += stagger
543 @graph.add_element( "path", {
544 "d" => "M#{x} #@graph_height v#{stagger}",
545 "class" => "staggerGuideLine"
546 })
547 end
548
549 text.attributes["x"] = x.to_s
550 text.attributes["y"] = y.to_s
551 if rotate_x_labels
552 text.attributes["transform"] =
553 "rotate( 90 #{x} #{y-x_label_font_size} )"+
554 " translate( 0 -#{x_label_font_size/4} )"
555 text.attributes["style"] = "text-anchor: start"
556 else
557 text.attributes["style"] = "text-anchor: middle"
558 end
559 end
560
561 draw_x_guidelines( label_width, count ) if show_x_guidelines
562 count += 1
563 end
564 end
565 end
566
567
568 # Where in the Y area the label is drawn
569 # Centered in the field, should be width/2. Start, 0.
570 def y_label_offset( height )
571 0
572 end
573
574
575 def field_width
576 (@graph_width.to_f - font_size*2*right_font) /
577 (get_x_labels.length - right_align)
578 end
579
580
581 def field_height
582 (@graph_height.to_f - font_size*2*top_font) /
583 (get_y_labels.length - top_align)
584 end
585
586
587 # Draws the Y axis labels
588 def draw_y_labels
589 stagger = y_label_font_size + 5
590 if show_y_labels
591 label_height = field_height
592
593 count = 0
594 y_offset = @graph_height + y_label_offset( label_height )
595 y_offset += font_size/1.2 unless rotate_y_labels
596 for label in get_y_labels
597 y = y_offset - (label_height * count)
598 x = rotate_y_labels ? 0 : -3
599
600 if stagger_y_labels and count % 2 == 1
601 x -= stagger
602 @graph.add_element( "path", {
603 "d" => "M#{x} #{y} h#{stagger}",
604 "class" => "staggerGuideLine"
605 })
606 end
607
608 text = @graph.add_element( "text", {
609 "x" => x.to_s,
610 "y" => y.to_s,
611 "class" => "yAxisLabels"
612 })
613 text.text = label.to_s
614 if rotate_y_labels
615 text.attributes["transform"] = "translate( -#{font_size} 0 ) "+
616 "rotate( 90 #{x} #{y} ) "
617 text.attributes["style"] = "text-anchor: middle"
618 else
619 text.attributes["y"] = (y - (y_label_font_size/2)).to_s
620 text.attributes["style"] = "text-anchor: end"
621 end
622 draw_y_guidelines( label_height, count ) if show_y_guidelines
623 count += 1
624 end
625 end
626 end
627
628
629 # Draws the X axis guidelines
630 def draw_x_guidelines( label_height, count )
631 if count != 0
632 @graph.add_element( "path", {
633 "d" => "M#{label_height*count} 0 v#@graph_height",
634 "class" => "guideLines"
635 })
636 end
637 end
638
639
640 # Draws the Y axis guidelines
641 def draw_y_guidelines( label_height, count )
642 if count != 0
643 @graph.add_element( "path", {
644 "d" => "M0 #{@graph_height-(label_height*count)} h#@graph_width",
645 "class" => "guideLines"
646 })
647 end
648 end
649
650
651 # Draws the graph title and subtitle
652 def draw_titles
653 if show_graph_title
654 @root.add_element( "text", {
655 "x" => (width / 2).to_s,
656 "y" => (title_font_size).to_s,
657 "class" => "mainTitle"
658 }).text = graph_title.to_s
659 end
660
661 if show_graph_subtitle
662 y_subtitle = show_graph_title ?
663 title_font_size + 10 :
664 subtitle_font_size
665 @root.add_element("text", {
666 "x" => (width / 2).to_s,
667 "y" => (y_subtitle).to_s,
668 "class" => "subTitle"
669 }).text = graph_subtitle.to_s
670 end
671
672 if show_x_title
673 y = @graph_height + @border_top + x_title_font_size
674 if show_x_labels
675 y += x_label_font_size + 5 if stagger_x_labels
676 y += x_label_font_size + 5
677 end
678 x = width / 2
679
680 @root.add_element("text", {
681 "x" => x.to_s,
682 "y" => y.to_s,
683 "class" => "xAxisTitle",
684 }).text = x_title.to_s
685 end
686
687 if show_y_title
688 x = y_title_font_size + (y_title_text_direction==:bt ? 3 : -3)
689 y = height / 2
690
691 text = @root.add_element("text", {
692 "x" => x.to_s,
693 "y" => y.to_s,
694 "class" => "yAxisTitle",
695 })
696 text.text = y_title.to_s
697 if y_title_text_direction == :bt
698 text.attributes["transform"] = "rotate( -90, #{x}, #{y} )"
699 else
700 text.attributes["transform"] = "rotate( 90, #{x}, #{y} )"
701 end
702 end
703 end
704
705 def keys
706 return @data.collect{ |d| d[:title] }
707 end
708
709 # Draws the legend on the graph
710 def draw_legend
711 if key
712 group = @root.add_element( "g" )
713
714 key_count = 0
715 for key_name in keys
716 y_offset = (KEY_BOX_SIZE * key_count) + (key_count * 5)
717 group.add_element( "rect", {
718 "x" => 0.to_s,
719 "y" => y_offset.to_s,
720 "width" => KEY_BOX_SIZE.to_s,
721 "height" => KEY_BOX_SIZE.to_s,
722 "class" => "key#{key_count+1}"
723 })
724 group.add_element( "text", {
725 "x" => (KEY_BOX_SIZE + 5).to_s,
726 "y" => (y_offset + KEY_BOX_SIZE).to_s,
727 "class" => "keyText"
728 }).text = key_name.to_s
729 key_count += 1
730 end
731
732 case key_position
733 when :right
734 x_offset = @graph_width + @border_left + 10
735 y_offset = @border_top + 20
736 when :bottom
737 x_offset = @border_left + 20
738 y_offset = @border_top + @graph_height + 5
739 if show_x_labels
740 max_x_label_height_px = (not rotate_x_labels) ?
741 x_label_font_size :
742 get_x_labels.max{|a,b|
743 a.to_s.length<=>b.to_s.length
744 }.to_s.length * x_label_font_size * 0.6
745 x_label_font_size
746 y_offset += max_x_label_height_px
747 y_offset += max_x_label_height_px + 5 if stagger_x_labels
748 end
749 y_offset += x_title_font_size + 5 if show_x_title
750 end
751 group.attributes["transform"] = "translate(#{x_offset} #{y_offset})"
752 end
753 end
754
755
756 private
757
758 def sort_multiple( arrys, lo=0, hi=arrys[0].length-1 )
759 if lo < hi
760 p = partition(arrys,lo,hi)
761 sort_multiple(arrys, lo, p-1)
762 sort_multiple(arrys, p+1, hi)
763 end
764 arrys
765 end
766
767 def partition( arrys, lo, hi )
768 p = arrys[0][lo]
769 l = lo
770 z = lo+1
771 while z <= hi
772 if arrys[0][z] < p
773 l += 1
774 arrys.each { |arry| arry[z], arry[l] = arry[l], arry[z] }
775 end
776 z += 1
777 end
778 arrys.each { |arry| arry[lo], arry[l] = arry[l], arry[lo] }
779 l
780 end
781
782 def style
783 if no_css
784 styles = parse_css
785 @root.elements.each("//*[@class]") { |el|
786 cl = el.attributes["class"]
787 style = styles[cl]
788 style += el.attributes["style"] if el.attributes["style"]
789 el.attributes["style"] = style
790 }
791 end
792 end
793
794 def parse_css
795 css = get_style
796 rv = {}
797 while css =~ /^(\.(\w+)(?:\s*,\s*\.\w+)*)\s*\{/m
798 names_orig = names = $1
799 css = $'
800 css =~ /([^}]+)\}/m
801 content = $1
802 css = $'
803
804 nms = []
805 while names =~ /^\s*,?\s*\.(\w+)/
806 nms << $1
807 names = $'
808 end
809
810 content = content.tr( "\n\t", " ")
811 for name in nms
812 current = rv[name]
813 current = current ? current+"; "+content : content
814 rv[name] = current.strip.squeeze(" ")
815 end
816 end
817 return rv
818 end
819
820
821 # Override and place code to add defs here
822 def add_defs defs
823 end
824
825
826 def start_svg
827 # Base document
828 @doc = Document.new
829 @doc << XMLDecl.new
830 @doc << DocType.new( %q{svg PUBLIC "-//W3C//DTD SVG 1.0//EN" } +
831 %q{"http://www.w3.org/TR/2001/REC-SVG-20010904/DTD/svg10.dtd"} )
832 if style_sheet && style_sheet != ''
833 @doc << Instruction.new( "xml-stylesheet",
834 %Q{href="#{style_sheet}" type="text/css"} )
835 end
836 @root = @doc.add_element( "svg", {
837 "width" => width.to_s,
838 "height" => height.to_s,
839 "viewBox" => "0 0 #{width} #{height}",
840 "xmlns" => "http://www.w3.org/2000/svg",
841 "xmlns:xlink" => "http://www.w3.org/1999/xlink",
842 "xmlns:a3" => "http://ns.adobe.com/AdobeSVGViewerExtensions/3.0/",
843 "a3:scriptImplementation" => "Adobe"
844 })
845 @root << Comment.new( " "+"\\"*66 )
846 @root << Comment.new( " Created with SVG::Graph " )
847 @root << Comment.new( " SVG::Graph by Sean E. Russell " )
848 @root << Comment.new( " Losely based on SVG::TT::Graph for Perl by"+
849 " Leo Lapworth & Stephan Morgan " )
850 @root << Comment.new( " "+"/"*66 )
851
852 defs = @root.add_element( "defs" )
853 add_defs defs
854 if not(style_sheet && style_sheet != '') and !no_css
855 @root << Comment.new(" include default stylesheet if none specified ")
856 style = defs.add_element( "style", {"type"=>"text/css"} )
857 style << CData.new( get_style )
858 end
859
860 @root << Comment.new( "SVG Background" )
861 @root.add_element( "rect", {
862 "width" => width.to_s,
863 "height" => height.to_s,
864 "x" => "0",
865 "y" => "0",
866 "class" => "svgBackground"
867 })
868 end
869
870
871 def calculate_graph_dimensions
872 calculate_left_margin
873 calculate_right_margin
874 calculate_bottom_margin
875 calculate_top_margin
876 @graph_width = width - @border_left - @border_right
877 @graph_height = height - @border_top - @border_bottom
878 end
879
880 def get_style
881 return <<EOL
882 /* Copy from here for external style sheet */
883 .svgBackground{
884 fill:#ffffff;
885 }
886 .graphBackground{
887 fill:#f0f0f0;
888 }
889
890 /* graphs titles */
891 .mainTitle{
892 text-anchor: middle;
893 fill: #000000;
894 font-size: #{title_font_size}px;
895 font-family: "Arial", sans-serif;
896 font-weight: normal;
897 }
898 .subTitle{
899 text-anchor: middle;
900 fill: #999999;
901 font-size: #{subtitle_font_size}px;
902 font-family: "Arial", sans-serif;
903 font-weight: normal;
904 }
905
906 .axis{
907 stroke: #000000;
908 stroke-width: 1px;
909 }
910
911 .guideLines{
912 stroke: #666666;
913 stroke-width: 1px;
914 stroke-dasharray: 5 5;
915 }
916
917 .xAxisLabels{
918 text-anchor: middle;
919 fill: #000000;
920 font-size: #{x_label_font_size}px;
921 font-family: "Arial", sans-serif;
922 font-weight: normal;
923 }
924
925 .yAxisLabels{
926 text-anchor: end;
927 fill: #000000;
928 font-size: #{y_label_font_size}px;
929 font-family: "Arial", sans-serif;
930 font-weight: normal;
931 }
932
933 .xAxisTitle{
934 text-anchor: middle;
935 fill: #ff0000;
936 font-size: #{x_title_font_size}px;
937 font-family: "Arial", sans-serif;
938 font-weight: normal;
939 }
940
941 .yAxisTitle{
942 fill: #ff0000;
943 text-anchor: middle;
944 font-size: #{y_title_font_size}px;
945 font-family: "Arial", sans-serif;
946 font-weight: normal;
947 }
948
949 .dataPointLabel{
950 fill: #000000;
951 text-anchor:middle;
952 font-size: 10px;
953 font-family: "Arial", sans-serif;
954 font-weight: normal;
955 }
956
957 .staggerGuideLine{
958 fill: none;
959 stroke: #000000;
960 stroke-width: 0.5px;
961 }
962
963 #{get_css}
964
965 .keyText{
966 fill: #000000;
967 text-anchor:start;
968 font-size: #{key_font_size}px;
969 font-family: "Arial", sans-serif;
970 font-weight: normal;
971 }
972 /* End copy for external style sheet */
973 EOL
974 end
975
976 end
977 end
978 end
Show file before | Show file after | Hide comments
This diff has been collapsed as it changes many lines, (789 lines changed) Show them Hide them
@@ -1,394 +1,395
1 require 'SVG/Graph/Graph'
2
3 module SVG
4 module Graph
5 # === Create presentation quality SVG pie graphs easily
6 #
7 # == Synopsis
8 #
9 # require 'SVG/Graph/Pie'
10 #
11 # fields = %w(Jan Feb Mar)
12 # data_sales_02 = [12, 45, 21]
13 #
14 # graph = SVG::Graph::Pie.new({
15 # :height => 500,
16 # :width => 300,
17 # :fields => fields,
18 # })
19 #
20 # graph.add_data({
21 # :data => data_sales_02,
22 # :title => 'Sales 2002',
23 # })
24 #
25 # print "Content-type: image/svg+xml\r\n\r\n"
26 # print graph.burn();
27 #
28 # == Description
29 #
30 # This object aims to allow you to easily create high quality
31 # SVG pie graphs. You can either use the default style sheet
32 # or supply your own. Either way there are many options which can
33 # be configured to give you control over how the graph is
34 # generated - with or without a key, display percent on pie chart,
35 # title, subtitle etc.
36 #
37 # = Examples
38 #
39 # http://www.germane-software/repositories/public/SVG/test/single.rb
40 #
41 # == See also
42 #
43 # * SVG::Graph::Graph
44 # * SVG::Graph::BarHorizontal
45 # * SVG::Graph::Bar
46 # * SVG::Graph::Line
47 # * SVG::Graph::Plot
48 # * SVG::Graph::TimeSeries
49 #
50 # == Author
51 #
52 # Sean E. Russell <serATgermaneHYPHENsoftwareDOTcom>
53 #
54 # Copyright 2004 Sean E. Russell
55 # This software is available under the Ruby license[LICENSE.txt]
56 #
57 class Pie < Graph
58 # Defaults are those set by Graph::initialize, and
59 # [show_shadow] true
60 # [shadow_offset] 10
61 # [show_data_labels] false
62 # [show_actual_values] false
63 # [show_percent] true
64 # [show_key_data_labels] true
65 # [show_key_actual_values] true
66 # [show_key_percent] false
67 # [expanded] false
68 # [expand_greatest] false
69 # [expand_gap] 10
70 # [show_x_labels] false
71 # [show_y_labels] false
72 # [datapoint_font_size] 12
73 def set_defaults
74 init_with(
75 :show_shadow => true,
76 :shadow_offset => 10,
77
78 :show_data_labels => false,
79 :show_actual_values => false,
80 :show_percent => true,
81
82 :show_key_data_labels => true,
83 :show_key_actual_values => true,
84 :show_key_percent => false,
85
86 :expanded => false,
87 :expand_greatest => false,
88 :expand_gap => 10,
89
90 :show_x_labels => false,
91 :show_y_labels => false,
92 :datapoint_font_size => 12
93 )
94 @data = []
95 end
96
97 # Adds a data set to the graph.
98 #
99 # graph.add_data( { :data => [1,2,3,4] } )
100 #
101 # Note that the :title is not necessary. If multiple
102 # data sets are added to the graph, the pie chart will
103 # display the +sums+ of the data. EG:
104 #
105 # graph.add_data( { :data => [1,2,3,4] } )
106 # graph.add_data( { :data => [2,3,5,9] } )
107 #
108 # is the same as:
109 #
110 # graph.add_data( { :data => [3,5,8,13] } )
111 def add_data arg
112 arg[:data].each_index {|idx|
113 @data[idx] = 0 unless @data[idx]
114 @data[idx] += arg[:data][idx]
115 }
116 end
117
118 # If true, displays a drop shadow for the chart
119 attr_accessor :show_shadow
120 # Sets the offset of the shadow from the pie chart
121 attr_accessor :shadow_offset
122 # If true, display the data labels on the chart
123 attr_accessor :show_data_labels
124 # If true, display the actual field values in the data labels
125 attr_accessor :show_actual_values
126 # If true, display the percentage value of each pie wedge in the data
127 # labels
128 attr_accessor :show_percent
129 # If true, display the labels in the key
130 attr_accessor :show_key_data_labels
131 # If true, display the actual value of the field in the key
132 attr_accessor :show_key_actual_values
133 # If true, display the percentage value of the wedges in the key
134 attr_accessor :show_key_percent
135 # If true, "explode" the pie (put space between the wedges)
136 attr_accessor :expanded
137 # If true, expand the largest pie wedge
138 attr_accessor :expand_greatest
139 # The amount of space between expanded wedges
140 attr_accessor :expand_gap
141 # The font size of the data point labels
142 attr_accessor :datapoint_font_size
143
144
145 protected
146
147 def add_defs defs
148 gradient = defs.add_element( "filter", {
149 "id"=>"dropshadow",
150 "width" => "1.2",
151 "height" => "1.2",
152 } )
153 gradient.add_element( "feGaussianBlur", {
154 "stdDeviation" => "4",
155 "result" => "blur"
156 })
157 end
158
159 # We don't need the graph
160 def draw_graph
161 end
162
163 def get_y_labels
164 [""]
165 end
166
167 def get_x_labels
168 [""]
169 end
170
171 def keys
172 total = 0
173 max_value = 0
174 @data.each {|x| total += x }
175 percent_scale = 100.0 / total
176 count = -1
177 a = @config[:fields].collect{ |x|
178 count += 1
179 v = @data[count]
180 perc = show_key_percent ? " "+(v * percent_scale).round.to_s+"%" : ""
181 x + " [" + v.to_s + "]" + perc
182 }
183 end
184
185 RADIANS = Math::PI/180
186
187 def draw_data
188 @graph = @root.add_element( "g" )
189 background = @graph.add_element("g")
190 midground = @graph.add_element("g")
191
192 diameter = @graph_height > @graph_width ? @graph_width : @graph_height
193 diameter -= expand_gap if expanded or expand_greatest
194 diameter -= datapoint_font_size if show_data_labels
195 diameter -= 10 if show_shadow
196 radius = diameter / 2.0
197
198 xoff = (width - diameter) / 2
199 yoff = (height - @border_bottom - diameter)
200 yoff -= 10 if show_shadow
201 @graph.attributes['transform'] = "translate( #{xoff} #{yoff} )"
202
203 wedge_text_pad = 5
204 wedge_text_pad = 20 if show_percent and show_data_labels
205
206 total = 0
207 max_value = 0
208 @data.each {|x|
209 max_value = max_value < x ? x : max_value
210 total += x
211 }
212 percent_scale = 100.0 / total
213
214 prev_percent = 0
215 rad_mult = 3.6 * RADIANS
216 @config[:fields].each_index { |count|
217 value = @data[count]
218 percent = percent_scale * value
219
220 radians = prev_percent * rad_mult
221 x_start = radius+(Math.sin(radians) * radius)
222 y_start = radius-(Math.cos(radians) * radius)
223 radians = (prev_percent+percent) * rad_mult
224 x_end = radius+(Math.sin(radians) * radius)
225 y_end = radius-(Math.cos(radians) * radius)
226 path = "M#{radius},#{radius} L#{x_start},#{y_start} "+
227 "A#{radius},#{radius} "+
228 "0, #{percent >= 50 ? '1' : '0'},1, "+
229 "#{x_end} #{y_end} Z"
230
231
232 wedge = @foreground.add_element( "path", {
233 "d" => path,
234 "class" => "fill#{count+1}"
235 })
236
237 translate = nil
238 tx = 0
239 ty = 0
240 half_percent = prev_percent + percent / 2
241 radians = half_percent * rad_mult
242
243 if show_shadow
244 shadow = background.add_element( "path", {
245 "d" => path,
246 "filter" => "url(#dropshadow)",
247 "style" => "fill: #ccc; stroke: none;"
248 })
249 clear = midground.add_element( "path", {
250 "d" => path,
251 "style" => "fill: #fff; stroke: none;"
252 })
253 end
254
255 if expanded or (expand_greatest && value == max_value)
256 tx = (Math.sin(radians) * expand_gap)
257 ty = -(Math.cos(radians) * expand_gap)
258 translate = "translate( #{tx} #{ty} )"
259 wedge.attributes["transform"] = translate
260 clear.attributes["transform"] = translate
261 end
262
263 if show_shadow
264 shadow.attributes["transform"] =
265 "translate( #{tx+shadow_offset} #{ty+shadow_offset} )"
266 end
267
268 if show_data_labels and value != 0
269 label = ""
270 label += @config[:fields][count] if show_key_data_labels
271 label += " ["+value.to_s+"]" if show_actual_values
272 label += " "+percent.round.to_s+"%" if show_percent
273
274 msr = Math.sin(radians)
275 mcr = Math.cos(radians)
276 tx = radius + (msr * radius)
277 ty = radius -(mcr * radius)
278
279 if expanded or (expand_greatest && value == max_value)
280 tx += (msr * expand_gap)
281 ty -= (mcr * expand_gap)
282 end
283 @foreground.add_element( "text", {
284 "x" => tx.to_s,
285 "y" => ty.to_s,
286 "class" => "dataPointLabel",
287 "style" => "stroke: #fff; stroke-width: 2;"
288 }).text = label.to_s
289 @foreground.add_element( "text", {
290 "x" => tx.to_s,
291 "y" => ty.to_s,
292 "class" => "dataPointLabel",
293 }).text = label.to_s
294 end
295
296 prev_percent += percent
297 }
298 end
299
300
301 def round val, to
302 up = 10**to.to_f
303 (val * up).to_i / up
304 end
305
306
307 def get_css
308 return <<EOL
309 .dataPointLabel{
310 fill: #000000;
311 text-anchor:middle;
312 font-size: #{datapoint_font_size}px;
313 font-family: "Arial", sans-serif;
314 font-weight: normal;
315 }
316
317 /* key - MUST match fill styles */
318 .key1,.fill1{
319 fill: #ff0000;
320 fill-opacity: 0.7;
321 stroke: none;
322 stroke-width: 1px;
323 }
324 .key2,.fill2{
325 fill: #0000ff;
326 fill-opacity: 0.7;
327 stroke: none;
328 stroke-width: 1px;
329 }
330 .key3,.fill3{
331 fill-opacity: 0.7;
332 fill: #00ff00;
333 stroke: none;
334 stroke-width: 1px;
335 }
336 .key4,.fill4{
337 fill-opacity: 0.7;
338 fill: #ffcc00;
339 stroke: none;
340 stroke-width: 1px;
341 }
342 .key5,.fill5{
343 fill-opacity: 0.7;
344 fill: #00ccff;
345 stroke: none;
346 stroke-width: 1px;
347 }
348 .key6,.fill6{
349 fill-opacity: 0.7;
350 fill: #ff00ff;
351 stroke: none;
352 stroke-width: 1px;
353 }
354 .key7,.fill7{
355 fill-opacity: 0.7;
356 fill: #00ff99;
357 stroke: none;
358 stroke-width: 1px;
359 }
360 .key8,.fill8{
361 fill-opacity: 0.7;
362 fill: #ffff00;
363 stroke: none;
364 stroke-width: 1px;
365 }
366 .key9,.fill9{
367 fill-opacity: 0.7;
368 fill: #cc6666;
369 stroke: none;
370 stroke-width: 1px;
371 }
372 .key10,.fill10{
373 fill-opacity: 0.7;
374 fill: #663399;
375 stroke: none;
376 stroke-width: 1px;
377 }
378 .key11,.fill11{
379 fill-opacity: 0.7;
380 fill: #339900;
381 stroke: none;
382 stroke-width: 1px;
383 }
384 .key12,.fill12{
385 fill-opacity: 0.7;
386 fill: #9966FF;
387 stroke: none;
388 stroke-width: 1px;
389 }
390 EOL
391 end
392 end
393 end
394 end
1 require 'SVG/Graph/Graph'
2
3 module SVG
4 module Graph
5 # === Create presentation quality SVG pie graphs easily
6 #
7 # == Synopsis
8 #
9 # require 'SVG/Graph/Pie'
10 #
11 # fields = %w(Jan Feb Mar)
12 # data_sales_02 = [12, 45, 21]
13 #
14 # graph = SVG::Graph::Pie.new({
15 # :height => 500,
16 # :width => 300,
17 # :fields => fields,
18 # })
19 #
20 # graph.add_data({
21 # :data => data_sales_02,
22 # :title => 'Sales 2002',
23 # })
24 #
25 # print "Content-type: image/svg+xml\r\n\r\n"
26 # print graph.burn();
27 #
28 # == Description
29 #
30 # This object aims to allow you to easily create high quality
31 # SVG pie graphs. You can either use the default style sheet
32 # or supply your own. Either way there are many options which can
33 # be configured to give you control over how the graph is
34 # generated - with or without a key, display percent on pie chart,
35 # title, subtitle etc.
36 #
37 # = Examples
38 #
39 # http://www.germane-software/repositories/public/SVG/test/single.rb
40 #
41 # == See also
42 #
43 # * SVG::Graph::Graph
44 # * SVG::Graph::BarHorizontal
45 # * SVG::Graph::Bar
46 # * SVG::Graph::Line
47 # * SVG::Graph::Plot
48 # * SVG::Graph::TimeSeries
49 #
50 # == Author
51 #
52 # Sean E. Russell <serATgermaneHYPHENsoftwareDOTcom>
53 #
54 # Copyright 2004 Sean E. Russell
55 # This software is available under the Ruby license[LICENSE.txt]
56 #
57 class Pie < Graph
58 # Defaults are those set by Graph::initialize, and
59 # [show_shadow] true
60 # [shadow_offset] 10
61 # [show_data_labels] false
62 # [show_actual_values] false
63 # [show_percent] true
64 # [show_key_data_labels] true
65 # [show_key_actual_values] true
66 # [show_key_percent] false
67 # [expanded] false
68 # [expand_greatest] false
69 # [expand_gap] 10
70 # [show_x_labels] false
71 # [show_y_labels] false
72 # [datapoint_font_size] 12
73 def set_defaults
74 init_with(
75 :show_shadow => true,
76 :shadow_offset => 10,
77
78 :show_data_labels => false,
79 :show_actual_values => false,
80 :show_percent => true,
81
82 :show_key_data_labels => true,
83 :show_key_actual_values => true,
84 :show_key_percent => false,
85
86 :expanded => false,
87 :expand_greatest => false,
88 :expand_gap => 10,
89
90 :show_x_labels => false,
91 :show_y_labels => false,
92 :datapoint_font_size => 12
93 )
94 @data = []
95 end
96
97 # Adds a data set to the graph.
98 #
99 # graph.add_data( { :data => [1,2,3,4] } )
100 #
101 # Note that the :title is not necessary. If multiple
102 # data sets are added to the graph, the pie chart will
103 # display the +sums+ of the data. EG:
104 #
105 # graph.add_data( { :data => [1,2,3,4] } )
106 # graph.add_data( { :data => [2,3,5,9] } )
107 #
108 # is the same as:
109 #
110 # graph.add_data( { :data => [3,5,8,13] } )
111 def add_data arg
112 arg[:data].each_index {|idx|
113 @data[idx] = 0 unless @data[idx]
114 @data[idx] += arg[:data][idx]
115 }
116 end
117
118 # If true, displays a drop shadow for the chart
119 attr_accessor :show_shadow
120 # Sets the offset of the shadow from the pie chart
121 attr_accessor :shadow_offset
122 # If true, display the data labels on the chart
123 attr_accessor :show_data_labels
124 # If true, display the actual field values in the data labels
125 attr_accessor :show_actual_values
126 # If true, display the percentage value of each pie wedge in the data
127 # labels
128 attr_accessor :show_percent
129 # If true, display the labels in the key
130 attr_accessor :show_key_data_labels
131 # If true, display the actual value of the field in the key
132 attr_accessor :show_key_actual_values
133 # If true, display the percentage value of the wedges in the key
134 attr_accessor :show_key_percent
135 # If true, "explode" the pie (put space between the wedges)
136 attr_accessor :expanded
137 # If true, expand the largest pie wedge
138 attr_accessor :expand_greatest
139 # The amount of space between expanded wedges
140 attr_accessor :expand_gap
141 # The font size of the data point labels
142 attr_accessor :datapoint_font_size
143
144
145 protected
146
147 def add_defs defs
148 gradient = defs.add_element( "filter", {
149 "id"=>"dropshadow",
150 "width" => "1.2",
151 "height" => "1.2",
152 } )
153 gradient.add_element( "feGaussianBlur", {
154 "stdDeviation" => "4",
155 "result" => "blur"
156 })
157 end
158
159 # We don't need the graph
160 def draw_graph
161 end
162
163 def get_y_labels
164 [""]
165 end
166
167 def get_x_labels
168 [""]
169 end
170
171 def keys
172 total = 0
173 max_value = 0
174 @data.each {|x| total += x }
175 percent_scale = 100.0 / total
176 count = -1
177 a = @config[:fields].collect{ |x|
178 count += 1
179 v = @data[count]
180 perc = show_key_percent ? " "+(v * percent_scale).round.to_s+"%" : ""
181 x + " [" + v.to_s + "]" + perc
182 }
183 end
184
185 RADIANS = Math::PI/180
186
187 def draw_data
188 @graph = @root.add_element( "g" )
189 background = @graph.add_element("g")
190 midground = @graph.add_element("g")
191
192 diameter = @graph_height > @graph_width ? @graph_width : @graph_height
193 diameter -= expand_gap if expanded or expand_greatest
194 diameter -= datapoint_font_size if show_data_labels
195 diameter -= 10 if show_shadow
196 radius = diameter / 2.0
197
198 xoff = (width - diameter) / 2
199 yoff = (height - @border_bottom - diameter)
200 yoff -= 10 if show_shadow
201 @graph.attributes['transform'] = "translate( #{xoff} #{yoff} )"
202
203 wedge_text_pad = 5
204 wedge_text_pad = 20 if show_percent and show_data_labels
205
206 total = 0
207 max_value = 0
208 @data.each {|x|
209 max_value = max_value < x ? x : max_value
210 total += x
211 }
212 percent_scale = 100.0 / total
213
214 prev_percent = 0
215 rad_mult = 3.6 * RADIANS
216 @config[:fields].each_index { |count|
217 value = @data[count]
218 percent = percent_scale * value
219
220 radians = prev_percent * rad_mult
221 x_start = radius+(Math.sin(radians) * radius)
222 y_start = radius-(Math.cos(radians) * radius)
223 radians = (prev_percent+percent) * rad_mult
224 x_end = radius+(Math.sin(radians) * radius)
225 x_end -= 0.00001 if @data.length == 1
226 y_end = radius-(Math.cos(radians) * radius)
227 path = "M#{radius},#{radius} L#{x_start},#{y_start} "+
228 "A#{radius},#{radius} "+
229 "0, #{percent >= 50 ? '1' : '0'},1, "+
230 "#{x_end} #{y_end} Z"
231
232
233 wedge = @foreground.add_element( "path", {
234 "d" => path,
235 "class" => "fill#{count+1}"
236 })
237
238 translate = nil
239 tx = 0
240 ty = 0
241 half_percent = prev_percent + percent / 2
242 radians = half_percent * rad_mult
243
244 if show_shadow
245 shadow = background.add_element( "path", {
246 "d" => path,
247 "filter" => "url(#dropshadow)",
248 "style" => "fill: #ccc; stroke: none;"
249 })
250 clear = midground.add_element( "path", {
251 "d" => path,
252 "style" => "fill: #fff; stroke: none;"
253 })
254 end
255
256 if expanded or (expand_greatest && value == max_value)
257 tx = (Math.sin(radians) * expand_gap)
258 ty = -(Math.cos(radians) * expand_gap)
259 translate = "translate( #{tx} #{ty} )"
260 wedge.attributes["transform"] = translate
261 clear.attributes["transform"] = translate if clear
262 end
263
264 if show_shadow
265 shadow.attributes["transform"] =
266 "translate( #{tx+shadow_offset} #{ty+shadow_offset} )"
267 end
268
269 if show_data_labels and value != 0
270 label = ""
271 label += @config[:fields][count] if show_key_data_labels
272 label += " ["+value.to_s+"]" if show_actual_values
273 label += " "+percent.round.to_s+"%" if show_percent
274
275 msr = Math.sin(radians)
276 mcr = Math.cos(radians)
277 tx = radius + (msr * radius)
278 ty = radius -(mcr * radius)
279
280 if expanded or (expand_greatest && value == max_value)
281 tx += (msr * expand_gap)
282 ty -= (mcr * expand_gap)
283 end
284 @foreground.add_element( "text", {
285 "x" => tx.to_s,
286 "y" => ty.to_s,
287 "class" => "dataPointLabel",
288 "style" => "stroke: #fff; stroke-width: 2;"
289 }).text = label.to_s
290 @foreground.add_element( "text", {
291 "x" => tx.to_s,
292 "y" => ty.to_s,
293 "class" => "dataPointLabel",
294 }).text = label.to_s
295 end
296
297 prev_percent += percent
298 }
299 end
300
301
302 def round val, to
303 up = 10**to.to_f
304 (val * up).to_i / up
305 end
306
307
308 def get_css
309 return <<EOL
310 .dataPointLabel{
311 fill: #000000;
312 text-anchor:middle;
313 font-size: #{datapoint_font_size}px;
314 font-family: "Arial", sans-serif;
315 font-weight: normal;
316 }
317
318 /* key - MUST match fill styles */
319 .key1,.fill1{
320 fill: #ff0000;
321 fill-opacity: 0.7;
322 stroke: none;
323 stroke-width: 1px;
324 }
325 .key2,.fill2{
326 fill: #0000ff;
327 fill-opacity: 0.7;
328 stroke: none;
329 stroke-width: 1px;
330 }
331 .key3,.fill3{
332 fill-opacity: 0.7;
333 fill: #00ff00;
334 stroke: none;
335 stroke-width: 1px;
336 }
337 .key4,.fill4{
338 fill-opacity: 0.7;
339 fill: #ffcc00;
340 stroke: none;
341 stroke-width: 1px;
342 }
343 .key5,.fill5{
344 fill-opacity: 0.7;
345 fill: #00ccff;
346 stroke: none;
347 stroke-width: 1px;
348 }
349 .key6,.fill6{
350 fill-opacity: 0.7;
351 fill: #ff00ff;
352 stroke: none;
353 stroke-width: 1px;
354 }
355 .key7,.fill7{
356 fill-opacity: 0.7;
357 fill: #00ff99;
358 stroke: none;
359 stroke-width: 1px;
360 }
361 .key8,.fill8{
362 fill-opacity: 0.7;
363 fill: #ffff00;
364 stroke: none;
365 stroke-width: 1px;
366 }
367 .key9,.fill9{
368 fill-opacity: 0.7;
369 fill: #cc6666;
370 stroke: none;
371 stroke-width: 1px;
372 }
373 .key10,.fill10{
374 fill-opacity: 0.7;
375 fill: #663399;
376 stroke: none;
377 stroke-width: 1px;
378 }
379 .key11,.fill11{
380 fill-opacity: 0.7;
381 fill: #339900;
382 stroke: none;
383 stroke-width: 1px;
384 }
385 .key12,.fill12{
386 fill-opacity: 0.7;
387 fill: #9966FF;
388 stroke: none;
389 stroke-width: 1px;
390 }
391 EOL
392 end
393 end
394 end
395 end
Show file before | Show file after | Hide comments
This diff has been collapsed as it changes many lines, (994 lines changed) Show them Hide them
@@ -1,494 +1,500
1 require 'SVG/Graph/Graph'
2
3 module SVG
4 module Graph
5 # === For creating SVG plots of scalar data
6 #
7 # = Synopsis
8 #
9 # require 'SVG/Graph/Plot'
10 #
11 # # Data sets are x,y pairs
12 # # Note that multiple data sets can differ in length, and that the
13 # # data in the datasets needn't be in order; they will be ordered
14 # # by the plot along the X-axis.
15 # projection = [
16 # 6, 11, 0, 5, 18, 7, 1, 11, 13, 9, 1, 2, 19, 0, 3, 13,
17 # 7, 9
18 # ]
19 # actual = [
20 # 0, 18, 8, 15, 9, 4, 18, 14, 10, 2, 11, 6, 14, 12,
21 # 15, 6, 4, 17, 2, 12
22 # ]
23 #
24 # graph = SVG::Graph::Plot.new({
25 # :height => 500,
26 # :width => 300,
27 # :key => true,
28 # :scale_x_integers => true,
29 # :scale_y_integerrs => true,
30 # })
31 #
32 # graph.add_data({
33 # :data => projection
34 # :title => 'Projected',
35 # })
36 #
37 # graph.add_data({
38 # :data => actual,
39 # :title => 'Actual',
40 # })
41 #
42 # print graph.burn()
43 #
44 # = Description
45 #
46 # Produces a graph of scalar data.
47 #
48 # This object aims to allow you to easily create high quality
49 # SVG[http://www.w3c.org/tr/svg] scalar plots. You can either use the
50 # default style sheet or supply your own. Either way there are many options
51 # which can be configured to give you control over how the graph is
52 # generated - with or without a key, data elements at each point, title,
53 # subtitle etc.
54 #
55 # = Examples
56 #
57 # http://www.germane-software/repositories/public/SVG/test/plot.rb
58 #
59 # = Notes
60 #
61 # The default stylesheet handles upto 10 data sets, if you
62 # use more you must create your own stylesheet and add the
63 # additional settings for the extra data sets. You will know
64 # if you go over 10 data sets as they will have no style and
65 # be in black.
66 #
67 # Unlike the other types of charts, data sets must contain x,y pairs:
68 #
69 # [ 1, 2 ] # A data set with 1 point: (1,2)
70 # [ 1,2, 5,6] # A data set with 2 points: (1,2) and (5,6)
71 #
72 # = See also
73 #
74 # * SVG::Graph::Graph
75 # * SVG::Graph::BarHorizontal
76 # * SVG::Graph::Bar
77 # * SVG::Graph::Line
78 # * SVG::Graph::Pie
79 # * SVG::Graph::TimeSeries
80 #
81 # == Author
82 #
83 # Sean E. Russell <serATgermaneHYPHENsoftwareDOTcom>
84 #
85 # Copyright 2004 Sean E. Russell
86 # This software is available under the Ruby license[LICENSE.txt]
87 #
88 class Plot < Graph
89
90 # In addition to the defaults set by Graph::initialize, sets
91 # [show_data_points] true
92 # [area_fill] false
93 # [stacked] false
94 def set_defaults
95 init_with(
96 :show_data_points => true,
97 :area_fill => false,
98 :stacked => false
99 )
100 self.top_align = self.right_align = self.top_font = self.right_font = 1
101 end
102
103 # Determines the scaling for the X axis divisions.
104 #
105 # graph.scale_x_divisions = 2
106 #
107 # would cause the graph to attempt to generate labels stepped by 2; EG:
108 # 0,2,4,6,8...
109 attr_accessor :scale_x_divisions
110 # Determines the scaling for the Y axis divisions.
111 #
112 # graph.scale_y_divisions = 0.5
113 #
114 # would cause the graph to attempt to generate labels stepped by 0.5; EG:
115 # 0, 0.5, 1, 1.5, 2, ...
116 attr_accessor :scale_y_divisions
117 # Make the X axis labels integers
118 attr_accessor :scale_x_integers
119 # Make the Y axis labels integers
120 attr_accessor :scale_y_integers
121 # Fill the area under the line
122 attr_accessor :area_fill
123 # Show a small circle on the graph where the line
124 # goes from one point to the next.
125 attr_accessor :show_data_points
126 # Set the minimum value of the X axis
127 attr_accessor :min_x_value
128 # Set the minimum value of the Y axis
129 attr_accessor :min_y_value
130
131
132 # Adds data to the plot. The data must be in X,Y pairs; EG
133 # [ 1, 2 ] # A data set with 1 point: (1,2)
134 # [ 1,2, 5,6] # A data set with 2 points: (1,2) and (5,6)
135 def add_data data
136 @data = [] unless @data
137
138 raise "No data provided by #{conf.inspect}" unless data[:data] and
139 data[:data].kind_of? Array
140 raise "Data supplied must be x,y pairs! "+
141 "The data provided contained an odd set of "+
142 "data points" unless data[:data].length % 2 == 0
143 return if data[:data].length == 0
144
145 x = []
146 y = []
147 data[:data].each_index {|i|
148 (i%2 == 0 ? x : y) << data[:data][i]
149 }
150 sort( x, y )
151 data[:data] = [x,y]
152 @data << data
153 end
154
155
156 protected
157
158 def keys
159 @data.collect{ |x| x[:title] }
160 end
161
162 def calculate_left_margin
163 super
164 label_left = get_x_labels[0].to_s.length / 2 * font_size * 0.6
165 @border_left = label_left if label_left > @border_left
166 end
167
168 def calculate_right_margin
169 super
170 label_right = get_x_labels[-1].to_s.length / 2 * font_size * 0.6
171 @border_right = label_right if label_right > @border_right
172 end
173
174
175 X = 0
176 Y = 1
177 def x_range
178 max_value = @data.collect{|x| x[:data][X][-1] }.max
179 min_value = @data.collect{|x| x[:data][X][0] }.min
180 min_value = min_value<min_x_value ? min_value : min_x_value if min_x_value
181
182 range = max_value - min_value
183 right_pad = range == 0 ? 10 : range / 20.0
184 scale_range = (max_value + right_pad) - min_value
185
186 scale_division = scale_x_divisions || (scale_range / 10.0)
187
188 if scale_x_integers
189 scale_division = scale_division < 1 ? 1 : scale_division.round
190 end
191
192 [min_value, max_value, scale_division]
193 end
194
195 def get_x_values
196 min_value, max_value, scale_division = x_range
197 rv = []
198 min_value.step( max_value, scale_division ) {|v| rv << v}
199 return rv
200 end
201 alias :get_x_labels :get_x_values
202
203 def field_width
204 values = get_x_values
205 max = @data.collect{|x| x[:data][X][-1]}.max
206 dx = (max - values[-1]).to_f / (values[-1] - values[-2])
207 (@graph_width.to_f - font_size*2*right_font) /
208 (values.length + dx - right_align)
209 end
210
211
212 def y_range
213 max_value = @data.collect{|x| x[:data][Y].max }.max
214 min_value = @data.collect{|x| x[:data][Y].min }.min
215 min_value = min_value<min_y_value ? min_value : min_y_value if min_y_value
216
217 range = max_value - min_value
218 top_pad = range == 0 ? 10 : range / 20.0
219 scale_range = (max_value + top_pad) - min_value
220
221 scale_division = scale_y_divisions || (scale_range / 10.0)
222
223 if scale_y_integers
224 scale_division = scale_division < 1 ? 1 : scale_division.round
225 end
226
227 return [min_value, max_value, scale_division]
228 end
229
230 def get_y_values
231 min_value, max_value, scale_division = y_range
232 rv = []
233 min_value.step( max_value, scale_division ) {|v| rv << v}
234 return rv
235 end
236 alias :get_y_labels :get_y_values
237
238 def field_height
239 values = get_y_values
240 max = @data.collect{|x| x[:data][Y].max }.max
241 dx = (max - values[-1]).to_f / (values[-1] - values[-2])
242 (@graph_height.to_f - font_size*2*top_font) /
243 (values.length + dx - top_align)
244 end
245
246 def draw_data
247 line = 1
248
249 x_min, x_max, x_div = x_range
250 y_min, y_max, y_div = y_range
251 x_step = (@graph_width.to_f - font_size*2) / (x_max-x_min)
252 y_step = (@graph_height.to_f - font_size*2) / (y_max-y_min)
253
254 for data in @data
255 x_points = data[:data][X]
256 y_points = data[:data][Y]
257
258 lpath = "L"
259 x_start = 0
260 y_start = 0
261 x_points.each_index { |idx|
262 x = (x_points[idx] - x_min) * x_step
263 y = @graph_height - (y_points[idx] - y_min) * y_step
264 x_start, y_start = x,y if idx == 0
265 lpath << "#{x} #{y} "
266 }
267
268 if area_fill
269 @graph.add_element( "path", {
270 "d" => "M#{x_start} #@graph_height #{lpath} V#@graph_height Z",
271 "class" => "fill#{line}"
272 })
273 end
274
275 @graph.add_element( "path", {
276 "d" => "M#{x_start} #{y_start} #{lpath}",
277 "class" => "line#{line}"
278 })
279
280 if show_data_points || show_data_values
281 x_points.each_index { |idx|
282 x = (x_points[idx] - x_min) * x_step
283 y = @graph_height - (y_points[idx] - y_min) * y_step
284 if show_data_points
285 @graph.add_element( "circle", {
286 "cx" => x.to_s,
287 "cy" => y.to_s,
288 "r" => "2.5",
289 "class" => "dataPoint#{line}"
290 })
291 add_popup(x, y, format( x_points[idx], y_points[idx] )) if add_popups
292 end
293 make_datapoint_text( x, y-6, y_points[idx] )
294 }
295 end
296 line += 1
297 end
298 end
299
300 def format x, y
301 "(#{(x * 100).to_i / 100}, #{(y * 100).to_i / 100})"
302 end
303
304 def get_css
305 return <<EOL
306 /* default line styles */
307 .line1{
308 fill: none;
309 stroke: #ff0000;
310 stroke-width: 1px;
311 }
312 .line2{
313 fill: none;
314 stroke: #0000ff;
315 stroke-width: 1px;
316 }
317 .line3{
318 fill: none;
319 stroke: #00ff00;
320 stroke-width: 1px;
321 }
322 .line4{
323 fill: none;
324 stroke: #ffcc00;
325 stroke-width: 1px;
326 }
327 .line5{
328 fill: none;
329 stroke: #00ccff;
330 stroke-width: 1px;
331 }
332 .line6{
333 fill: none;
334 stroke: #ff00ff;
335 stroke-width: 1px;
336 }
337 .line7{
338 fill: none;
339 stroke: #00ffff;
340 stroke-width: 1px;
341 }
342 .line8{
343 fill: none;
344 stroke: #ffff00;
345 stroke-width: 1px;
346 }
347 .line9{
348 fill: none;
349 stroke: #ccc6666;
350 stroke-width: 1px;
351 }
352 .line10{
353 fill: none;
354 stroke: #663399;
355 stroke-width: 1px;
356 }
357 .line11{
358 fill: none;
359 stroke: #339900;
360 stroke-width: 1px;
361 }
362 .line12{
363 fill: none;
364 stroke: #9966FF;
365 stroke-width: 1px;
366 }
367 /* default fill styles */
368 .fill1{
369 fill: #cc0000;
370 fill-opacity: 0.2;
371 stroke: none;
372 }
373 .fill2{
374 fill: #0000cc;
375 fill-opacity: 0.2;
376 stroke: none;
377 }
378 .fill3{
379 fill: #00cc00;
380 fill-opacity: 0.2;
381 stroke: none;
382 }
383 .fill4{
384 fill: #ffcc00;
385 fill-opacity: 0.2;
386 stroke: none;
387 }
388 .fill5{
389 fill: #00ccff;
390 fill-opacity: 0.2;
391 stroke: none;
392 }
393 .fill6{
394 fill: #ff00ff;
395 fill-opacity: 0.2;
396 stroke: none;
397 }
398 .fill7{
399 fill: #00ffff;
400 fill-opacity: 0.2;
401 stroke: none;
402 }
403 .fill8{
404 fill: #ffff00;
405 fill-opacity: 0.2;
406 stroke: none;
407 }
408 .fill9{
409 fill: #cc6666;
410 fill-opacity: 0.2;
411 stroke: none;
412 }
413 .fill10{
414 fill: #663399;
415 fill-opacity: 0.2;
416 stroke: none;
417 }
418 .fill11{
419 fill: #339900;
420 fill-opacity: 0.2;
421 stroke: none;
422 }
423 .fill12{
424 fill: #9966FF;
425 fill-opacity: 0.2;
426 stroke: none;
427 }
428 /* default line styles */
429 .key1,.dataPoint1{
430 fill: #ff0000;
431 stroke: none;
432 stroke-width: 1px;
433 }
434 .key2,.dataPoint2{
435 fill: #0000ff;
436 stroke: none;
437 stroke-width: 1px;
438 }
439 .key3,.dataPoint3{
440 fill: #00ff00;
441 stroke: none;
442 stroke-width: 1px;
443 }
444 .key4,.dataPoint4{
445 fill: #ffcc00;
446 stroke: none;
447 stroke-width: 1px;
448 }
449 .key5,.dataPoint5{
450 fill: #00ccff;
451 stroke: none;
452 stroke-width: 1px;
453 }
454 .key6,.dataPoint6{
455 fill: #ff00ff;
456 stroke: none;
457 stroke-width: 1px;
458 }
459 .key7,.dataPoint7{
460 fill: #00ffff;
461 stroke: none;
462 stroke-width: 1px;
463 }
464 .key8,.dataPoint8{
465 fill: #ffff00;
466 stroke: none;
467 stroke-width: 1px;
468 }
469 .key9,.dataPoint9{
470 fill: #cc6666;
471 stroke: none;
472 stroke-width: 1px;
473 }
474 .key10,.dataPoint10{
475 fill: #663399;
476 stroke: none;
477 stroke-width: 1px;
478 }
479 .key11,.dataPoint11{
480 fill: #339900;
481 stroke: none;
482 stroke-width: 1px;
483 }
484 .key12,.dataPoint12{
485 fill: #9966FF;
486 stroke: none;
487 stroke-width: 1px;
488 }
489 EOL
490 end
491
492 end
493 end
494 end
1 require 'SVG/Graph/Graph'
2
3 module SVG
4 module Graph
5 # === For creating SVG plots of scalar data
6 #
7 # = Synopsis
8 #
9 # require 'SVG/Graph/Plot'
10 #
11 # # Data sets are x,y pairs
12 # # Note that multiple data sets can differ in length, and that the
13 # # data in the datasets needn't be in order; they will be ordered
14 # # by the plot along the X-axis.
15 # projection = [
16 # 6, 11, 0, 5, 18, 7, 1, 11, 13, 9, 1, 2, 19, 0, 3, 13,
17 # 7, 9
18 # ]
19 # actual = [
20 # 0, 18, 8, 15, 9, 4, 18, 14, 10, 2, 11, 6, 14, 12,
21 # 15, 6, 4, 17, 2, 12
22 # ]
23 #
24 # graph = SVG::Graph::Plot.new({
25 # :height => 500,
26 # :width => 300,
27 # :key => true,
28 # :scale_x_integers => true,
29 # :scale_y_integerrs => true,
30 # })
31 #
32 # graph.add_data({
33 # :data => projection
34 # :title => 'Projected',
35 # })
36 #
37 # graph.add_data({
38 # :data => actual,
39 # :title => 'Actual',
40 # })
41 #
42 # print graph.burn()
43 #
44 # = Description
45 #
46 # Produces a graph of scalar data.
47 #
48 # This object aims to allow you to easily create high quality
49 # SVG[http://www.w3c.org/tr/svg] scalar plots. You can either use the
50 # default style sheet or supply your own. Either way there are many options
51 # which can be configured to give you control over how the graph is
52 # generated - with or without a key, data elements at each point, title,
53 # subtitle etc.
54 #
55 # = Examples
56 #
57 # http://www.germane-software/repositories/public/SVG/test/plot.rb
58 #
59 # = Notes
60 #
61 # The default stylesheet handles upto 10 data sets, if you
62 # use more you must create your own stylesheet and add the
63 # additional settings for the extra data sets. You will know
64 # if you go over 10 data sets as they will have no style and
65 # be in black.
66 #
67 # Unlike the other types of charts, data sets must contain x,y pairs:
68 #
69 # [ 1, 2 ] # A data set with 1 point: (1,2)
70 # [ 1,2, 5,6] # A data set with 2 points: (1,2) and (5,6)
71 #
72 # = See also
73 #
74 # * SVG::Graph::Graph
75 # * SVG::Graph::BarHorizontal
76 # * SVG::Graph::Bar
77 # * SVG::Graph::Line
78 # * SVG::Graph::Pie
79 # * SVG::Graph::TimeSeries
80 #
81 # == Author
82 #
83 # Sean E. Russell <serATgermaneHYPHENsoftwareDOTcom>
84 #
85 # Copyright 2004 Sean E. Russell
86 # This software is available under the Ruby license[LICENSE.txt]
87 #
88 class Plot < Graph
89
90 # In addition to the defaults set by Graph::initialize, sets
91 # [show_data_values] true
92 # [show_data_points] true
93 # [area_fill] false
94 # [stacked] false
95 def set_defaults
96 init_with(
97 :show_data_values => true,
98 :show_data_points => true,
99 :area_fill => false,
100 :stacked => false
101 )
102 self.top_align = self.right_align = self.top_font = self.right_font = 1
103 end
104
105 # Determines the scaling for the X axis divisions.
106 #
107 # graph.scale_x_divisions = 2
108 #
109 # would cause the graph to attempt to generate labels stepped by 2; EG:
110 # 0,2,4,6,8...
111 attr_accessor :scale_x_divisions
112 # Determines the scaling for the Y axis divisions.
113 #
114 # graph.scale_y_divisions = 0.5
115 #
116 # would cause the graph to attempt to generate labels stepped by 0.5; EG:
117 # 0, 0.5, 1, 1.5, 2, ...
118 attr_accessor :scale_y_divisions
119 # Make the X axis labels integers
120 attr_accessor :scale_x_integers
121 # Make the Y axis labels integers
122 attr_accessor :scale_y_integers
123 # Fill the area under the line
124 attr_accessor :area_fill
125 # Show a small circle on the graph where the line
126 # goes from one point to the next.
127 attr_accessor :show_data_points
128 # Set the minimum value of the X axis
129 attr_accessor :min_x_value
130 # Set the minimum value of the Y axis
131 attr_accessor :min_y_value
132
133
134 # Adds data to the plot. The data must be in X,Y pairs; EG
135 # [ 1, 2 ] # A data set with 1 point: (1,2)
136 # [ 1,2, 5,6] # A data set with 2 points: (1,2) and (5,6)
137 def add_data data
138 @data = [] unless @data
139
140 raise "No data provided by #{conf.inspect}" unless data[:data] and
141 data[:data].kind_of? Array
142 raise "Data supplied must be x,y pairs! "+
143 "The data provided contained an odd set of "+
144 "data points" unless data[:data].length % 2 == 0
145 return if data[:data].length == 0
146
147 x = []
148 y = []
149 data[:data].each_index {|i|
150 (i%2 == 0 ? x : y) << data[:data][i]
151 }
152 sort( x, y )
153 data[:data] = [x,y]
154 @data << data
155 end
156
157
158 protected
159
160 def keys
161 @data.collect{ |x| x[:title] }
162 end
163
164 def calculate_left_margin
165 super
166 label_left = get_x_labels[0].to_s.length / 2 * font_size * 0.6
167 @border_left = label_left if label_left > @border_left
168 end
169
170 def calculate_right_margin
171 super
172 label_right = get_x_labels[-1].to_s.length / 2 * font_size * 0.6
173 @border_right = label_right if label_right > @border_right
174 end
175
176
177 X = 0
178 Y = 1
179 def x_range
180 max_value = @data.collect{|x| x[:data][X][-1] }.max
181 min_value = @data.collect{|x| x[:data][X][0] }.min
182 min_value = min_value<min_x_value ? min_value : min_x_value if min_x_value
183
184 range = max_value - min_value
185 right_pad = range == 0 ? 10 : range / 20.0
186 scale_range = (max_value + right_pad) - min_value
187
188 scale_division = scale_x_divisions || (scale_range / 10.0)
189
190 if scale_x_integers
191 scale_division = scale_division < 1 ? 1 : scale_division.round
192 end
193
194 [min_value, max_value, scale_division]
195 end
196
197 def get_x_values
198 min_value, max_value, scale_division = x_range
199 rv = []
200 min_value.step( max_value, scale_division ) {|v| rv << v}
201 return rv
202 end
203 alias :get_x_labels :get_x_values
204
205 def field_width
206 values = get_x_values
207 max = @data.collect{|x| x[:data][X][-1]}.max
208 dx = (max - values[-1]).to_f / (values[-1] - values[-2])
209 (@graph_width.to_f - font_size*2*right_font) /
210 (values.length + dx - right_align)
211 end
212
213
214 def y_range
215 max_value = @data.collect{|x| x[:data][Y].max }.max
216 min_value = @data.collect{|x| x[:data][Y].min }.min
217 min_value = min_value<min_y_value ? min_value : min_y_value if min_y_value
218
219 range = max_value - min_value
220 top_pad = range == 0 ? 10 : range / 20.0
221 scale_range = (max_value + top_pad) - min_value
222
223 scale_division = scale_y_divisions || (scale_range / 10.0)
224
225 if scale_y_integers
226 scale_division = scale_division < 1 ? 1 : scale_division.round
227 end
228
229 return [min_value, max_value, scale_division]
230 end
231
232 def get_y_values
233 min_value, max_value, scale_division = y_range
234 rv = []
235 min_value.step( max_value, scale_division ) {|v| rv << v}
236 return rv
237 end
238 alias :get_y_labels :get_y_values
239
240 def field_height
241 values = get_y_values
242 max = @data.collect{|x| x[:data][Y].max }.max
243 if values.length == 1
244 dx = values[-1]
245 else
246 dx = (max - values[-1]).to_f / (values[-1] - values[-2])
247 end
248 (@graph_height.to_f - font_size*2*top_font) /
249 (values.length + dx - top_align)
250 end
251
252 def draw_data
253 line = 1
254
255 x_min, x_max, x_div = x_range
256 y_min, y_max, y_div = y_range
257 x_step = (@graph_width.to_f - font_size*2) / (x_max-x_min)
258 y_step = (@graph_height.to_f - font_size*2) / (y_max-y_min)
259
260 for data in @data
261 x_points = data[:data][X]
262 y_points = data[:data][Y]
263
264 lpath = "L"
265 x_start = 0
266 y_start = 0
267 x_points.each_index { |idx|
268 x = (x_points[idx] - x_min) * x_step
269 y = @graph_height - (y_points[idx] - y_min) * y_step
270 x_start, y_start = x,y if idx == 0
271 lpath << "#{x} #{y} "
272 }
273
274 if area_fill
275 @graph.add_element( "path", {
276 "d" => "M#{x_start} #@graph_height #{lpath} V#@graph_height Z",
277 "class" => "fill#{line}"
278 })
279 end
280
281 @graph.add_element( "path", {
282 "d" => "M#{x_start} #{y_start} #{lpath}",
283 "class" => "line#{line}"
284 })
285
286 if show_data_points || show_data_values
287 x_points.each_index { |idx|
288 x = (x_points[idx] - x_min) * x_step
289 y = @graph_height - (y_points[idx] - y_min) * y_step
290 if show_data_points
291 @graph.add_element( "circle", {
292 "cx" => x.to_s,
293 "cy" => y.to_s,
294 "r" => "2.5",
295 "class" => "dataPoint#{line}"
296 })
297 add_popup(x, y, format( x_points[idx], y_points[idx] )) if add_popups
298 end
299 make_datapoint_text( x, y-6, y_points[idx] ) if show_data_values
300 }
301 end
302 line += 1
303 end
304 end
305
306 def format x, y
307 "(#{(x * 100).to_i / 100}, #{(y * 100).to_i / 100})"
308 end
309
310 def get_css
311 return <<EOL
312 /* default line styles */
313 .line1{
314 fill: none;
315 stroke: #ff0000;
316 stroke-width: 1px;
317 }
318 .line2{
319 fill: none;
320 stroke: #0000ff;
321 stroke-width: 1px;
322 }
323 .line3{
324 fill: none;
325 stroke: #00ff00;
326 stroke-width: 1px;
327 }
328 .line4{
329 fill: none;
330 stroke: #ffcc00;
331 stroke-width: 1px;
332 }
333 .line5{
334 fill: none;
335 stroke: #00ccff;
336 stroke-width: 1px;
337 }
338 .line6{
339 fill: none;
340 stroke: #ff00ff;
341 stroke-width: 1px;
342 }
343 .line7{
344 fill: none;
345 stroke: #00ffff;
346 stroke-width: 1px;
347 }
348 .line8{
349 fill: none;
350 stroke: #ffff00;
351 stroke-width: 1px;
352 }
353 .line9{
354 fill: none;
355 stroke: #ccc6666;
356 stroke-width: 1px;
357 }
358 .line10{
359 fill: none;
360 stroke: #663399;
361 stroke-width: 1px;
362 }
363 .line11{
364 fill: none;
365 stroke: #339900;
366 stroke-width: 1px;
367 }
368 .line12{
369 fill: none;
370 stroke: #9966FF;
371 stroke-width: 1px;
372 }
373 /* default fill styles */
374 .fill1{
375 fill: #cc0000;
376 fill-opacity: 0.2;
377 stroke: none;
378 }
379 .fill2{
380 fill: #0000cc;
381 fill-opacity: 0.2;
382 stroke: none;
383 }
384 .fill3{
385 fill: #00cc00;
386 fill-opacity: 0.2;
387 stroke: none;
388 }
389 .fill4{
390 fill: #ffcc00;
391 fill-opacity: 0.2;
392 stroke: none;
393 }
394 .fill5{
395 fill: #00ccff;
396 fill-opacity: 0.2;
397 stroke: none;
398 }
399 .fill6{
400 fill: #ff00ff;
401 fill-opacity: 0.2;
402 stroke: none;
403 }
404 .fill7{
405 fill: #00ffff;
406 fill-opacity: 0.2;
407 stroke: none;
408 }
409 .fill8{
410 fill: #ffff00;
411 fill-opacity: 0.2;
412 stroke: none;
413 }
414 .fill9{
415 fill: #cc6666;
416 fill-opacity: 0.2;
417 stroke: none;
418 }
419 .fill10{
420 fill: #663399;
421 fill-opacity: 0.2;
422 stroke: none;
423 }
424 .fill11{
425 fill: #339900;
426 fill-opacity: 0.2;
427 stroke: none;
428 }
429 .fill12{
430 fill: #9966FF;
431 fill-opacity: 0.2;
432 stroke: none;
433 }
434 /* default line styles */
435 .key1,.dataPoint1{
436 fill: #ff0000;
437 stroke: none;
438 stroke-width: 1px;
439 }
440 .key2,.dataPoint2{
441 fill: #0000ff;
442 stroke: none;
443 stroke-width: 1px;
444 }
445 .key3,.dataPoint3{
446 fill: #00ff00;
447 stroke: none;
448 stroke-width: 1px;
449 }
450 .key4,.dataPoint4{
451 fill: #ffcc00;
452 stroke: none;
453 stroke-width: 1px;
454 }
455 .key5,.dataPoint5{
456 fill: #00ccff;
457 stroke: none;
458 stroke-width: 1px;
459 }
460 .key6,.dataPoint6{
461 fill: #ff00ff;
462 stroke: none;
463 stroke-width: 1px;
464 }
465 .key7,.dataPoint7{
466 fill: #00ffff;
467 stroke: none;
468 stroke-width: 1px;
469 }
470 .key8,.dataPoint8{
471 fill: #ffff00;
472 stroke: none;
473 stroke-width: 1px;
474 }
475 .key9,.dataPoint9{
476 fill: #cc6666;
477 stroke: none;
478 stroke-width: 1px;
479 }
480 .key10,.dataPoint10{
481 fill: #663399;
482 stroke: none;
483 stroke-width: 1px;
484 }
485 .key11,.dataPoint11{
486 fill: #339900;
487 stroke: none;
488 stroke-width: 1px;
489 }
490 .key12,.dataPoint12{
491 fill: #9966FF;
492 stroke: none;
493 stroke-width: 1px;
494 }
495 EOL
496 end
497
498 end
499 end
500 end
Show file before | Show file after | Hide comments
@@ -1,241 +1,241
1 require 'SVG/Graph/Plot'
2 require 'parsedate'
3
4 module SVG
5 module Graph
6 # === For creating SVG plots of scalar temporal data
7 #
8 # = Synopsis
9 #
10 # require 'SVG/Graph/TimeSeriess'
11 #
12 # # Data sets are x,y pairs
13 # data1 = ["6/17/72", 11, "1/11/72", 7, "4/13/04 17:31", 11,
14 # "9/11/01", 9, "9/1/85", 2, "9/1/88", 1, "1/15/95", 13]
15 # data2 = ["8/1/73", 18, "3/1/77", 15, "10/1/98", 4,
16 # "5/1/02", 14, "3/1/95", 6, "8/1/91", 12, "12/1/87", 6,
17 # "5/1/84", 17, "10/1/80", 12]
18 #
19 # graph = SVG::Graph::TimeSeries.new( {
20 # :width => 640,
21 # :height => 480,
22 # :graph_title => title,
23 # :show_graph_title => true,
24 # :no_css => true,
25 # :key => true,
26 # :scale_x_integers => true,
27 # :scale_y_integers => true,
28 # :min_x_value => 0,
29 # :min_y_value => 0,
30 # :show_data_labels => true,
31 # :show_x_guidelines => true,
32 # :show_x_title => true,
33 # :x_title => "Time",
34 # :show_y_title => true,
35 # :y_title => "Ice Cream Cones",
36 # :y_title_text_direction => :bt,
37 # :stagger_x_labels => true,
38 # :x_label_format => "%m/%d/%y",
39 # })
40 #
41 # graph.add_data({
42 # :data => projection
43 # :title => 'Projected',
44 # })
45 #
46 # graph.add_data({
47 # :data => actual,
48 # :title => 'Actual',
49 # })
50 #
51 # print graph.burn()
52 #
53 # = Description
54 #
55 # Produces a graph of temporal scalar data.
56 #
57 # = Examples
58 #
59 # http://www.germane-software/repositories/public/SVG/test/timeseries.rb
60 #
61 # = Notes
62 #
63 # The default stylesheet handles upto 10 data sets, if you
64 # use more you must create your own stylesheet and add the
65 # additional settings for the extra data sets. You will know
66 # if you go over 10 data sets as they will have no style and
67 # be in black.
68 #
69 # Unlike the other types of charts, data sets must contain x,y pairs:
70 #
71 # [ "12:30", 2 ] # A data set with 1 point: ("12:30",2)
72 # [ "01:00",2, "14:20",6] # A data set with 2 points: ("01:00",2) and
73 # # ("14:20",6)
74 #
75 # Note that multiple data sets within the same chart can differ in length,
76 # and that the data in the datasets needn't be in order; they will be ordered
77 # by the plot along the X-axis.
78 #
79 # The dates must be parseable by ParseDate, but otherwise can be
80 # any order of magnitude (seconds within the hour, or years)
81 #
82 # = See also
83 #
84 # * SVG::Graph::Graph
85 # * SVG::Graph::BarHorizontal
86 # * SVG::Graph::Bar
87 # * SVG::Graph::Line
88 # * SVG::Graph::Pie
89 # * SVG::Graph::Plot
90 #
91 # == Author
92 #
93 # Sean E. Russell <serATgermaneHYPHENsoftwareDOTcom>
94 #
95 # Copyright 2004 Sean E. Russell
96 # This software is available under the Ruby license[LICENSE.txt]
97 #
98 class TimeSeries < Plot
99 # In addition to the defaults set by Graph::initialize and
100 # Plot::set_defaults, sets:
101 # [x_label_format] '%Y-%m-%d %H:%M:%S'
102 # [popup_format] '%Y-%m-%d %H:%M:%S'
103 def set_defaults
104 super
105 init_with(
106 #:max_time_span => '',
107 :x_label_format => '%Y-%m-%d %H:%M:%S',
108 :popup_format => '%Y-%m-%d %H:%M:%S'
109 )
110 end
111
112 # The format string use do format the X axis labels.
113 # See Time::strformat
114 attr_accessor :x_label_format
115 # Use this to set the spacing between dates on the axis. The value
116 # must be of the form
117 # "\d+ ?(days|weeks|months|years|hours|minutes|seconds)?"
118 #
119 # EG:
120 #
121 # graph.timescale_divisions = "2 weeks"
122 #
123 # will cause the chart to try to divide the X axis up into segments of
124 # two week periods.
125 attr_accessor :timescale_divisions
126 # The formatting used for the popups. See x_label_format
127 attr_accessor :popup_format
128
129 # Add data to the plot.
130 #
131 # d1 = [ "12:30", 2 ] # A data set with 1 point: ("12:30",2)
132 # d2 = [ "01:00",2, "14:20",6] # A data set with 2 points: ("01:00",2) and
133 # # ("14:20",6)
134 # graph.add_data(
135 # :data => d1,
136 # :title => 'One'
137 # )
138 # graph.add_data(
139 # :data => d2,
140 # :title => 'Two'
141 # )
142 #
143 # Note that the data must be in time,value pairs, and that the date format
144 # may be any date that is parseable by ParseDate.
145 def add_data data
146 @data = [] unless @data
147
148 raise "No data provided by #{conf.inspect}" unless data[:data] and
149 data[:data].kind_of? Array
150 raise "Data supplied must be x,y pairs! "+
151 "The data provided contained an odd set of "+
152 "data points" unless data[:data].length % 2 == 0
153 return if data[:data].length == 0
154
155
156 x = []
157 y = []
158 data[:data].each_index {|i|
159 if i%2 == 0
160 arr = ParseDate.parsedate( data[:data][i] )
161 t = Time.local( *arr[0,6].compact )
162 x << t.to_i
163 else
164 y << data[:data][i]
165 end
166 }
167 sort( x, y )
168 data[:data] = [x,y]
169 @data << data
170 end
171
172
173 protected
174
175 def min_x_value=(value)
176 arr = ParseDate.parsedate( value )
177 @min_x_value = Time.local( *arr[0,6].compact ).to_i
178 end
179
180
181 def format x, y
182 Time.at( x ).strftime( popup_format )
183 end
184
185 def get_x_labels
186 get_x_values.collect { |v| Time.at(v).strftime( x_label_format ) }
187 end
188
189 private
190 def get_x_values
191 rv = []
192 min, max, scale_division = x_range
193 if timescale_divisions
194 timescale_divisions =~ /(\d+) ?(days|weeks|months|years|hours|minutes|seconds)?/
195 division_units = $2 ? $2 : "days"
196 amount = $1.to_i
197 if amount
198 step = nil
199 case division_units
200 when "months"
201 cur = min
202 while cur < max
203 rv << cur
204 arr = Time.at( cur ).to_a
205 arr[4] += amount
206 if arr[4] > 12
207 arr[5] += (arr[4] / 12).to_i
208 arr[4] = (arr[4] % 12)
209 end
210 cur = Time.local(*arr).to_i
211 end
212 when "years"
213 cur = min
214 while cur < max
215 rv << cur
216 arr = Time.at( cur ).to_a
217 arr[5] += amount
218 cur = Time.local(*arr).to_i
219 end
220 when "weeks"
221 step = 7 * 24 * 60 * 60 * amount
222 when "days"
223 step = 24 * 60 * 60 * amount
224 when "hours"
225 step = 60 * 60 * amount
226 when "minutes"
227 step = 60 * amount
228 when "seconds"
229 step = amount
230 end
231 min.step( max, step ) {|v| rv << v} if step
232
233 return rv
234 end
235 end
236 min.step( max, scale_division ) {|v| rv << v}
237 return rv
238 end
239 end
240 end
241 end
1 require 'SVG/Graph/Plot'
2 require 'parsedate'
3
4 module SVG
5 module Graph
6 # === For creating SVG plots of scalar temporal data
7 #
8 # = Synopsis
9 #
10 # require 'SVG/Graph/TimeSeriess'
11 #
12 # # Data sets are x,y pairs
13 # data1 = ["6/17/72", 11, "1/11/72", 7, "4/13/04 17:31", 11,
14 # "9/11/01", 9, "9/1/85", 2, "9/1/88", 1, "1/15/95", 13]
15 # data2 = ["8/1/73", 18, "3/1/77", 15, "10/1/98", 4,
16 # "5/1/02", 14, "3/1/95", 6, "8/1/91", 12, "12/1/87", 6,
17 # "5/1/84", 17, "10/1/80", 12]
18 #
19 # graph = SVG::Graph::TimeSeries.new( {
20 # :width => 640,
21 # :height => 480,
22 # :graph_title => title,
23 # :show_graph_title => true,
24 # :no_css => true,
25 # :key => true,
26 # :scale_x_integers => true,
27 # :scale_y_integers => true,
28 # :min_x_value => 0,
29 # :min_y_value => 0,
30 # :show_data_labels => true,
31 # :show_x_guidelines => true,
32 # :show_x_title => true,
33 # :x_title => "Time",
34 # :show_y_title => true,
35 # :y_title => "Ice Cream Cones",
36 # :y_title_text_direction => :bt,
37 # :stagger_x_labels => true,
38 # :x_label_format => "%m/%d/%y",
39 # })
40 #
41 # graph.add_data({
42 # :data => projection
43 # :title => 'Projected',
44 # })
45 #
46 # graph.add_data({
47 # :data => actual,
48 # :title => 'Actual',
49 # })
50 #
51 # print graph.burn()
52 #
53 # = Description
54 #
55 # Produces a graph of temporal scalar data.
56 #
57 # = Examples
58 #
59 # http://www.germane-software/repositories/public/SVG/test/timeseries.rb
60 #
61 # = Notes
62 #
63 # The default stylesheet handles upto 10 data sets, if you
64 # use more you must create your own stylesheet and add the
65 # additional settings for the extra data sets. You will know
66 # if you go over 10 data sets as they will have no style and
67 # be in black.
68 #
69 # Unlike the other types of charts, data sets must contain x,y pairs:
70 #
71 # [ "12:30", 2 ] # A data set with 1 point: ("12:30",2)
72 # [ "01:00",2, "14:20",6] # A data set with 2 points: ("01:00",2) and
73 # # ("14:20",6)
74 #
75 # Note that multiple data sets within the same chart can differ in length,
76 # and that the data in the datasets needn't be in order; they will be ordered
77 # by the plot along the X-axis.
78 #
79 # The dates must be parseable by ParseDate, but otherwise can be
80 # any order of magnitude (seconds within the hour, or years)
81 #
82 # = See also
83 #
84 # * SVG::Graph::Graph
85 # * SVG::Graph::BarHorizontal
86 # * SVG::Graph::Bar
87 # * SVG::Graph::Line
88 # * SVG::Graph::Pie
89 # * SVG::Graph::Plot
90 #
91 # == Author
92 #
93 # Sean E. Russell <serATgermaneHYPHENsoftwareDOTcom>
94 #
95 # Copyright 2004 Sean E. Russell
96 # This software is available under the Ruby license[LICENSE.txt]
97 #
98 class TimeSeries < Plot
99 # In addition to the defaults set by Graph::initialize and
100 # Plot::set_defaults, sets:
101 # [x_label_format] '%Y-%m-%d %H:%M:%S'
102 # [popup_format] '%Y-%m-%d %H:%M:%S'
103 def set_defaults
104 super
105 init_with(
106 #:max_time_span => '',
107 :x_label_format => '%Y-%m-%d %H:%M:%S',
108 :popup_format => '%Y-%m-%d %H:%M:%S'
109 )
110 end
111
112 # The format string use do format the X axis labels.
113 # See Time::strformat
114 attr_accessor :x_label_format
115 # Use this to set the spacing between dates on the axis. The value
116 # must be of the form
117 # "\d+ ?(days|weeks|months|years|hours|minutes|seconds)?"
118 #
119 # EG:
120 #
121 # graph.timescale_divisions = "2 weeks"
122 #
123 # will cause the chart to try to divide the X axis up into segments of
124 # two week periods.
125 attr_accessor :timescale_divisions
126 # The formatting used for the popups. See x_label_format
127 attr_accessor :popup_format
128
129 # Add data to the plot.
130 #
131 # d1 = [ "12:30", 2 ] # A data set with 1 point: ("12:30",2)
132 # d2 = [ "01:00",2, "14:20",6] # A data set with 2 points: ("01:00",2) and
133 # # ("14:20",6)
134 # graph.add_data(
135 # :data => d1,
136 # :title => 'One'
137 # )
138 # graph.add_data(
139 # :data => d2,
140 # :title => 'Two'
141 # )
142 #
143 # Note that the data must be in time,value pairs, and that the date format
144 # may be any date that is parseable by ParseDate.
145 def add_data data
146 @data = [] unless @data
147
148 raise "No data provided by #{@data.inspect}" unless data[:data] and
149 data[:data].kind_of? Array
150 raise "Data supplied must be x,y pairs! "+
151 "The data provided contained an odd set of "+
152 "data points" unless data[:data].length % 2 == 0
153 return if data[:data].length == 0
154
155
156 x = []
157 y = []
158 data[:data].each_index {|i|
159 if i%2 == 0
160 arr = ParseDate.parsedate( data[:data][i] )
161 t = Time.local( *arr[0,6].compact )
162 x << t.to_i
163 else
164 y << data[:data][i]
165 end
166 }
167 sort( x, y )
168 data[:data] = [x,y]
169 @data << data
170 end
171
172
173 protected
174
175 def min_x_value=(value)
176 arr = ParseDate.parsedate( value )
177 @min_x_value = Time.local( *arr[0,6].compact ).to_i
178 end
179
180
181 def format x, y
182 Time.at( x ).strftime( popup_format )
183 end
184
185 def get_x_labels
186 get_x_values.collect { |v| Time.at(v).strftime( x_label_format ) }
187 end
188
189 private
190 def get_x_values
191 rv = []
192 min, max, scale_division = x_range
193 if timescale_divisions
194 timescale_divisions =~ /(\d+) ?(day|week|month|year|hour|minute|second)?/
195 division_units = $2 ? $2 : "day"
196 amount = $1.to_i
197 if amount
198 step = nil
199 case division_units
200 when "month"
201 cur = min
202 while cur < max
203 rv << cur
204 arr = Time.at( cur ).to_a
205 arr[4] += amount
206 if arr[4] > 12
207 arr[5] += (arr[4] / 12).to_i
208 arr[4] = (arr[4] % 12)
209 end
210 cur = Time.local(*arr).to_i
211 end
212 when "year"
213 cur = min
214 while cur < max
215 rv << cur
216 arr = Time.at( cur ).to_a
217 arr[5] += amount
218 cur = Time.local(*arr).to_i
219 end
220 when "week"
221 step = 7 * 24 * 60 * 60 * amount
222 when "day"
223 step = 24 * 60 * 60 * amount
224 when "hour"
225 step = 60 * 60 * amount
226 when "minute"
227 step = 60 * amount
228 when "second"
229 step = amount
230 end
231 min.step( max, step ) {|v| rv << v} if step
232
233 return rv
234 end
235 end
236 min.step( max, scale_division ) {|v| rv << v}
237 return rv
238 end
239 end
240 end
241 end
General Comments 0
You need to be logged in to leave comments. Login now