rmagick-windows 2.16.1

data/lib/rvg/paint.rb

@@ -0,0 +1,50 @@
+#--
+# $Id: paint.rb,v 1.6 2009/02/28 23:52:28 rmagick Exp $
+# Copyright (C) 2009 Timothy P. Hunter
+#++
+# Defines paint server classes.
+# Eventually this will include gradients.
+module Magick
+  class RVG
+    class Pattern
+      include StructureConstructors
+      include UseConstructors
+      include ShapeConstructors
+      include TextConstructors
+      include ImageConstructors
+      include Stretchable
+      include Duplicatable
+      include Stylable
+
+      # Return upper-left corner, width, height of viewport in user coordinates.
+      # Usually these are the values specified when the Pattern object is
+      # created, but they can be changed by a call to the viewbox method.
+      attr_reader :x, :y, :width, :height
+
+      # Create a pattern that can be used with the :fill or :stroke styles.
+      # The +width+ and +height+ arguments define the viewport.
+      # The pattern will be repeated at <tt>x+m*width</tt> and <tt>y+n*height</tt>
+      # offsets.
+      #
+      # Define the pattern in the block.
+      # The pattern can be composed of shapes (rectangle, circles, etc.), text,
+      # raster images and container objects. You can include graphic objects by
+      # referring to them with #use.
+      def initialize(width = 0, height = 0, x = 0, y = 0)
+        super()
+        @width, @height, @x, @y = Magick::RVG.convert_to_float(width, height, x, y)
+        @content = Content.new
+        yield(self) if block_given?
+      end
+
+      def add_primitives(gc, style) #:nodoc:
+        name = __id__.to_s
+        gc.pattern(name, @x, @y, @width, @height) do
+          add_viewbox_primitives(@width, @height, gc)
+          @content.each { |element| element.add_primitives(gc) }
+        end
+        gc.__send__(style, name)
+      end
+    end # class Pattern
+  end # class RVG
+end # module Magick

data/lib/rvg/pathdata.rb

