dyi 0.0.0

data/lib/dyi/chart/pie_chart.rb

@@ -0,0 +1,141 @@
+# -*- encoding: UTF-8 -*-
+
+# Copyright (c) 2009-2011 Sound-F Co., Ltd. All rights reserved.
+#
+# Author:: Mamoru Yuo
+#
+# This file is part of DYI.
+#
+# DYI is free software: you can redistribute it and/or modify it
+# under the terms of the GNU General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# DYI is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with DYI.  If not, see <http://www.gnu.org/licenses/>.
+
+module DYI #:nodoc:
+  module Chart #:nodoc:
+
+    class PieChart < Base
+      include Legend
+      attr_reader :chart_canvas, :data_label_canvas, :legend_canvas
+
+      opt_accessor :center_point, {:type => :point, :default_method => :default_center_point}
+      opt_accessor :chart_radius_x, {:type => :length, :default_method => :default_chart_radius_x}
+      opt_accessor :chart_radius_y, {:type => :length, :default_method => :default_chart_radius_y}
+      opt_accessor :represent_3d, {:type => :boolean}
+      opt_accessor :_3d_settings, {:type => :hash, :default => {}, :keys => [:dy], :item_type => :float}
+      opt_accessor :chart_colors, {:type => :array, :item_type => :color}
+      opt_accessor :chart_stroke_color, {:type => :color}
+      opt_accessor :chart_stroke_width, {:type => :float, :default => 1}
+      opt_accessor :moved_elements, {:type => :array, :item_type => :float}
+      opt_accessor :show_data_label, {:type => :boolean, :default => true}
+      opt_accessor :data_label_position, {:type => :float, :default => 0.8}
+      opt_accessor :data_label_font, {:type => :font}
+      opt_accessor :data_label_format, {:type => :string, :default => "{name}\n{value}"}
+      opt_accessor :hide_data_label_ratio, {:type => :float, :default => 0.00}
+
+      def back_translate_value
+        {:dy => (Length.new_or_nil(_3d_settings[:dy]) || chart_radius_y.quo(2))}
+      end
+
+      private
+
+      def default_center_point #:nodoc:
+        Coordinate.new(coordinate = ([width, height].min).quo(2), coordinate)
+      end
+
+      def default_chart_radius_x #:nodoc:
+        [[width, height].min / 2 - Length.new(32), [width, height].min * 0.4].max
+      end
+
+      def default_chart_radius_y #:nodoc:
+        represent_3d? ? chart_radius_x.quo(2) : chart_radius_x
+      end
+
+      def default_csv_format #:nodoc:
+        [:$name, 0, :$color]
+      end
+
+      def default_legend_point #:nodoc:
+        Coordinate.new(width < height ? [width * 0.1, width] : [height, height * 0.1])
+      end
+
+      def default_legend_format #:nodoc:
+        "{name}\t{percent}"
+      end
+
+      def create_vector_image #:nodoc:
+        if represent_3d?
+          brush = Drawing::ColumnBrush.new(back_translate_value.merge(chart_stroke_color ? {:stroke_width => chart_stroke_width, :stroke => chart_stroke_color} : {}))
+        else
+          brush = Drawing::Brush.new(chart_stroke_color ? {:stroke_width => chart_stroke_width, :stroke => chart_stroke_color, :stroke_miterlimit => chart_stroke_width / 2.0} : {})
+        end
+        @chart_canvas = Shape::ShapeGroup.draw_on(@canvas)
+        @data_label_canvas = Shape::ShapeGroup.draw_on(@canvas)
+        @legend_canvas = Shape::ShapeGroup.draw_on(@canvas)
+        total_value = data.column_values(0).inject(0.0) {|sum, value| sum + (value || 0)}
+        accumulation = 0.0
+        accumulations = []
+        stop_index = -1
+        data.column_values(0).each_with_index do |value, i|
+          accumulations.push(accumulation)
+          if value && total_value > (accumulation + value) * 2 && value != 0.0
+#            brush.color = data[:$color] && data[:$color][i] || chart_color(i)
+            brush.color = chart_color(i)
+            name = data.row_title(i)
+            draw_chart(brush, name, value, accumulation, total_value, i)
+            stop_index = i
+          end
+          accumulation += value if value
+        end
+        (data.column_values(0).size - 1).downto(stop_index + 1) do |i|
+          value = data.column_values(0)[i]
+          if value && value != 0.0
+#            brush.color = data[:$color] && data[:$color][i] || chart_color(i)
+            brush.color = chart_color(i)
+            name = data.row_title(i)
+            draw_chart(brush, name, value, accumulations[i], total_value, i)
+          end
+        end
+#        draw_legend(data.row_titles, nil, nil, data[:$color])
+        draw_legend(data.row_titles, nil, nil, nil)
+      end
+
+      def draw_chart(brush, name, value, accumulation, total_value, index) #:nodoc:
+        canvas = Shape::ShapeGroup.draw_on(@chart_canvas)
+        brush.draw_sector(
+          canvas,
+          center_point,
+          chart_radius_x,
+          chart_radius_y,
+          accumulation * 360.0 / total_value - 90,
+          value * 360.0 / total_value)
+
+        if moved_elements && (dr = moved_elements[index])
+          canvas.translate(
+            chart_radius_x * dr * Math.cos(((accumulation * 2.0 + value) / total_value - 0.5) * Math::PI),
+            chart_radius_y * dr * Math.sin(((accumulation * 2.0 + value) / total_value - 0.5) * Math::PI))
+        end
+
+        ratio = value.to_f.quo(total_value)
+        if show_data_label?
+          legend_point = Coordinate.new(
+            chart_radius_x * (data_label_position + (dr || 0)) * Math.cos(((accumulation * 2.0 + value) / total_value - 0.5) * Math::PI),
+            chart_radius_y * (data_label_position + (dr || 0)) * Math.sin(((accumulation * 2.0 + value) / total_value - 0.5) * Math::PI))
+          Drawing::Pen.black_pen(:font => legend_font).draw_text(
+            @data_label_canvas,
+            center_point + legend_point,
+            data_label_format.gsub(/\{name\}/, name).gsub(/\{value\}/, value.to_s).gsub(/\{percent\}/, '%.1f%' % (ratio * 100.0).to_s),
+            :text_anchor => 'middle', :font => data_label_font)
+        end if hide_data_label_ratio < ratio
+      end
+    end
+  end
+end

