prawn 0.4.1 → 0.5.0.1

data/lib/prawn/font/dfont.rb

@@ -1,31 +0,0 @@
-require 'prawn/font/ttf'
-
-module Prawn
-  class Font
-    class DFont < TTF
-      # Returns a list of the names of all named fonts in the given dfont file.
-      # Note that fonts are not required to be named in a dfont file, so the
-      # list may be empty even if the file does contain fonts. Also, note that
-      # the list is returned in no particular order, so the first font in the
-      # list is not necessarily the font at index 0 in the file.
-      def self.named_fonts(file)
-        TTFunk::ResourceFile.open(file) do |file|
-          return file.resources_for("sfnt")
-        end
-      end
-
-      # Returns the number of fonts contained in the dfont file.
-      def self.font_count(file)
-        TTFunk::ResourceFile.open(file) do |file|
-          return file.map["sfnt"][:list].length
-        end
-      end
-
-      private 
-
-      def read_ttf_file
-        TTFunk::File.from_dfont(@name, @options[:font] || 0)
-      end
-    end
-  end
-end

data/lib/prawn/font/ttf.rb

@@ -1,326 +0,0 @@
-require 'ttfunk'
-require 'ttfunk/subset_collection'
-
-module Prawn
-  class Font
-    class TTF < Font
-      attr_reader :ttf, :subsets
-      
-      def initialize(document, name, options={})
-        super
-
-        @ttf              = read_ttf_file
-        @subsets          = TTFunk::SubsetCollection.new(@ttf)
-
-        @attributes       = {}
-        @bounding_boxes   = {} 
-        @char_widths      = {}   
-        @has_kerning_data = @ttf.kerning.exists? && @ttf.kerning.tables.any?
-
-        @ascender         = Integer(@ttf.ascent * scale_factor)
-        @descender        = Integer(@ttf.descent * scale_factor)
-        @line_gap         = Integer(@ttf.line_gap * scale_factor)
-      end
-
-      # +string+ must be UTF8-encoded.
-      def width_of(string, options={})
-        scale = (options[:size] || size) / 1000.0
-        if options[:kerning]
-          kern(string).inject(0) do |s,r|
-            if r.is_a?(Numeric)
-              s - r
-            else 
-              r.inject(s) { |s2, u| s2 + character_width_by_code(u) }
-            end
-          end * scale
-        else
-          string.unpack("U*").inject(0) do |s,r|
-            s + character_width_by_code(r)
-          end * scale
-        end
-      end   
-      
-      def bbox
-        @bbox ||= @ttf.bbox.map { |i| Integer(i * scale_factor) }
-      end
-
-      def has_kerning_data?
-        @has_kerning_data 
-      end
-
-      # Perform any changes to the string that need to happen
-      # before it is rendered to the canvas. Returns an array of
-      # subset "chunks", where the even-numbered indices are the
-      # font subset number, and the following entry element is
-      # either a string or an array (for kerned text).
-      #
-      # The +text+ parameter must be UTF8-encoded.
-      def encode_text(text,options={})
-        text = text.chomp
-
-        if options[:kerning]
-          last_subset = nil
-          kern(text).inject([]) do |result, element| 
-            if element.is_a?(Numeric)
-              result.last[1] = [result.last[1]] unless result.last[1].is_a?(Array)
-              result.last[1] << element
-              result
-            else
-              encoded = @subsets.encode(element)
-
-              if encoded.first[0] == last_subset
-                result.last[1] << encoded.first[1]
-                encoded.shift
-              end
-
-              if encoded.any?
-                last_subset = encoded.last[0]
-                result + encoded
-              else
-                result
-              end
-            end
-          end
-        else
-          @subsets.encode(text.unpack("U*"))
-        end
-      end
-      
-      def basename
-        @basename ||= @ttf.name.postscript_name
-      end
-
-      # not sure how to compute this for true-type fonts...
-      def stemV
-        0
-      end
-
-      def italic_angle
-        @italic_angle ||= if @ttf.postscript.exists?
-          raw = @ttf.postscript.italic_angle
-          hi, low = raw >> 16, raw & 0xFF
-          hi = -((hi ^ 0xFFFF) + 1) if hi & 0x8000 != 0
-          "#{hi}.#{low}".to_f
-        else
-          0
-        end
-      end
-
-      def cap_height
-        @cap_height ||= begin
-          height = @ttf.os2.exists? && @ttf.os2.cap_height || 0
-          height == 0 ? ascender : height
-        end
-      end
-
-      def x_height
-        # FIXME: seems like if os2 table doesn't exist, we could
-        # just find the height of the lower-case 'x' glyph?
-        @ttf.os2.exists? && @ttf.os2.x_height || 0
-      end
-
-      def family_class
-        @family_class ||= (@ttf.os2.exists? && @ttf.os2.family_class || 0) >> 8
-      end
-
-      def serif?
-        @serif ||= [1,2,3,4,5,7].include?(family_class)
-      end
-
-      def script?
-        @script ||= family_class == 10
-      end
-
-      def pdf_flags
-        @flags ||= begin
-          flags = 0
-          flags |= 0x0001 if @ttf.postscript.fixed_pitch?
-          flags |= 0x0002 if serif?
-          flags |= 0x0008 if script?
-          flags |= 0x0040 if italic_angle != 0
-          flags |= 0x0004 # assume the font contains at least some non-latin characters
-        end
-      end
-
-      def normalize_encoding(text)
-        if text.respond_to?(:encode!)
-          # if we're running under a M17n aware VM, ensure the string provided is
-          # UTF-8 (by converting it if necessary)
-          begin
-            text.encode!("UTF-8")
-          rescue
-            raise Prawn::Errors::IncompatibleStringEncoding, "Encoding " +
-            "#{text.encoding} can not be transparently converted to UTF-8. " +
-            "Please ensure the encoding of the string you are attempting " +
-            "to use is set correctly"
-          end
-        else
-          # on a non M17N aware VM, use unpack as a hackish way to verify the
-          # string is valid utf-8. I thought it was better than loading iconv
-          # though.
-          begin
-            text.unpack("U*")
-          rescue
-            raise Prawn::Errors::IncompatibleStringEncoding, "The string you " +
-              "are attempting to render is not encoded in valid UTF-8."
-          end
-        end
-      end
-
-      private
-
-      def cmap
-        @cmap ||= @ttf.cmap.unicode.first or raise("no unicode cmap for font")
-      end
-      
-      # +string+ must be UTF8-encoded.
-      #
-      # Returns an array. If an element is a numeric, it represents the
-      # kern amount to inject at that position. Otherwise, the element
-      # is an array of UTF-16 characters.
-      def kern(string)
-        a = []
-
-        string.unpack("U*").each do |r|
-          if a.empty?
-            a << [r]
-          elsif (kern = kern_pairs_table[[cmap[a.last.last], cmap[r]]])
-            kern *= scale_factor
-            a << -kern << [r]
-          else
-            a.last << r
-          end
-        end
-
-        a
-      end
-
-      def kern_pairs_table
-        @kerning_data ||= has_kerning_data? ? @ttf.kerning.tables.first.pairs : {}
-      end
-
-      def cid_to_gid_map
-        max = cmap.code_map.keys.max
-        (0..max).map { |cid| cmap[cid] }.pack("n*")
-      end
-
-      def hmtx
-        @hmtx ||= @ttf.horizontal_metrics
-      end
-
-      def character_width_by_code(code)    
-        return 0 unless cmap[code]
-        @char_widths[code] ||= Integer(hmtx.widths[cmap[code]] * scale_factor)
-      end                   
-
-      def scale_factor
-        @scale ||= 1000.0 / @ttf.header.units_per_em
-      end
-
-      def register(subset)
-        temp_name = @ttf.name.postscript_name
-        @document.ref(:Type => :Font, :BaseFont => temp_name) { |ref| embed(ref, subset) }
-      end
-
-      def embed(reference, subset)
-        font_content = @subsets[subset].encode
-
-        # FIXME: we need postscript_name and glyph widths from the font
-        # subset. Perhaps this could be done by querying the subset,
-        # rather than by parsing the font that the subset produces?
-        font = TTFunk::File.new(font_content)
-
-        # empirically, it looks like Adobe Reader will not display fonts
-        # if their font name is more than 33 bytes long. Strange. But true.
-        basename = font.name.postscript_name[0, 33]
-
-        raise "Can't detect a postscript name for #{file}" if basename.nil?
-
-        compressed_font = Zlib::Deflate.deflate(font_content)
-
-        fontfile = @document.ref(:Length => compressed_font.size,
-                                 :Length1 => font_content.size,
-                                 :Filter => :FlateDecode )
-        fontfile << compressed_font
-
-        descriptor = @document.ref(:Type        => :FontDescriptor,
-                                   :FontName    => basename,
-                                   :FontFile2   => fontfile,
-                                   :FontBBox    => bbox,
-                                   :Flags       => pdf_flags,
-                                   :StemV       => stemV,
-                                   :ItalicAngle => italic_angle,
-                                   :Ascent      => ascender,
-                                   :Descent     => descender,
-                                   :CapHeight   => cap_height,
-                                   :XHeight     => x_height)
-
-        hmtx = font.horizontal_metrics
-        widths = font.cmap.tables.first.code_map.map { |gid|
-          Integer(hmtx.widths[gid] * scale_factor) }[32..-1]
-
-        # It would be nice to have Encoding set for the macroman subsets,
-        # and only do a ToUnicode cmap for non-encoded unicode subsets.
-        # However, apparently Adobe Reader won't render MacRoman encoded
-        # subsets if original font contains unicode characters. (It has to
-        # be some flag or something that ttfunk is simply copying over...
-        # but I can't figure out which flag that is.)
-        #
-        # For now, it's simplest to just create a unicode cmap for every font.
-        # It offends my inner purist, but it'll do.
-
-        map = @subsets[subset].to_unicode_map
-
-        ranges = [[]]
-        lines = map.keys.sort.inject("") do |s, code|
-          ranges << [] if ranges.last.length >= 100
-          unicode = map[code]
-          ranges.last << "<%02x><%04x>" % [code, unicode]
-        end
-
-        range_blocks = ranges.inject("") do |s, list|
-          s << "%d beginbfchar\n%s\nendbfchar\n" % [list.length, list.join("\n")]
-        end
-
-        to_unicode_cmap = UNICODE_CMAP_TEMPLATE % range_blocks.strip
-
-        cmap = @document.ref({})
-        cmap << to_unicode_cmap
-        cmap.compress_stream
-
-        reference.data.update(:Subtype => :TrueType,
-                              :BaseFont => basename,
-                              :FontDescriptor => descriptor,
-                              :FirstChar => 32,
-                              :LastChar => 255,
-                              :Widths => @document.ref(widths),
-                              :ToUnicode => cmap)
-      end
-
-      UNICODE_CMAP_TEMPLATE = <<-STR.strip.gsub(/^\s*/, "")
-        /CIDInit /ProcSet findresource begin
-        12 dict begin
-        begincmap
-        /CIDSystemInfo <<
-          /Registry (Adobe)
-          /Ordering (UCS)
-          /Supplement 0
-        >> def
-        /CMapName /Adobe-Identity-UCS def
-        /CMapType 2 def
-        1 begincodespacerange
-        <00><ff>
-        endcodespacerange
-        %s
-        endcmap
-        CMapName currentdict /CMap defineresource pop
-        end
-        end
-      STR
-
-      def read_ttf_file
-        TTFunk::File.open(@name)
-      end
-    end
-  end
-end