@@ -0,0 +1,126 @@
+#--
+# $Id: pathdata.rb,v 1.5 2009/02/28 23:52:28 rmagick Exp $
+# Copyright (C) 2009 Timothy P. Hunter
+#++
+module Magick
+  class RVG
+    # The PathData class provides an object-oriented way to produce an SVG
+    # path. Each of the methods corresponds to a path command. Construct a
+    # path by calling one or more methods. The path object can be passed
+    # as an argument to the RVG::ShapeConstructors#path method.
+    class PathData
+      private
+
+      def add_points(req, *coords)
+        if coords
+          if coords.length % req != 0
+            fail ArgumentError, "wrong number of coordinates specified. A multiple of #{req} required, #{req+coords.length} given."
+          end
+          coords.each {|c| @path << ('%g' % c)}
+        end
+      end
+
+      public
+
+      # Construct an empty path
+      def initialize
+        @path = ''
+      end
+
+      # Convert the path to its string equivalent.
+      def to_s
+        @path
+      end
+
+      def deep_copy(h = nil)  #:nodoc:
+        @path.dup
+      end
+
+      # Add a <tt>moveto</tt> command. If <tt>abs</tt> is
+      # <tt>true</tt> the coordinates are absolute, otherwise
+      # the coordinates are relative.
+      def moveto(abs, x, y, *coords)
+        @path << sprintf('%s%g,%g ', (abs ? 'M' : 'm'), x, y)
+        # "subsequent pairs are treated as implicit lineto commands"
+        add_points(2, *coords)
+      end
+
+      # Add a <tt>closepath</tt> command. The <tt>abs</tt> argument
+      # is ignored.
+      def closepath(abs = true)
+        @path << 'Z' # ignore `abs'
+      end
+
+      # Add a <tt>lineto</tt> command. Any number of x,y coordinate
+      # pairs may be specified. If <tt>abs</tt> is
+      # <tt>true</tt> the coordinates are absolute, otherwise
+      # the coordinates are relative.
+      def lineto(abs, x, y, *coords)
+        @path << sprintf('%s%g,%g ', (abs ? 'L' : 'l'), x, y)
+        # "a number of coordinate pairs may be specified to draw a polyline"
+        add_points(2, *coords)
+      end
+
+      # Add a <tt>horizontal lineto</tt> command. If <tt>abs</tt> is
+      # <tt>true</tt> the coordinates are absolute, otherwise
+      # the coordinates are relative.
+      def hlineto(abs, x)
+        @path << sprintf('%s%g ', (abs ? 'H' : 'h'), x)
+      end
+
+      # Add a <tt>vertical lineto</tt> command. If <tt>abs</tt> is
+      # <tt>true</tt> the coordinates are absolute, otherwise
+      # the coordinates are relative.
+      def vlineto(abs, y)
+        @path << sprintf('%s%g ', (abs ? 'V' : 'v'), y)
+      end
+
+      # Add a <tt>curveto</tt> (<em>cubic Bezier</em>) command.
+      # If <tt>abs</tt> is
+      # <tt>true</tt> the coordinates are absolute, otherwise
+      # the coordinates are relative.
+      def curveto(abs, x1, y1, x2, y2, x, y, *coords)
+        @path << sprintf('%s%g,%g %g,%g %g,%g ', (abs ? 'C' : 'c'), x1, y1, x2, y2, x, y)
+        # "multiple sets of coordinates may be specified to draw a polybezier"
+        add_points(6, *coords)
+      end
+
+      # Add a <tt>smooth curveto</tt> (<em>cubic Bezier</em>) command.
+      # If <tt>abs</tt> is
+      # <tt>true</tt> the coordinates are absolute, otherwise
+      # the coordinates are relative.
+      def smooth_curveto(abs, x2, y2, x, y, *coords)
+        @path << sprintf('%s%g,%g %g,%g ', (abs ? 'S' : 's'), x2, y2, x, y)
+        # "multiple sets of coordinates may be specified to draw a polybezier"
+        add_points(4, *coords)
+      end
+
+      # Add a <tt>quadratic Bezier curveto</tt> command.
+      # If <tt>abs</tt> is
+      # <tt>true</tt> the coordinates are absolute, otherwise
+      # the coordinates are relative.
+      def quadratic_curveto(abs, x1, y1, x, y, *coords)
+        @path << sprintf('%s%g,%g %g,%g ', (abs ? 'Q' : 'q'), x1, y1, x, y)
+        add_points(4, *coords)
+      end
+
+      # Add a <tt>smooth quadratic Bezier curveto</tt> command.
+      # If <tt>abs</tt> is
+      # <tt>true</tt> the coordinates are absolute, otherwise
+      # the coordinates are relative.
+      def smooth_quadratic_curveto(abs, x, y, *coords)
+        @path << sprintf('%s%g,%g ', (abs ? 'T' : 't'), x, y)
+        add_points(2, *coords)
+      end
+
+      # Add an <tt>arc</tt> command.
+      # If <tt>abs</tt> is
+      # <tt>true</tt> the coordinates are absolute, otherwise
+      # the coordinates are relative.
+
+      def arc(abs, rx, ry, x_axis_rotation, large_arc_flag, sweep_flag, x, y)
+        @path << sprintf('%s%g,%g %g %d %d %g,%g ', (abs ? 'A' : 'a'), rx, ry, x_axis_rotation, large_arc_flag, sweep_flag, x, y)
+      end
+    end # class PathData
+  end # class RVG
+end # module Magick

data/lib/rvg/rvg.rb

