annotate .svn/pristine/a9/a9a0fea2fdb05f53e7106ee809d36d5c965e5151.svn-base @ 1295:622f24f53b42 redmine-2.3

Update to Redmine SVN revision 11972 on 2.3-stable branch
author Chris Cannam
date Fri, 14 Jun 2013 09:02:21 +0100
parents
children
rev   line source
Chris@1295 1 require 'rexml/document'
Chris@1295 2 require 'SVG/Graph/Graph'
Chris@1295 3 require 'SVG/Graph/BarBase'
Chris@1295 4
Chris@1295 5 module SVG
Chris@1295 6 module Graph
Chris@1295 7 # === Create presentation quality SVG bar graphs easily
Chris@1295 8 #
Chris@1295 9 # = Synopsis
Chris@1295 10 #
Chris@1295 11 # require 'SVG/Graph/Bar'
Chris@1295 12 #
Chris@1295 13 # fields = %w(Jan Feb Mar);
Chris@1295 14 # data_sales_02 = [12, 45, 21]
Chris@1295 15 #
Chris@1295 16 # graph = SVG::Graph::Bar.new(
Chris@1295 17 # :height => 500,
Chris@1295 18 # :width => 300,
Chris@1295 19 # :fields => fields
Chris@1295 20 # )
Chris@1295 21 #
Chris@1295 22 # graph.add_data(
Chris@1295 23 # :data => data_sales_02,
Chris@1295 24 # :title => 'Sales 2002'
Chris@1295 25 # )
Chris@1295 26 #
Chris@1295 27 # print "Content-type: image/svg+xml\r\n\r\n"
Chris@1295 28 # print graph.burn
Chris@1295 29 #
Chris@1295 30 # = Description
Chris@1295 31 #
Chris@1295 32 # This object aims to allow you to easily create high quality
Chris@1295 33 # SVG[http://www.w3c.org/tr/svg bar graphs. You can either use the default
Chris@1295 34 # style sheet or supply your own. Either way there are many options which
Chris@1295 35 # can be configured to give you control over how the graph is generated -
Chris@1295 36 # with or without a key, data elements at each point, title, subtitle etc.
Chris@1295 37 #
Chris@1295 38 # = Notes
Chris@1295 39 #
Chris@1295 40 # The default stylesheet handles upto 12 data sets, if you
Chris@1295 41 # use more you must create your own stylesheet and add the
Chris@1295 42 # additional settings for the extra data sets. You will know
Chris@1295 43 # if you go over 12 data sets as they will have no style and
Chris@1295 44 # be in black.
Chris@1295 45 #
Chris@1295 46 # = Examples
Chris@1295 47 #
Chris@1295 48 # * http://germane-software.com/repositories/public/SVG/test/test.rb
Chris@1295 49 #
Chris@1295 50 # = See also
Chris@1295 51 #
Chris@1295 52 # * SVG::Graph::Graph
Chris@1295 53 # * SVG::Graph::BarHorizontal
Chris@1295 54 # * SVG::Graph::Line
Chris@1295 55 # * SVG::Graph::Pie
Chris@1295 56 # * SVG::Graph::Plot
Chris@1295 57 # * SVG::Graph::TimeSeries
Chris@1295 58 class Bar < BarBase
Chris@1295 59 include REXML
Chris@1295 60
Chris@1295 61 # See Graph::initialize and BarBase::set_defaults
Chris@1295 62 def set_defaults
Chris@1295 63 super
Chris@1295 64 self.top_align = self.top_font = 1
Chris@1295 65 end
Chris@1295 66
Chris@1295 67 protected
Chris@1295 68
Chris@1295 69 def get_x_labels
Chris@1295 70 @config[:fields]
Chris@1295 71 end
Chris@1295 72
Chris@1295 73 def get_y_labels
Chris@1295 74 maxvalue = max_value
Chris@1295 75 minvalue = min_value
Chris@1295 76 range = maxvalue - minvalue
Chris@1295 77
Chris@1295 78 top_pad = range == 0 ? 10 : range / 20.0
Chris@1295 79 scale_range = (maxvalue + top_pad) - minvalue
Chris@1295 80
Chris@1295 81 scale_division = scale_divisions || (scale_range / 10.0)
Chris@1295 82
Chris@1295 83 if scale_integers
Chris@1295 84 scale_division = scale_division < 1 ? 1 : scale_division.round
Chris@1295 85 end
Chris@1295 86
Chris@1295 87 rv = []
Chris@1295 88 maxvalue = maxvalue%scale_division == 0 ?
Chris@1295 89 maxvalue : maxvalue + scale_division
Chris@1295 90 minvalue.step( maxvalue, scale_division ) {|v| rv << v}
Chris@1295 91 return rv
Chris@1295 92 end
Chris@1295 93
Chris@1295 94 def x_label_offset( width )
Chris@1295 95 width / 2.0
Chris@1295 96 end
Chris@1295 97
Chris@1295 98 def draw_data
Chris@1295 99 minvalue = min_value
Chris@1295 100 fieldwidth = field_width
Chris@1295 101
Chris@1295 102 unit_size = (@graph_height.to_f - font_size*2*top_font) /
Chris@1295 103 (get_y_labels.max - get_y_labels.min)
Chris@1295 104 bargap = bar_gap ? (fieldwidth < 10 ? fieldwidth / 2 : 10) : 0
Chris@1295 105
Chris@1295 106 bar_width = fieldwidth - bargap
Chris@1295 107 bar_width /= @data.length if stack == :side
Chris@1295 108 x_mod = (@graph_width-bargap)/2 - (stack==:side ? bar_width/2 : 0)
Chris@1295 109
Chris@1295 110 bottom = @graph_height
Chris@1295 111
Chris@1295 112 field_count = 0
Chris@1295 113 @config[:fields].each_index { |i|
Chris@1295 114 dataset_count = 0
Chris@1295 115 for dataset in @data
Chris@1295 116
Chris@1295 117 # cases (assume 0 = +ve):
Chris@1295 118 # value min length
Chris@1295 119 # +ve +ve value - min
Chris@1295 120 # +ve -ve value - 0
Chris@1295 121 # -ve -ve value.abs - 0
Chris@1295 122
Chris@1295 123 value = dataset[:data][i]
Chris@1295 124
Chris@1295 125 left = (fieldwidth * field_count)
Chris@1295 126
Chris@1295 127 length = (value.abs - (minvalue > 0 ? minvalue : 0)) * unit_size
Chris@1295 128 # top is 0 if value is negative
Chris@1295 129 top = bottom - (((value < 0 ? 0 : value) - minvalue) * unit_size)
Chris@1295 130 left += bar_width * dataset_count if stack == :side
Chris@1295 131
Chris@1295 132 @graph.add_element( "rect", {
Chris@1295 133 "x" => left.to_s,
Chris@1295 134 "y" => top.to_s,
Chris@1295 135 "width" => bar_width.to_s,
Chris@1295 136 "height" => length.to_s,
Chris@1295 137 "class" => "fill#{dataset_count+1}"
Chris@1295 138 })
Chris@1295 139
Chris@1295 140 make_datapoint_text(left + bar_width/2.0, top - 6, value.to_s)
Chris@1295 141 dataset_count += 1
Chris@1295 142 end
Chris@1295 143 field_count += 1
Chris@1295 144 }
Chris@1295 145 end
Chris@1295 146 end
Chris@1295 147 end
Chris@1295 148 end