data/lib/prawn/graphics.rb

@@ -1,257 +0,0 @@
-# encoding: utf-8
-
-# graphics.rb : Implements PDF drawing primitives
-#
-# Copyright April 2008, Gregory Brown.  All Rights Reserved.
-#
-# This is free software. Please see the LICENSE and COPYING files for details.
-
-require "enumerator"
-require "prawn/graphics/color"
-
-module Prawn
-
-  # Implements the drawing facilities for Prawn::Document.
-  # Use this to draw the most beautiful imaginable things.
-  #
-  # This file lifts and modifies several of PDF::Writer's graphics functions
-  # ruby-pdf.rubyforge.org
-  #
-  module Graphics
-
-    include Color
-
-    #######################################################################
-    # Low level drawing operations must translate to absolute coords!     #
-    #######################################################################
-
-    # Moves the drawing position to a given point.  The point can be
-    # specified as a tuple or a flattened argument list
-    #
-    #   pdf.move_to [100,50]
-    #   pdf.move_to(100,50)
-    #
-    def move_to(*point)
-      x,y = translate(point)
-      add_content("%.3f %.3f m" % [ x, y ])
-    end
-
-    # Draws a line from the current drawing position to the specified point.
-    # The destination may be described as a tuple or a flattened list:
-    #
-    #   pdf.line_to [50,50]
-    #   pdf.line_to(50,50)
-    #
-    def line_to(*point)
-      x,y = translate(point)
-      add_content("%.3f %.3f l" % [ x, y ])
-    end
-
-    # Draws a Bezier curve from the current drawing position to the
-    # specified point, bounded by two additional points.
-    #
-    #   pdf.curve_to [100,100], :bounds => [[90,90],[75,75]]
-    #
-    def curve_to(dest,options={})
-       options[:bounds] or raise Prawn::Errors::InvalidGraphicsPath,
-         "Bounding points for bezier curve must be specified "+
-         "as :bounds => [[x1,y1],[x2,y2]]"
-
-       curve_points = (options[:bounds] << dest).map { |e| translate(e) }
-       add_content("%.3f %.3f %.3f %.3f %.3f %.3f c" %
-                     curve_points.flatten )
-    end
-
-    # Draws a rectangle given <tt>point</tt>, <tt>width</tt> and
-    # <tt>height</tt>.  The rectangle is bounded by its upper-left corner.
-    #
-    #    pdf.rectangle [300,300], 100, 200
-    #
-    def rectangle(point,width,height)
-      x,y = translate(point)
-      add_content("%.3f %.3f %.3f %.3f re" % [ x, y - height, width, height ])
-    end
-
-    ###########################################################
-    #  Higher level functions: May use relative coords        #
-    ###########################################################
-
-    # Sets line thickness to the <tt>width</tt> specified.
-    #
-    def line_width=(width)
-      @line_width = width
-      add_content("#{width} w")
-    end
-
-    # When called without an argument, returns the current line thickness.
-    # When called with an argument, sets the line thickness to the specified
-    # value (in PDF points)
-    #
-    #   pdf.line_width #=> 1
-    #   pdf.line_width(5)
-    #   pdf.line_width #=> 5
-    #
-    def line_width(width=nil)
-      if width
-        self.line_width = width
-      else
-        @line_width || 1
-      end
-    end
-
-    # Draws a line from one point to another. Points may be specified as
-    # tuples or flattened argument list:
-    #
-    #   pdf.line [100,100], [200,250]
-    #   pdf.line(100,100,200,250)
-    #
-    def line(*points)
-      x0,y0,x1,y1 = points.flatten
-      move_to(x0, y0)
-      line_to(x1, y1)
-    end
-
-    # Draws a horizontal line from <tt>x1</tt> to <tt>x2</tt> at the
-    # current <tt>y</tt> position, or the position specified by the :at option.
-    #
-    #  # draw a line from [25, 75] to [100, 75]
-    #  horizontal_line 25, 100, :at => 75  
-    #
-    def horizontal_line(x1,x2,options={})
-      if options[:at]
-        y1 = options[:at]
-      else
-        y1 = y - bounds.absolute_bottom
-      end
-      
-      line(x1,y1,x2,y1)
-    end
-
-    # Draws a horizontal line from the left border to the right border of the
-    # bounding box at the current <tt>y</tt> position.
-    #
-    def horizontal_rule
-      horizontal_line(bounds.left, bounds.right)
-    end
-
-    # Draws a vertical line at the x cooordinate given by :at from y1 to y2.
-    #
-    #   # draw a line from [25, 100] to [25, 300]
-    #   vertical_line 100, 300, :at => 25
-    #
-    def vertical_line(y1,y2,params)
-      line(params[:at],y1,params[:at],y2)
-    end
-
-    # Draws a Bezier curve between two points, bounded by two additional
-    # points
-    #
-    #    pdf.curve [50,100], [100,100], :bounds => [[90,90],[75,75]]
-    #
-    def curve(origin,dest, options={})
-      move_to(*origin)
-      curve_to(dest,options)
-    end
-
-    # This constant is used to approximate a symmetrical arc using a cubic
-    # Bezier curve.
-    #
-    KAPPA = 4.0 * ((Math.sqrt(2) - 1.0) / 3.0)
-
-    # Draws a circle of radius <tt>:radius</tt> with the centre-point at <tt>point</tt>
-    # as a complete subpath. The drawing point will be moved to the
-    # centre-point upon completion of the drawing the circle.
-    #
-    #    pdf.circle_at [100,100], :radius => 25
-    #
-    def circle_at(point, options)
-      x,y = point
-      ellipse_at [x, y], options[:radius]
-    end
-
-    # Draws an ellipse of +x+ radius <tt>r1</tt> and +y+ radius <tt>r2</tt>
-    # with the centre-point at <tt>point</tt> as a complete subpath. The
-    # drawing point will be moved to the centre-point upon completion of the
-    # drawing the ellipse.
-    #
-    #    # draws an ellipse with x-radius 25 and y-radius 50
-    #    pdf.ellipse_at [100,100], 25, 50
-    #
-    def ellipse_at(point, r1, r2 = r1)
-      x, y = point
-      l1 = r1 * KAPPA
-      l2 = r2 * KAPPA
-
-      move_to(x + r1, y)
-
-      # Upper right hand corner
-      curve_to [x,  y + r2],
-        :bounds => [[x + r1, y + l1], [x + l2, y + r2]]
-
-      # Upper left hand corner
-      curve_to [x - r1, y],
-        :bounds => [[x - l2, y + r2], [x - r1, y + l1]]
-
-      # Lower left hand corner
-      curve_to [x, y - r2],
-        :bounds => [[x - r1, y - l1], [x - l2, y - r2]]
-
-      # Lower right hand corner
-      curve_to [x + r1, y],
-        :bounds => [[x + l2, y - r2], [x + r1, y - l1]]
-
-      move_to(x, y)
-    end
-
-    # Draws a polygon from the specified points.
-    #
-    #    # draws a snazzy triangle
-    #    pdf.polygon [100,100], [100,200], [200,200]
-    #
-    def polygon(*points)
-      move_to points[0]
-      (points << points[0]).each_cons(2) do |p1,p2|
-        line_to(*p2)
-      end
-    end
-
-    # Strokes and closes the current path. See Graphic::Color for color details
-    #
-    def stroke
-      yield if block_given?
-      add_content "S"
-    end
-    
-    # Draws and strokes a rectangle represented by the current bounding box
-    #
-    def stroke_bounds
-      stroke_rectangle bounds.top_left, bounds.width, bounds.height
-    end
-
-    # Fills and closes the current path. See Graphic::Color for color details
-    #
-    def fill
-      yield if block_given?
-      add_content "f"
-    end
-
-    # Fills, strokes, and closes the current path. See Graphic::Color for color details
-    #
-    def fill_and_stroke
-      yield if block_given?
-      add_content "b"
-    end
-
-    private
-
-    def translate(*point)
-      x,y = point.flatten
-      [@bounding_box.absolute_left + x, @bounding_box.absolute_bottom + y]
-    end
-
-    def translate!(point)
-      point.replace(translate(point))
-    end
-
-  end
-end