data/lib/dyi/chart/table.rb

@@ -0,0 +1,201 @@
+# -*- encoding: UTF-8 -*-
+
+# Copyright (c) 2009-2011 Sound-F Co., Ltd. All rights reserved.
+#
+# Author:: Mamoru Yuo
+#
+# This file is part of DYI.
+#
+# DYI is free software: you can redistribute it and/or modify it
+# under the terms of the GNU General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# DYI is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with DYI.  If not, see <http://www.gnu.org/licenses/>.
+
+module DYI #:nodoc:
+  module Chart #:nodoc:
+
+    class Table < Base
+      attr_reader :frame_canvas, :data_canvas
+
+      def font
+        @options[:font]
+      end
+
+      def font=(font)
+        if font && !font.empty?
+          @options[:font] = Font.new(font)
+        else
+          @options.delete(:font)
+        end
+        font
+      end
+
+      def row_height
+        @options[:row_height] ||= (font && font.draw_size || Font::DEFAULT_SIZE) * 1.4
+      end
+
+      def row_height=(height)
+        if heights
+          @options[:row_height] = Length.new(height)
+        else
+          @options.delete(:row_height)
+        end
+        point
+      end
+
+      def column_widths
+        @options[:column_widths]
+      end
+
+      def column_widths=(widths)
+        if widths.kind_of?(Array)
+          @options[:column_widths] = widths.map {|width| Length.new_or_nil(width)}
+        elsif widths
+          @options[:column_widths] = Length.new(widths)
+        else
+          @options.delete(:column_widths)
+        end
+        point
+      end
+
+      def column_width(index)
+        case column_widths
+          when Length then column_widths
+          when Array then column_widths[index]
+          else width / series.size
+        end
+      end
+
+      def table_width
+        series.inject(Length.new(0)) do |width, i|
+          width + column_width(i)
+        end
+      end
+
+      def table_height
+        row_height * data[series.first].size
+      end
+
+      def horizontal_positions
+        @options[:horizontal_positions]
+      end
+
+      def horizontal_positions=(positions)
+        if positions && !positions.empty?
+          @options[:horizontal_positions] = positions
+        else
+          @options.delete(:horizontal_positions)
+        end
+        positions
+      end
+
+      def horizontal_position(index)
+        @options[:horizontal_positions] && @options[:horizontal_positions][index]
+      end
+
+      def column_colors
+        @options[:column_colors]
+      end
+
+      def column_colors=(colors)
+        if colors && !colors.empty?
+          @options[:column_colors] = colors
+        else
+          @options.delete(:column_colors)
+        end
+        colors
+      end
+=begin
+      def precedence_attribute
+        @options[:precedence] || :column
+      end
+
+      def precedence=(row_or_column)
+        case row_or_column.to_sym
+          when :column then @options[:precedence] = :column
+          when :row then @options[:precedence] = :row
+          when nil, false then @options.delete(:precedence)
+          else raise ArgumentError, "\"#{row_or_column}\" is invalid value"
+        end
+        row_or_column
+      end
+=end
+      private
+
+      def options #:nodoc:
+        @options
+      end
+
+      def default_csv_format #:nodoc:
+        [0, 1]
+      end
+
+      def convert_data(value) #:nodoc:
+        value.strip
+      end
+
+      def create_vector_image #:nodoc:
+        pen = Drawing::Pen.new
+        @frame_canvas = Shape::ShapeGroup.draw_on(@canvas)
+        @data_canvas = Shape::ShapeGroup.draw_on(@canvas)
+        draw_frame(pen)
+        draw_data(pen)
+      end
+
+      def draw_frame(pen) #:nodoc:
+        w = table_width
+        h = table_height
+
+        draw_column_colors
+
+        pen.draw_rectangle(@frame_canvas, [0, 0], w, h)
+        (1...data[series.first].size).each do |i|
+          pen.draw_line(@frame_canvas, [0, row_height * i], [w, row_height * i])
+        end
+        series.inject(Length.new(0)) do |x, j|
+          pen.draw_line(@frame_canvas, [x, 0], [x, h]) if x.nonzero?
+          x + column_width(j)
+        end
+      end
+
+      def draw_column_colors #:nodoc:
+        if column_colors
+          brush = Drawing::Brush.new
+          h = table_height
+
+          series.inject(Length.new(0)) do |x, j|
+            if column_colors[j]
+              brush.color = Color.new(column_colors[j])
+              brush.draw_rectangle(@frame_canvas, [x, 0], column_width(j), h)
+              x + column_width(j)
+            end
+          end
+        end
+      end
+
+      def draw_data(pen) #:nodoc:
+        cell_margin = (row_height - (font && font.draw_size || Font::DEFAULT_SIZE)) / 2
+        series.inject(cell_margin) do |x, column_index|
+          y = row_height - cell_margin
+          data[column_index].each do |value|
+            case horizontal_position(column_index)
+              when 'middle' then pen.draw_text(@data_canvas, [x + column_width(column_index) / 2 - cell_margin, y], value, :text_anchor=>'middle')
+              when 'end' then pen.draw_text(@data_canvas, [x + column_width(column_index) - cell_margin * 2, y], value, :text_anchor=>'end')
+              else pen.draw_text(@data_canvas, [x, y], value)
+            end
+            y += row_height
+          end
+          x + column_width(column_index)
+        end
+      end
+    end
+  end
+end