@@ -0,0 +1,283 @@
+#--############################################################################
+# $Id: rvg.rb,v 1.10 2009/02/28 23:52:28 rmagick Exp $
+#
+#                    Copyright (C) 2009 by Timothy P. Hunter
+#
+# Permission is hereby granted, free of charge, to any person obtaining a
+# copy of this software and associated documentation files (the
+# "Software"), to deal in the Software without restriction, including
+# without limitation the rights to use, copy, modify, merge, publish,
+# distribute, sublicense, and/or sell copies of the Software, and to
+# permit persons to whom the Software is furnished to do so, subject to
+# the following conditions:
+#
+# The above copyright notice and this permission notice shall be included
+# in all copies or substantial portions of the Software.
+#
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
+# OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+# MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
+# IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
+# CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
+# TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+# SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+#
+#
+# This software is OSI Certified Open Source Software.
+# OSI Certified is a certification mark of the Open Source Initiative.
+#
+#++############################################################################
+require 'rmagick'
+require 'rvg/misc'
+require 'rvg/describable'
+require 'rvg/stylable'
+require 'rvg/transformable'
+require 'rvg/stretchable'
+require 'rvg/text'
+require 'rvg/embellishable'
+require 'rvg/container'
+require 'rvg/pathdata'
+require 'rvg/clippath'
+require 'rvg/paint'
+require 'rvg/units'
+
+require 'pp' if ENV['debug_rvg']
+
+# RVG is the main class in this library. All graphic elements
+# must be contained within an RVG object.
+module Magick
+  class RVG
+    include Stylable
+    include Transformable
+    include Stretchable
+    include Embellishable
+    include Describable
+    include Duplicatable
+
+    private
+
+    # background_fill defaults to 'none'. If background_fill has been set to something
+    # else, combine it with the background_fill_opacity.
+    def bgfill
+      if @background_fill.nil?
+        color = Magick::Pixel.new(0,0,0,Magick::TransparentOpacity)
+      else
+        color = @background_fill
+        color.opacity = (1.0 - @background_fill_opacity) * Magick::TransparentOpacity
+      end
+      color
+    end
+
+    def new_canvas
+      if @background_pattern
+        canvas = Magick::Image.new(@width, @height, @background_pattern)
+      elsif @background_image
+        if @width != @background_image.columns || @height != @background_image.rows
+          canvas = case @background_position
+            when :scaled
+              @background_image.resize(@width, @height)
+            when :tiled
+              Magick::Image.new(@width, @height, Magick::TextureFill.new(@background_image))
+            when :fit
+              width = @width
+              height = @height
+              bgcolor = bgfill
+              @background_image.change_geometry(Magick::Geometry.new(width, height)) do |new_cols, new_rows|
+                bg_image = @background_image.resize(new_cols, new_rows)
+                if bg_image.columns != width || bg_image.rows != height
+                  bg = Magick::Image.new(width, height) { self.background_color = bgcolor }
+                  bg_image = bg.composite!(bg_image, Magick::CenterGravity, Magick::OverCompositeOp)
+                end
+                bg_image
+              end
+          end
+        else
+          canvas = @background_image.copy
+        end
+      else
+        bgcolor = bgfill
+        canvas = Magick::Image.new(Integer(@width), Integer(@height)) { self.background_color = bgcolor }
+      end
+      canvas[:desc] = @desc if @desc
+      canvas[:title] = @title if @title
+      canvas[:metadata] = @metadata if @metadata
+      canvas
+    end
+
+    if ENV['debug_prim']
+      def print_gc(gc)
+        primitives = gc.inspect.split(/\n/)
+        indent = 0
+        primitives.each do |cmd|
+          indent -= 1 if cmd['pop ']
+          print(('   '*indent), cmd, "\n")
+          indent += 1 if cmd['push ']
+        end
+      end
+    end
+
+    public
+
+    WORD_SEP = / /     # Regexp to separate words
+
+    # The background image specified by background_image=
+    attr_reader :background_image
+    # The background image layout specified by background_position=
+    attr_reader :background_position
+    # The background fill color specified by background_fill=
+    attr_reader :background_fill
+    # The background fill color opacity specified by background_fill_opacity=
+    attr_reader :background_fill_opacity
+    # The image after drawing has completed
+    attr_reader :canvas
+    # For embedded RVG objects, the x-axis coordinate of the upper-left corner
+    attr_reader :x
+    # For embedded RVG objects, the x-axis coordinate of the upper-left corner
+    attr_reader :y
+    attr_reader :width, :height
+
+    # Sets an image to use as the canvas background. See background_position= for layout options.
+    def background_image=(bg_image)
+      warn 'background_image= has no effect in nested RVG objects' if @nested
+      if bg_image && !bg_image.is_a?(Magick::Image)
+        fail ArgumentError, "background image must be an Image (got #{bg_image.class})"
+      end
+      @background_image = bg_image
+    end
+
+    # Sets an object to use to fill the canvas background.
+    # The object must have a <tt>fill</tt> method. See the <b>Fill Classes</b>
+    # section in the RMagick doc for more information.
+    def background_pattern=(filler)
+      warn 'background_pattern= has no effect in nested RVG objects' if @nested
+      @background_pattern = filler
+    end
+
+    # How to position the background image on the canvas. One of the following symbols:
+    # [:scaled] Scale the image to the canvas width and height.
+    # [:tiled]  Tile the image across the canvas.
+    # [:fit] Scale the image to fit within the canvas while retaining the
+    #        image proportions. Center the image on the canvas. Color any part of
+    #        the canvas not covered by the image with the background color.
+    def background_position=(pos)
+      warn 'background_position= has no effect in nested RVG objects' if @nested
+      bg_pos = pos.to_s.downcase
+      unless ['scaled', 'tiled', 'fit'].include?(bg_pos)
+        fail ArgumentError, "background position must be `scaled', `tiled', or `fit' (#{pos} given)"
+      end
+      @background_position = bg_pos.to_sym
+    end
+
+    # Sets the canvas background color. Either a Magick::Pixel or a color name.
+    # The default fill is "none", that is, transparent black.
+    def background_fill=(color)
+      warn 'background_fill= has no effect in nested RVG objects' if @nested
+      if !color.is_a?(Magick::Pixel)
+        begin
+          @background_fill = Magick::Pixel.from_color(color)
+        rescue Magick::ImageMagickError
+          raise ArgumentError, "unknown color `#{color}'"
+        rescue TypeError
+          raise TypeError, "cannot convert #{color.class} into Pixel"
+        rescue
+          raise ArgumentError, "argument must be a color name or a Pixel (got #{color.class})"
+        end
+      else
+        @background_fill = color
+      end
+    end
+
+    # Opacity of the background fill color, a number between 0.0 (transparent) and
+    # 1.0 (opaque). The default is 1.0 when the background_fill= attribute has been set.
+    def background_fill_opacity=(opacity)
+      warn 'background_fill_opacity= has no effect in nested RVG objects' if @nested
+      begin
+        @background_fill_opacity = Float(opacity)
+      rescue ArgumentError
+        raise ArgumentError, "background_fill_opacity must be a number between 0 and 1 (#{opacity} given)"
+      end
+    end
+
+    # Draw a +width+ x +height+ image. The image is specified by calling
+    # one or more drawing methods on the RVG object.
+    # You can group the drawing method calls in the optional associated block.
+    # The +x+ and +y+ arguments have no meaning for the outermost RVG object.
+    # On nested RVG objects [+x+, +y+] is the coordinate of the upper-left
+    # corner in the containing canvas on which the nested RVG object is placed.
+    #
+    # Drawing occurs on a +canvas+ created by the #draw method. By default the
+    # canvas is transparent. You can specify a different canvas with the
+    # #background_fill= or #background_image= methods.
+    #
+    # RVG objects are _containers_. That is, styles and transforms defined
+    # on the object are used by contained objects such as shapes, text, and
+    # groups unless overridden by an inner container or the object itself.
+    def initialize(width = nil, height = nil)
+      super
+      @width = width
+      @height = height
+      @content = Content.new
+      @canvas = nil
+      @background_fill = nil
+      @background_fill_opacity = 1.0  # applies only if background_fill= is used
+      @background_position = :scaled
+      @background_pattern, @background_image, @desc, @title, @metadata = nil
+      @x = 0.0
+      @y = 0.0
+      @nested = false
+      yield(self) if block_given?
+    end
+
+    # Construct a canvas or reuse an existing canvas.
+    # Execute drawing commands. Return the canvas.
+    def draw
+      fail StandardError, 'draw not permitted in nested RVG objects' if @nested
+      @canvas ||= new_canvas    # allow drawing over existing canvas
+      gc = Utility::GraphicContext.new
+      add_outermost_primitives(gc)
+      pp(self) if ENV['debug_rvg']
+      print_gc(gc) if ENV['debug_prim']
+      gc.draw(@canvas)
+      @canvas
+    end
+
+    # Accept #use arguments. Use (x,y) to generate an additional translate.
+    # Override @width and @height if new values are supplied.
+    def ref(x, y, rw, rh)   #:nodoc:
+      translate(x, y) if x != 0 || y != 0
+      @width = rw if rw
+      @height = rh if rh
+    end
+
+    # Used by Magick::Embellishable.rvg to set non-0 x- and y-coordinates
+    def corner(x, y)        #:nodoc:
+      @nested = true
+      @x = Float(x)
+      @y = Float(y)
+      translate(@x, @y) if @x != 0.0 || @y != 0.0
+    end
+
+    # Primitives for the outermost RVG object
+    def add_outermost_primitives(gc)    #:nodoc:
+      add_transform_primitives(gc)
+      gc.push
+      add_viewbox_primitives(@width, @height, gc)
+      add_style_primitives(gc)
+      @content.each { |element| element.add_primitives(gc) }
+      gc.pop
+      self
+    end
+
+    # Primitives for nested RVG objects
+    def add_primitives(gc)  #:nodoc:
+      if @width.nil? || @height.nil?
+        fail ArgumentError, 'RVG width or height undefined'
+      elsif @width == 0 || @height == 0
+        return self
+      end
+      gc.push
+      add_outermost_primitives(gc)
+      gc.pop
+    end
+  end # end class RVG
+end # end module Magick