dyi 0.0.0

data/lib/dyi/font.rb

@@ -0,0 +1,132 @@
+# -*- 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 Font
+    IMPLEMENT_ATTRIBUTES = [:font_family, :style, :variant, :weight, :size, :size_adjust, :stretch]
+    VALID_VALUES = {
+      :style => ['normal','italic','oblique'],
+      :variant => ['normal','small-caps'],
+      :weight => ['normal','bold','bolder','lighter','100','200','300','400','500','600','700','800','900'],
+      :stretch => ['normal','wider','narrower','ultra-condensed','extra-condensed','condensed','semi-condensed','semi-expanded','expanded','extra-expanded','ultra-expanded']
+    }
+    DEFAULT_SIZE = Length.new(16)
+
+    ##
+    # :method: font_family
+
+    ##
+    # :method: style
+
+    ##
+    # :method: weight
+
+    ##
+    # :method: size
+
+    ##
+    attr_reader *IMPLEMENT_ATTRIBUTES
+
+    def initialize(options={})
+      case options
+      when Font
+        IMPLEMENT_ATTRIBUTES.each do |attr|
+          instance_variable_set("@#{attr}", options.__send__(attr))
+        end
+      when Hash
+        options.each do |attr, value|
+          __send__(attr.to_s + '=', value) if IMPLEMENT_ATTRIBUTES.include?(attr.to_sym)
+        end
+      else
+        raise TypeError, "#{options.class} can't be coerced into #{self.class}"
+      end
+    end
+
+    ##
+    # :method: style=
+    # 
+    # :call-seq:
+    # style= (value)
+    # 
+
+    ##
+    # :method: weight=
+    # 
+    # :call-seq:
+    # weight= (value)
+    # 
+
+    ##
+    VALID_VALUES.each do |attr, valid_values|
+      define_method("#{attr.to_s}=") {|value|
+        if (value = value.to_s).size == 0
+          instance_variable_set("@#{attr}", nil)
+        else
+          raise ArgumentError, "`#{value}' is invalid font-#{attr}" unless VALID_VALUES[attr].include?(value)
+          instance_variable_set("@#{attr}", value)
+        end
+      }
+    end
+
+    def font_family=(value)
+      @font_family = value.to_s.size != 0 ? value.to_s : nil
+    end
+
+    def size=(value)
+      @size = Length.new_or_nil(value)
+    end
+
+    def size_adjust=(value) #:nodoc:
+      @size_adjust = value.to_s.size != 0 ? value.to_s : nil
+    end
+
+    def draw_size
+      @size || DEFAULT_SIZE
+    end
+
+    def attributes
+      IMPLEMENT_ATTRIBUTES.inject({}) do |hash, attr|
+        value = instance_variable_get("@#{attr}")
+        hash[/^font_/ =~ attr.to_s ? attr : "font_#{attr}".to_sym] = value.to_s unless value.nil?
+        hash
+      end
+    end
+
+    def empty?
+      IMPLEMENT_ATTRIBUTES.all? do |attr|
+        not instance_variable_get("@#{attr}")
+      end
+    end
+
+    class << self
+
+      def new(*args) #:nodoc:
+        return args.first if args.size == 1 && args.first.instance_of?(self)
+        super
+      end
+
+      def new_or_nil(*args)
+        (args.size == 1 && args.first.nil?) ? nil : new(*args)
+      end
+    end
+  end
+end

data/lib/dyi/formatter.rb

@@ -0,0 +1,36 @@
+# -*- 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/>.
+
+%w(
+
+base
+svg_formatter
+xaml_formatter
+eps_formatter
+svg_reader
+
+).each do |file_name|
+  require File.join(File.dirname(__FILE__), 'formatter', file_name)
+end
+
+if defined? IRONRUBY_VERSION
+  require File.join(File.dirname(__FILE__), 'formatter', 'emf_formatter')
+end

data/lib/dyi/formatter/base.rb