data/lib/dyi/color.rb

@@ -0,0 +1,218 @@
+# -*- encoding: UTF-8 -*-
+
+# Copyright (c) 2009-2011 Sound-F Co., Ltd. All rights reserved.
+#
+# Author:: Mamoru Yuo
+#
+# This file is part of DYI.
+#
+# DYI is free software: you can redistribute it and/or modify it
+# under the terms of the GNU General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# DYI is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with DYI.  If not, see <http://www.gnu.org/licenses/>.
+
+module DYI #:nodoc:
+
+  class Color
+    @@named_colors = {'aliceblue'=>[240,248,255],'antiquewhite'=>[250,235,215],'aqua'=>[0,255,255],'aquamarine'=>[127,255,212],'azure'=>[240,255,255],'beige'=>[245,245,220],'bisque'=>[255,228,196],'black'=>[0,0,0],'blanchedalmond'=>[255,235,205],'blue'=>[0,0,255],'blueviolet'=>[138,43,226],'brown'=>[165,42,42],'burlywood'=>[222,184,135],'cadetblue'=>[95,158,160],'chartreuse'=>[127,255,0],'chocolate'=>[210,105,30],'coral'=>[255,127,80],'cornflowerblue'=>[100,149,237],'cornsilk'=>[255,248,220],'crimson'=>[220,20,60],'cyan'=>[0,255,255],'darkblue'=>[0,0,139],'darkcyan'=>[0,139,139],'darkgoldenrod'=>[184,134,11],'darkgray'=>[169,169,169],'darkgreen'=>[0,100,0],'darkgrey'=>[169,169,169],'darkkhaki'=>[189,183,107],'darkmagenta'=>[139,0,139],'darkolivegreen'=>[85,107,47],'darkorange'=>[255,140,0],'darkorchid'=>[153,50,204],'darkred'=>[139,0,0],'darksalmon'=>[233,150,122],'darkseagreen'=>[143,188,143],'darkslateblue'=>[72,61,139],'darkslategray'=>[47,79,79],'darkslategrey'=>[47,79,79],'darkturquoise'=>[0,206,209],'darkviolet'=>[148,0,211],'deeppink'=>[255,20,147],'deepskyblue'=>[0,191,255],'dimgray'=>[105,105,105],'dimgrey'=>[105,105,105],'dodgerblue'=>[30,144,255],'firebrick'=>[178,34,34],'floralwhite'=>[255,250,240],'forestgreen'=>[34,139,34],'fuchsia'=>[255,0,255],'gainsboro'=>[220,220,220],'ghostwhite'=>[248,248,255],'gold'=>[255,215,0],'goldenrod'=>[218,165,32],'gray'=>[128,128,128],'grey'=>[128,128,128],'green'=>[0,128,0],'greenyellow'=>[173,255,47],'honeydew'=>[240,255,240],'hotpink'=>[255,105,180],'indianred'=>[205,92,92],'indigo'=>[75,0,130],'ivory'=>[255,255,240],'khaki'=>[240,230,140],'lavender'=>[230,230,250],'lavenderblush'=>[255,240,245],'lawngreen'=>[124,252,0],'lemonchiffon'=>[255,250,205],'lightblue'=>[173,216,230],'lightcoral'=>[240,128,128],'lightcyan'=>[224,255,255],'lightgoldenrodyellow'=>[250,250,210],'lightgray'=>[211,211,211],'lightgreen'=>[144,238,144],'lightgrey'=>[211,211,211],'lightpink'=>[255,182,193],'lightsalmon'=>[255,160,122],'lightseagreen'=>[32,178,170],'lightskyblue'=>[135,206,250],'lightslategray'=>[119,136,153],'lightslategrey'=>[119,136,153],'lightsteelblue'=>[176,196,222],'lightyellow'=>[255,255,224],'lime'=>[0,255,0],'limegreen'=>[50,205,50],'linen'=>[250,240,230],'magenta'=>[255,0,255],'maroon'=>[128,0,0],'mediumaquamarine'=>[102,205,170],'mediumblue'=>[0,0,205],'mediumorchid'=>[186,85,211],'mediumpurple'=>[147,112,219],'mediumseagreen'=>[60,179,113],'mediumslateblue'=>[123,104,238],'mediumspringgreen'=>[0,250,154],'mediumturquoise'=>[72,209,204],'mediumvioletred'=>[199,21,133],'midnightblue'=>[25,25,112],'mintcream'=>[245,255,250],'mistyrose'=>[255,228,225],'moccasin'=>[255,228,181],'navajowhite'=>[255,222,173],'navy'=>[0,0,128],'oldlace'=>[253,245,230],'olive'=>[128,128,0],'olivedrab'=>[107,142,35],'orange'=>[255,165,0],'orangered'=>[255,69,0],'orchid'=>[218,112,214],'palegoldenrod'=>[238,232,170],'palegreen'=>[152,251,152],'paleturquoise'=>[175,238,238],'palevioletred'=>[219,112,147],'papayawhip'=>[255,239,213],'peachpuff'=>[255,218,185],'peru'=>[205,133,63],'pink'=>[255,192,203],'plum'=>[221,160,221],'powderblue'=>[176,224,230],'purple'=>[128,0,128],'red'=>[255,0,0],'rosybrown'=>[188,143,143],'royalblue'=>[65,105,225],'saddlebrown'=>[139,69,19],'salmon'=>[250,128,114],'sandybrown'=>[244,164,96],'seagreen'=>[46,139,87],'seashell'=>[255,245,238],'sienna'=>[160,82,45],'silver'=>[192,192,192],'skyblue'=>[135,206,235],'slateblue'=>[106,90,205],'slategray'=>[112,128,144],'slategrey'=>[112,128,144],'snow'=>[255,250,250],'springgreen'=>[0,255,127],'steelblue'=>[70,130,180],'tan'=>[210,180,140],'teal'=>[0,128,128],'thistle'=>[216,191,216],'tomato'=>[255,99,71],'turquoise'=>[64,224,208],'violet'=>[238,130,238],'wheat'=>[245,222,179],'white'=>[255,255,255],'whitesmoke'=>[245,245,245],'yellow'=>[255,255,0],'yellowgreen'=>[154,205,50]}
+    @@default_format = ['rgb(%d,%d,%d)', false]
+    attr_reader :name
+
+    # :call-seq:
+    # new (color_string)
+    # new (rgb_array)
+    # new (rgb_hash)
+    # new (red, green, blue)
+    # new (color)
+    def initialize(*args)
+      case args.size
+        when 1 then color = args.first
+        when 3 then color = args
+        else raise ArgumentError, "wrong number of arguments (#{args.size} for #{args.size == 0 ? 1 : 3})"
+      end
+
+      case color
+      when Color
+        @r = color.red
+        @g = color.green
+        @b = color.blue
+        @name = color.name
+      when Array
+        raise ArgumentError, "illegal size of Array: #{color.size}" if color.size != 3
+        @r, @g, @b = color.map {|c| c.to_i & 0xff}
+        @name = nil
+      when Hash
+        @r, @g, @b = [:r, :g, :b].map {|key| color[key].to_i & 0xff}
+        @name = nil
+      when String, Symbol
+        color = color.to_s
+        if color =~ /^\s*#([0-9a-fA-F]{2})([0-9a-fA-F]{2})([0-9a-fA-F]{2})\s*$/ # #ffffff
+          @r, @g, @b = [$1, $2, $3].map {|s| s.hex}
+          @name = nil
+        elsif color =~ /^\s*#([0-9a-fA-F])([0-9a-fA-F])([0-9a-fA-F])\s*$/ # #fff
+          @r, @g, @b = [$1, $2, $3].map {|s| (s * 2).hex}
+          @name = nil
+        elsif color =~ /^\s*rgb\s*\(\s*(\d+)\s*,\s*(\d+)\s*,\s*(\d+)\s*\)\s*$/ # rgb(255,255,255)
+          @r, @g, @b = [$1, $2, $3].map {|s| s.to_i & 0xff}
+          @name = nil
+        elsif color =~ /^\s*rgb\s*\(\s*(\d+)%\s*,\s*(\d+)%\s*,\s*(\d+)%\s*\)\s*$/ # rgb(100%,100%,100%)
+          @r, @g, @b = [$1, $2, $3].map {|s| (0xff * s.to_f / 100).to_i & 0xff}
+          @name = nil
+        else
+          raise ArgumentError, "argument is empty" if color.size == 0
+          raise ArgumentError, "`#{color}' is unknown color" unless rgb = @@named_colors[color.downcase]
+          @r, @g, @b = rgb
+          @name = color.downcase
+        end
+      else
+        raise TypeError, "#{color.class} can't be coerced into #{self.class}"
+      end
+    end
+
+    def ==(other)
+      return false unless other.instance_of?(self.class)
+      @r == other.red && @g == other.green && @b = other.blue
+    end
+
+    def eql?(other)
+      return false unless self.class == other.class
+      self == other
+    end
+
+    def hash #:nodoc:
+      (@r << 16) + (@g << 8) + @b 
+    end
+
+    def named?
+      not @name.nil?
+    end
+
+    def red
+      @r
+    end
+
+    def green
+      @g
+    end
+
+    def blue
+      @b
+    end
+
+    def r_red
+      @r.quo(0.255).floor.quo(1000.0)
+    end
+
+    def r_green
+      @g.quo(0.255).floor.quo(1000.0)
+    end
+
+    def r_blue
+      @b.quo(0.255).floor.quo(1000.0)
+    end
+
+    def merge(other, ratio)
+      raise ArgumentError, "ratio should be number between 0 and 1" if ratio < 0 || 1 < ratio
+      other = self.class.new(other)
+      r = @r * (1.0 - ratio) + other.red * ratio
+      g = @g * (1.0 - ratio) + other.green * ratio
+      b = @b * (1.0 - ratio) + other.blue * ratio
+      self.class.new(r,g,b)
+    end
+
+    def color?
+      true
+    end
+
+    # :call-seq:
+    # to_s ()
+    # to_s (fmt, disp_ratio=false)
+    def to_s(*args)
+      args[0] = self.class.check_format(args[0]) if args[0]
+      args = @@default_format if args.empty?
+      args[0] % (args[1] ? [r_red, r_green, r_blue] : [@r,@g,@b])
+    end
+
+    def to_s16(opacity=nil)
+      opacity ? '#%02X%02X%02X%02X' % [0xff && (0xff * opacity), @r,@g,@b] : to_s('#%02X%02X%02X')
+    end
+
+    class << self
+
+      public
+
+      def new(*args) #:nodoc:
+        if args.size == 1
+          case args.first
+          when self
+            return args.first
+          when String, Symbol
+            if color = named_color(args.first)
+              return color
+            end
+          end
+        end
+        super
+      end
+
+      def new_or_nil(*args)
+        (args.size == 1 && args.first.nil?) ? nil : new(*args)
+      end
+
+      def method_missing(name, *args) #:nodoc:
+        if args.size == 0 && color = named_color(name)
+          instance_eval %{
+            def self.#{name}
+              @#{name}
+            end
+          }
+          return color
+        end
+        super
+      end
+
+      def set_default_format(fmt, disp_ratio=false)
+        org_format = @@default_format
+        @@default_format = [check_format(fmt), disp_ratio]
+        if block_given?
+          yield
+          @@default_format = org_format
+        end
+      end
+
+      def default_format
+        @@default_format
+      end
+
+      def check_format(fmt) #:nodoc:
+        begin
+          (fmt = fmt.to_s) % [0.0, 0.0, 0.0]
+          fmt
+        rescue
+          raise ArgumentError, "wrong format: `#{fmt}'"
+        end
+      end
+
+      private
+
+      def named_color(name) #:nodoc:
+        name = name.to_s.downcase
+        color = instance_variable_get('@' + name) rescue (return nil)
+        return color if color
+        if @@named_colors[name]
+          color = allocate
+          color.__send__(:initialize, name)
+          instance_variable_set('@' + name, color)
+        end
+      end
+    end
+  end
+end