@@ -0,0 +1,245 @@
+# -*- 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/>.
+
+require 'stringio'
+
+module DYI #:nodoc:
+  module Formatter #:nodoc:
+
+    class Base
+
+      def initialize(canvas)
+        @canvas = canvas
+      end
+
+      def puts(io=$>)
+        raise NotImplementedError
+      end
+
+      def string
+        puts(sio = StringIO.new)
+        sio.string
+      end
+
+      def save(file_name, options={})
+        open(file_name, "w") {|io| puts(io)}
+      end
+
+      def write_canvas(canvas, io)
+        raise NotImplementedError
+      end
+
+      def write_rectangle(shape, io)
+        raise NotImplementedError
+      end
+
+      def write_circle(shape, io)
+        raise NotImplementedError
+      end
+
+      def write_ellipse(shape, io)
+        raise NotImplementedError
+      end
+
+      def write_line(shape, io)
+        raise NotImplementedError
+      end
+
+      def write_polyline(shape, io)
+        raise NotImplementedError
+      end
+
+      def write_polygon(shape, io)
+        raise NotImplementedError
+      end
+
+      def write_path(shape, io)
+        raise NotImplementedError
+      end
+
+      def write_text(shape, io)
+        raise NotImplementedError
+      end
+
+      def write_group(shape, io)
+        raise NotImplementedError
+      end
+    end
+
+    module XmlChar #:nodoc:
+      # See http://intertwingly.net/stories/2004/04/14/i18n.html#CleaningWindows
+      CP1252 = {      #:nodoc:
+        128 => 8364,  # euro sign
+        130 => 8218,  # single low-9 quotation mark
+        131 =>  402,  # latin small letter f with hook
+        132 => 8222,  # double low-9 quotation mark
+        133 => 8230,  # horizontal ellipsis
+        134 => 8224,  # dagger
+        135 => 8225,  # double dagger
+        136 =>  710,  # modifier letter circumflex accent
+        137 => 8240,  # per mille sign
+        138 =>  352,  # latin capital letter s with caron
+        139 => 8249,  # single left-pointing angle quotation mark
+        140 =>  338,  # latin capital ligature oe
+        142 =>  381,  # latin capital letter z with caron
+        145 => 8216,  # left single quotation mark
+        146 => 8217,  # right single quotation mark
+        147 => 8220,  # left double quotation mark
+        148 => 8221,  # right double quotation mark
+        149 => 8226,  # bullet
+        150 => 8211,  # en dash
+        151 => 8212,  # em dash
+        152 =>  732,  # small tilde
+        153 => 8482,  # trade mark sign
+        154 =>  353,  # latin small letter s with caron
+        155 => 8250,  # single right-pointing angle quotation mark
+        156 =>  339,  # latin small ligature oe
+        158 =>  382,  # latin small letter z with caron
+        159 =>  376   # latin capital letter y with diaeresis
+      }
+
+      # See http://www.w3.org/TR/REC-xml/#dt-chardata for details.
+      PREDEFINED = {    #:nodoc:
+        38 => '&amp;',  # ampersand
+        60 => '&lt;',   # left angle bracket
+        62 => '&gt;'    # right angle bracket
+      }
+
+      # See http://www.w3.org/TR/REC-xml/#dt-chardata for details.
+      ATTR_PREDEFINED = PREDEFINED.merge( #:nodoc:
+        34 => '&quot;',  # double quote
+        39 => '&apos;'   # single quote
+      )
+
+      # See http://www.w3.org/TR/REC-xml/#charsets for details.
+      VALID = [
+        0x9, 0xA, 0xD,
+        (0x20..0xD7FF),
+        (0xE000..0xFFFD),
+        (0x10000..0x10FFFF)
+      ]
+
+      private
+
+      def escape(s) #:nodoc:
+        s.to_s.unpack('U*').map {|n| code_to_char(n)}.join # ASCII, UTF-8
+      rescue
+        s.to_s.unpack('C*').map {|n| code_to_char(n)}.join # ISO-8859-1, WIN-1252
+      end
+
+      def attr_escape(s) #:nodoc:
+        s.to_s.unpack('U*').map {|n| code_to_char(n, true)}.join # ASCII, UTF-8
+      rescue
+        s.to_s.unpack('C*').map {|n| code_to_char(n, true)}.join # ISO-8859-1, WIN-1252
+      end
+
+      def code_to_char(code, is_attr=false) #:nodoc:
+        code = CP1252[code] || code
+        case code when *VALID
+          (is_attr ? ATTR_PREDEFINED : PREDEFINED)[code] || (code<128 ? code.chr : "&##{code};")
+        else
+          '*'
+        end
+      end
+    end
+
+    class XmlFormatter < Base
+      include XmlChar
+
+      def initialize(canvas, indent=0, level=0)
+        @canvas = canvas
+        @indent = indent
+        @level = level
+      end
+
+      def instruction
+        %Q{<?xml version="1.0" encoding="UTF-8"?>}
+      end
+
+      def generator_comment
+        %Q{<!-- Create with DYI #{VERSION} (http://xxxx/) -->}
+      end
+
+      def declaration
+        ''
+      end
+
+      def puts(io=$>)
+        if @canvas.root_node?
+          puts_line(io) {io << instruction}
+          puts_line(io) {io << generator_comment}
+          declaration.each_line do |dec|
+            puts_line(io) {io << dec}
+          end
+        end
+        @canvas.write_as(self, io)
+      end
+
+      private
+
+      def puts_line(io, &block) #:nodoc:
+        io << (' ' * (@indent * @level)) if @indent != 0 && @level != 0
+        yield io
+        io << "\n" if @indent != 0
+      end
+
+      def create_node(io, tag_name, attributes={}, &block) #:nodoc:
+        puts_line(io) {
+          io << '<' << tag_name
+          attributes.each do |key, value|
+            io << ' ' << key << '="' << attr_escape(value) << '"'
+          end
+          io << '>'
+        }
+        create_nested_nodes(io, &block) if block
+        puts_line(io) {io << '</' << tag_name << '>'}
+      end
+
+      def create_leaf_node(io, tag_name, *attr) #:nodoc:
+        puts_line(io) {
+          io << '<' << tag_name
+          if attr.first.kind_of?(Hash)
+            attr.first.each do |key, value|
+              io << ' ' << key << '="' << attr_escape(value) << '"'
+            end
+            io << '/>'
+          elsif attr[1].kind_of?(Hash)
+            attr[1].each do |key, value|
+              io << ' ' << key << '="' << attr_escape(value) << '"'
+            end
+            io << '>' << escape(attr.first) << '</' << tag_name << '>'
+          elsif attr.first.nil?
+            io << '/>'
+          else
+            io << '>' << escape(attr.first) << '</' << tag_name << '>'
+          end
+        }
+      end
+
+      def create_nested_nodes(io, &block) #:nodoc:
+        @level += 1
+        yield io
+      ensure
+        @level -= 1
+      end
+    end
+  end
+end

data/lib/dyi/formatter/emf_formatter.rb

@@ -0,0 +1,253 @@
+# -*- 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/>.
+
+require 'System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a'
+require 'System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'
+
+module DYI #:nodoc:
+  module Formatter #:nodoc:
+
+    class EmfFormatter < Base
+
+      def save(file_name, options={})
+        form = System::Windows::Forms::Form.new
+        tmp_g = form.create_graphics
+        dc = tmp_g.get_hdc
+        stream = System::IO::FileStream.new(file_name, System::IO::FileMode.create)
+#        stream = System::IO::MemoryStream.new()
+        metafile = System::Drawing::Imaging::Metafile.new(
+            stream,
+            dc,
+            System::Drawing::Rectangle.new(0, 0, @canvas.width.to_f, @canvas.height.to_f),
+            System::Drawing::Imaging::MetafileFrameUnit.pixel,
+            System::Drawing::Imaging::EmfType.emf_plus_dual)
+        tmp_g.release_hdc
+        tmp_g.dispose
+
+        graphics = System::Drawing::Graphics.from_image(metafile);
+
+        @canvas.write_as(self, graphics)
+
+#        fs = System::IO::FileStream.new('test.wmf', System::IO::FileMode.create)
+#        fs.write(stream.to_array, 0, stream.length)
+
+        graphics.dispose
+        metafile.dispose
+      end
+
+      def write_canvas(canvas, graphics)
+        canvas.child_elements.each do |element|
+          element.write_as(self, graphics)
+        end
+      end
+
+      def write_rectangle(shape, graphics)
+        set_transform(shape, graphics) {
+          painting = shape.painting
+          if painting.fill
+            graphics.fill_rectangle(painting.cls_brush(shape), shape.left.to_f, shape.top.to_f, shape.width.to_f, shape.height.to_f)
+          end
+          if painting.stroke && (painting.stroke_width != DYI::Length::ZERO)
+            graphics.draw_rectangle(painting.cls_pen, shape.left.to_f, shape.top.to_f, shape.width.to_f, shape.height.to_f)
+          end
+        }
+      end
+
+      def write_circle(shape, graphics)
+        write_ellipse(shape, graphics)
+      end
+
+      def write_ellipse(shape, graphics)
+        set_transform(shape, graphics) {
+          painting = shape.painting
+          if painting.fill
+            graphics.fill_ellipse(painting.cls_brush(shape), shape.left.to_f, shape.top.to_f, shape.width.to_f, shape.height.to_f)
+          end
+          if painting.stroke && (painting.stroke_width != DYI::Length::ZERO)
+            graphics.draw_ellipse(painting.cls_pen, shape.left.to_f, shape.top.to_f, shape.width.to_f, shape.height.to_f)
+          end
+        }
+      end
+
+      def write_line(shape, graphics)
+        set_transform(shape, graphics) {
+          painting = shape.painting
+          if painting.stroke && (painting.stroke_width != DYI::Length::ZERO)
+            graphics.draw_line(painting.cls_pen, shape.start_point.to_cls_point, shape.end_point.to_cls_point)
+          end
+        }
+      end
+
+      def write_polyline(shape, graphics)
+        set_transform(shape, graphics) {
+          points = System::Array[System::Drawing::PointF].new(shape.points.size)
+          shape.points.each_with_index do |point, i|
+            points[i] = point.to_cls_point
+          end
+
+          painting = shape.painting
+          if painting.stroke && (painting.stroke_width != DYI::Length::ZERO)
+            graphics.draw_lines(painting.cls_pen, points)
+          end
+        }
+      end
+
+      def write_polygon(shape, graphics)
+        set_transform(shape, graphics) {
+          points = System::Array[System::Drawing::PointF].new(shape.points.size)
+          shape.points.each_with_index do |point, i|
+            points[i] = point.to_cls_point
+          end
+
+          painting = shape.painting
+          if painting.fill
+            graphics.fill_polygon(painting.cls_brush(shape), points, painting.cls_fill_mode)
+          end
+          if painting.stroke && (painting.stroke_width != DYI::Length::ZERO)
+            graphics.draw_polygon(painting.cls_pen, points)
+          end
+        }
+      end
+
+      def write_path(shape, graphics)
+        set_transform(shape, graphics) {
+          painting = shape.painting
+          path = System::Drawing::Drawing2D::GraphicsPath.new(painting.cls_fill_mode)
+          path.start_figure
+          shape.compatible_path_data.each do |cmd|
+            case cmd
+            when Shape::Path::MoveCommand
+              # do nothing.
+            when Shape::Path::CloseCommand
+              path.close_figure
+            when Shape::Path::LineCommand
+              path.add_line(cmd.preceding_point.x.to_f, cmd.preceding_point.y.to_f,
+                            cmd.last_point.x.to_f, cmd.last_point.y.to_f)
+            when Shape::Path::CurveCommand
+              pre_pt = cmd.preceding_point
+              ctrl_pt1 = cmd.relative? ? pre_pt + cmd.control_point1 : cmd.control_point1
+              ctrl_pt2 = cmd.relative? ? pre_pt + cmd.control_point2 : cmd.control_point2
+              path.add_bezier(pre_pt.x.to_f, pre_pt.y.to_f,
+                              ctrl_pt1.x.to_f, ctrl_pt1.y.to_f,
+                              ctrl_pt2.x.to_f, ctrl_pt2.y.to_f,
+                              cmd.last_point.x.to_f, cmd.last_point.y.to_f)
+            else
+              raise TypeError, "unknown command: #{cmd.class}"
+            end
+          end
+          if painting.fill
+            graphics.fill_path(painting.cls_brush(shape), path)
+          end
+          if painting.stroke && (painting.stroke_width != DYI::Length::ZERO)
+            graphics.draw_path(painting.cls_pen, path)
+          end
+        }
+      end
+
+      def write_text(shape, graphics)
+        set_transform(shape, graphics) {
+#          font = Font.to_cls_font(shape.font)
+#          brush = System::Drawing::SolidBrush.new(Color.black.to_cls_color)
+          graphics.draw_string(shape.formated_text, shape.font.to_cls_font, shape.painting.cls_brush(shape), shape.point.to_cls_point, shape.string_format)
+=begin
+        attrs = {:x => shape.point.x, :y => shape.point.y}
+        attrs.merge!(common_attributes(shape))
+        attrs[:"text-decoration"] = shape.attributes[:text_decoration] if shape.attributes[:text_decoration]
+#        attrs[:"alignment-baseline"] = shape.attributes[:alignment_baseline] if shape.attributes[:alignment_baseline]
+        case shape.attributes[:alignment_baseline]
+          when 'top' then attrs[:y] += shape.font_height * 0.85
+          when 'middle' then attrs[:y] += shape.font_height * 0.35
+          when 'bottom' then attrs[:y] -= shape.font_height * 0.15
+        end
+        attrs[:"text-anchor"] = shape.attributes[:text_anchor] if shape.attributes[:text_anchor]
+        attrs[:"writing-mode"] = shape.attributes[:writing_mode] if shape.attributes[:writing_mode]
+        attrs[:textLength] = shape.attributes[:textLength] if shape.attributes[:textLength]
+        attrs[:lengthAdjust] = shape.attributes[:lengthAdjust] if shape.attributes[:lengthAdjust]
+        text = shape.formated_text
+        if text =~ /(\r\n|\n|\r)/
+          create_node(io, 'text', attrs) {
+            create_leaf_node(io, 'tspan', $`.strip, :x => shape.point.x)
+            $'.each_line do |line|
+              create_leaf_node(io, 'tspan', line.strip, :x => shape.point.x, :dy => shape.dy)
+            end
+          }
+        else
+          create_leaf_node(io, 'text', text, attrs)
+        end
+=end
+        }
+      end
+
+      def write_group(shape, graphics)
+        set_transform(shape, graphics) {
+          shape.child_elements.each do |element|
+            element.write_as(self, graphics)
+          end
+        }
+      end
+
+      private
+=begin
+      def pre_render(shape) #:nodoc:
+        attributes = {}
+        style = create_style(shape)
+        transform = create_transform(shape)
+        clip_path = create_clip_path(shape)
+        attributes[:style] = style if style
+        attributes[:transform] = transform if transform
+        attributes[:'clip-path'] = clip_path if clip_path
+        attributes
+      end
+=end
+      def set_transform(shape, graphics, &block) #:nodoc:
+        shape.transform.each do |tr|
+          case tr.first
+          when :translate
+            graphics.translate_transform(tr[1].to_f, tr[2].to_f)
+          when :scale
+            graphics.scale_transform(tr[1].to_f, tr[2].to_f)
+          when :rotate
+            graphics.rotate_transform(tr[1].to_f)
+          when :skewX
+            graphics.multiply_transform(DYI::Matrix.skew_x(tr[1]).to_cls_matrix)
+          when :skewY
+            graphics.multiply_transform(DYI::Matrix.skew_y(tr[1]).to_cls_matrix)
+          end
+        end
+        yield
+        shape.transform.reverse_each do |tr|
+          case tr.first
+          when :translate
+            graphics.translate_transform(-tr[1].to_f, -tr[2].to_f)
+          when :scale
+            graphics.scale_transform(1.0 / tr[1].to_f, 1.0 / tr[2].to_f)
+          when :rotate
+            graphics.rotate_transform(-tr[1].to_f)
+          when :skewX
+            graphics.multiply_transform(DYI::Matrix.skew_x(-tr[1]).to_cls_matrix)
+          when :skewY
+            graphics.multiply_transform(DYI::Matrix.skew_y(-tr[1]).to_cls_matrix)
+          end
+        end
+      end
+    end
+  end
+end