rbpdf 1.21.3 → 1.21.4

data/lib/rbpdf.rb

@@ -1,4 +1,5 @@
 # coding: ASCII-8BIT
+# frozen_string_literal: true
 #============================================================+
 # File name   : rbpdf.rb
 # Begin       : 2002-08-03
@@ -59,6 +60,12 @@ rescue LoadError
   # MiniMagick is not available
 end
 
+begin
+  require 'marcel' unless Object.const_defined?(:Marcel)
+rescue LoadError
+  # Marcel is not available
+end
+
 unless Object.const_defined?(:MiniMagick)
   begin
     # RMagick 2.14.0
@@ -336,7 +343,7 @@ class RBPDF
     @outlines ||= []
 
     # --- javascript and form ---
-    @javascript ||= ''
+    @javascript ||= +''
     @js_objects ||= {}
     @js_start_obj_id ||= 300000
     @js_obj_id ||= 300000
@@ -448,7 +455,7 @@ class RBPDF
     if @diskcache
       @buffer ||= nil
     else
-      @buffer ||= ''
+      @buffer ||= +''
     end
     @tmp_buffer = nil
     @pages ||= []
@@ -530,18 +537,9 @@ class RBPDF
     @href ||= {}
     @fontlist ||= []
     getFontsList()
-    @fgcolor = ActiveSupport::OrderedHash.new
-    @fgcolor['R'] = 0
-    @fgcolor['G'] = 0
-    @fgcolor['B'] = 0
-    @strokecolor = ActiveSupport::OrderedHash.new
-    @strokecolor['R'] = 0
-    @strokecolor['G'] = 0
-    @strokecolor['B'] = 0
-    @bgcolor = ActiveSupport::OrderedHash.new
-    @bgcolor['R'] = 255
-    @bgcolor['G'] = 255
-    @bgcolor['B'] = 255
+    @fgcolor = [0, 0, 0]
+    @strokecolor = [0, 0, 0]
+    @bgcolor = [255, 255, 255]
     @extgstates ||= []
 
     # user's rights
@@ -1457,7 +1455,7 @@ class RBPDF
   #
   # Defines the title of the document.
   # [@param string :title] The title.
-  # [@access public$
+  # [@access public]
   # [@since 1.2]
   # [@see] SetAuthor(), SetCreator(), SetKeywords(), SetSubject()
   #
@@ -2300,20 +2298,15 @@ class RBPDF
     if (col2 == -1) and (col3 == -1) and (col4 == -1)
       # Grey scale
       @draw_color = sprintf('%.3f G', col1 / 255.0)
-      @strokecolor['G'] = col1
+      @strokecolor = [col1]
     elsif col4 == -1
       # RGB
       @draw_color = sprintf('%.3f %.3f %.3f RG', col1 / 255.0, col2 / 255.0, col3 / 255.0)
-      @strokecolor['R'] = col1
-      @strokecolor['G'] = col2
-      @strokecolor['B'] = col3
+      @strokecolor = [col1, col2, col3]
     else
       # CMYK
       @draw_color = sprintf('%.3f %.3f %.3f %.3f K', col1 / 100.0, col2 / 100.0, col3 / 100.0, col4 / 100.0)
-      @strokecolor['C'] = col1
-      @strokecolor['M'] = col2
-      @strokecolor['Y'] = col3
-      @strokecolor['K'] = col4
+      @strokecolor = [col1, col2, col3, col4]
     end
     if (@page>0)
       out(@draw_color + ' ')
@@ -2373,20 +2366,15 @@ class RBPDF
     if (col2 == -1) and (col3 == -1) and (col4 == -1)
       # Grey scale
       @fill_color = sprintf('%.3f g', col1 / 255.0)
-      @bgcolor['G'] = col1
+      @bgcolor = [col1]
     elsif col4 == -1
       # RGB
       @fill_color = sprintf('%.3f %.3f %.3f rg', col1 / 255.0, col2 / 255.0, col3 / 255.0)
-      @bgcolor['R'] = col1
-      @bgcolor['G'] = col2
-      @bgcolor['B'] = col3
+      @bgcolor = [col1, col2, col3]
     else
       # CMYK
       @fill_color = sprintf('%.3f %.3f %.3f %.3f k', col1 / 100.0, col2 / 100.0, col3 / 100.0, col4 / 100.0)
-      @bgcolor['C'] = col1
-      @bgcolor['M'] = col2
-      @bgcolor['Y'] = col3
-      @bgcolor['K'] = col4
+      @bgcolor = [col1, col2, col3, col4]
     end
 
     @color_flag = (@fill_color != @text_color)
@@ -2463,20 +2451,16 @@ class RBPDF
     if (col2 == -1) and (col3 == -1) and (col4 == -1)
       # Grey scale
       @text_color = sprintf('%.3f g', col1 / 255.0)
-      @fgcolor['G'] = col1
+      @fgcolor = [col1]
     elsif col4 == -1
       # RGB
       @text_color = sprintf('%.3f %.3f %.3f rg', col1 / 255.0, col2 / 255.0, col3 / 255.0)
-      @fgcolor['R'] = col1
-      @fgcolor['G'] = col2
-      @fgcolor['B'] = col3
+      @fgcolor = [col1, col2, col3]
+
     else
       # CMYK
       @text_color = sprintf('%.3f %.3f %.3f %.3f k', col1 / 100.0, col2 / 100.0, col3 / 100.0, col4 / 100.0)
-      @fgcolor['C'] = col1
-      @fgcolor['M'] = col2
-      @fgcolor['Y'] = col3
-      @fgcolor['K'] = col4
+      @fgcolor = [col1, col2, col3, col4]
     end
     @color_flag = (@fill_color != @text_color)
   end
@@ -2668,7 +2652,7 @@ class RBPDF
     end
 
     tempstyle = style.upcase
-    style = ''
+    style = +''
     # underline
     if tempstyle.index('U') != nil
       @underline = true
@@ -3469,8 +3453,8 @@ class RBPDF
   # [@see] Cell()
   #
   def getCellCode(w, h=0, txt='', border=0, ln=0, align='', fill=0, link=nil, stretch=0, ignore_min_height=false, calign='T', valign='M')
-    txt = '' if txt.nil?
-    rs = "" # string to be returned
+    txt = +'' if txt.nil?
+    rs = +"" # string to be returned
     txt = removeSHY(txt)
     if !ignore_min_height
       min_cell_height = @font_size * @cell_height_ratio
@@ -3552,7 +3536,7 @@ class RBPDF
         w = @w - @r_margin - x
       end
     end
-    s = '';
+    s = +'';
     # fill and borders
     if (fill == 1) or (border.to_i == 1)
       if (fill == 1)
@@ -4088,7 +4072,7 @@ class RBPDF
   #   * T: top
   #   * R: right
   #   * B: bottom
-  # [@param string multicell position: 'start', 'middle', 'end'
+  # [@param string multicell :position] 'start', 'middle', 'end'
   # [@return mixed] border mode
   # [@access protected]
   # [@since 4.4.002 (2008-12-09)]
@@ -4098,7 +4082,7 @@ class RBPDF
       return 1
     end
     return 0 if border == 0
-    cborder = ''
+    cborder = +''
     case position
     when 'start'
       if border == 1
@@ -4693,7 +4677,7 @@ class RBPDF
   # [@access public]
   #
   def UTF8ArrSubString(strarr, start=0, last=strarr.size)
-    string = ""
+    string = +""
     start.upto(last - 1) do |i|
       string << unichr(strarr[i])
     end
@@ -4711,7 +4695,7 @@ class RBPDF
   # [@since 4.5.037 (2009-04-07)]
   #
   def UniArrSubString(uniarr, start=0, last=uniarr.length)
-    string = ''
+    string = +''
     start.upto(last - 1) do |i|
       string << uniarr[i]
     end
@@ -5163,7 +5147,7 @@ class RBPDF
     end
     bpc=!a['bits'].nil? ? a['bits'] : 8;
     #Read whole file
-    data='';
+    data=+'';
     open(file,'rb') do |f|
       data << f.read()
     end
@@ -5276,9 +5260,9 @@ class RBPDF
     f.read(4)
     parms='/DecodeParms <</Predictor 15 /Colors ' + (ct == 2 ? 3 : 1).to_s + ' /BitsPerComponent ' + bpc.to_s + ' /Columns ' + w.to_s + '>>'
     # Scan chunks looking for palette, transparency and image data
-    pal = ''
-    trns = ''
-    data = ''
+    pal = +''
+    trns = +''
+    data = +''
     begin
       n = freadint(f)
       type = f.read(4)
@@ -5711,7 +5695,7 @@ class RBPDF
     self.instance_variables.each { |val|
       if destroyall or ((val != '@internal_encoding') and (val != '@state') and (val != '@bufferlen') and (val != '@buffer') and (val != '@diskcache') and (val != '@sign') and (val != '@signature_data') and (val != '@signature_max_length') and (val != '@byterange_string'))
         if (!preserve_objcopy or (val.to_s != '@objcopy')) and !val.nil?
-          eval("#{val} = nil")
+          instance_variable_set(val, nil)
         end
       end
     }
@@ -5873,7 +5857,7 @@ protected
       temppage = temppage.gsub(@epsmarker, '')
       #Page
       @page_obj_id[n] = newobj()
-      out = '<<'
+      out = +'<<'
       out << ' /Type /Page'
       out << ' /Parent 1 0 R'
       out << ' /LastModified ' + datestring()
@@ -5963,7 +5947,7 @@ protected
     end
     #Pages root
     @offsets[1]=@bufferlen
-    out = '1 0 obj << /Type /Pages  /Kids ['
+    out = +'1 0 obj << /Type /Pages  /Kids ['
     @page_obj_id.each { |page_obj|
       out << ' ' + page_obj.to_s + ' 0 R' unless page_obj.nil?
     }
@@ -5993,9 +5977,9 @@ protected
   #
   def getannotsrefs(n)
     unless @page_annots[n] or (@sign and @signature_data['cert_type'])
-      return ''
+      return +''
     end
-    out = ' /Annots ['
+    out = +' /Annots ['
     if @page_annots[n]
       num_annots = @page_annots[n].length
       0.upto(num_annots - 1) do |i|
@@ -6033,7 +6017,7 @@ protected
         @page_annots[n].each_with_index { |pl, key|
           # create annotation object for grouping radiobuttons
           if @radiobutton_groups[n] and @radiobutton_groups[n][pl['txt']] and @radiobutton_groups[n][pl['txt']].is_a?(Array)
-            annots = '<<'
+            annots = +'<<'
             annots << ' /Type /Annot'
             annots << ' /Subtype /Widget'
             annots << ' /T ' + dataannobjstring(pl['txt'])
@@ -6069,7 +6053,7 @@ protected
           d = pl['h'] * @k
           rect = sprintf('%.2f %.2f %.2f %.2f', a, b, a + c, b + d)
           # create new annotation object
-          annots = '<</Type /Annot'
+          annots = +'<</Type /Annot'
           annots << ' /Subtype /' + pl['opt']['subtype']
           annots << ' /Rect [' + rect + ']'
           ft = ['Btn', 'Tx', 'Ch', 'Sig']
@@ -6860,7 +6844,7 @@ protected
     subsetglyphs = subsetglyphs_tmp
 
     # build new glyf table with only used glyphs
-    glyf = ''
+    glyf = +''
     glyfSize = 0
     # create new empty indexToLoc table
     newIndexToLoc = Array.new(indexToLoc.length, 0)
@@ -6876,7 +6860,7 @@ protected
       end
     }
     # build new loca table
-    loca = ''
+    loca = +''
     if short_offset
       newIndexToLoc.each {|offset|
         loca << [offset / 2].pack('n')
@@ -6938,7 +6922,7 @@ protected
     table['glyf']['offset'] = offset
     table['glyf']['checkSum'] = getTTFtableChecksum(table['glyf']['data'], table['glyf']['length'])
     # rebuild font
-    font = ''
+    font = +''
     font << [0x10000].pack('N') # sfnt version
     numTables = table.length
     font << [numTables].pack('n') # numTables
@@ -7079,7 +7063,7 @@ protected
       end
     }
     # output data
-    w = ''
+    w = +''
     range.each_with_index {|ws, k|
       if ws and ws.uniq.length == 1
         # interval mode is more compact
@@ -7154,7 +7138,7 @@ protected
         end
         newobj()
         @font_files[file]['n'] = @n
-        out = '<</Length '+ font.length.to_s
+        out = +'<</Length '+ font.length.to_s
         if compressed
           out << ' /Filter /FlateDecode'
         end
@@ -7177,7 +7161,7 @@ protected
       if (type=='core')
         # standard core font
         obj_id = newobj()
-        out = '<</Type /Font'
+        out = +'<</Type /Font'
         out << ' /Subtype /Type1'
         out << ' /BaseFont /' + name
         out << ' /Name /F' + font['i'].to_s
@@ -7193,7 +7177,7 @@ protected
       elsif (type=='Type1' || type=='TrueType')
         # additional Type1 or TrueType font
         obj_id = newobj()
-        out = '<</Type /Font'
+        out = +'<</Type /Font'
         out << ' /Subtype /' + type
         out << ' /BaseFont /' + name
         out << ' /Name /F' + font['i'].to_s
@@ -7253,7 +7237,7 @@ protected
   # [@since 1.52.0.TC005 (2005-01-05)]
   #
   def puttruetypeunicode(font)
-    fontname = ''
+    fontname = +''
     if font['subset']
       # change name for font subsetting
       subtag = sprintf('%06u', font['i'])
@@ -7264,7 +7248,7 @@ protected
     # Type0 Font
     # A composite font composed of other fonts, organized hierarchically
     obj_id = newobj()
-    out = '<</Type /Font'
+    out = +'<</Type /Font'
     out << ' /Subtype /Type0'
     out << ' /BaseFont /' + fontname + ''
     out << ' /Name /F' + font['i'].to_s
@@ -7285,7 +7269,7 @@ protected
     # CIDFontType2
     # A CIDFont whose glyph descriptions are based on TrueType font technology
     newobj();
-    out = '<</Type /Font'
+    out = +'<</Type /Font'
     out << ' /Subtype /CIDFontType2'
     out << ' /BaseFont /' + fontname
 
@@ -7306,7 +7290,7 @@ protected
     # Font descriptor
     # A font descriptor describing the CIDFont default metrics other than its glyph widths
     newobj();
-    out = '<</Type /FontDescriptor'
+    out = +'<</Type /FontDescriptor'
     out << ' /FontName /' + fontname
     font['desc'].each do |key, value|
       if value.is_a? Float
@@ -7344,7 +7328,7 @@ protected
         Error('Font file not found: ' + ctgfile)
       end
       size = File.size(fontfile)
-      out = '<</Length ' + size.to_s + ''
+      out = +'<</Length ' + size.to_s + ''
       if (fontfile[-2,2] == '.z') # check file extension
         # Decompresses data encoded using the public-domain
         # zlib/deflate compression method, reproducing the
@@ -7397,7 +7381,7 @@ protected
       longname = name
     end
     obj_id = newobj()
-    out = '<</Type /Font'
+    out = +'<</Type /Font'
     out << ' /Subtype /Type0'
     out << ' /BaseFont /' + longname
     out << ' /Name /F' + font['i'].to_s
@@ -7408,7 +7392,7 @@ protected
     out << ' >> endobj'
     out(out)
     newobj()
-    out = '<</Type /Font'
+    out = +'<</Type /Font'
     out << ' /Subtype /CIDFontType0'
     out << ' /BaseFont /' + name
     cidinfo = '/Registry ' + datastring(font['cidinfo']['Registry'])
@@ -7445,7 +7429,7 @@ protected
       info = getImageBuffer(file)
       newobj();
       setImageSubBuffer(file, 'n', @n)
-      out = '<</Type /XObject'
+      out = +'<</Type /XObject'
       out << ' /Subtype /Image'
       out << ' /Width ' + info['w'].to_s
       out << ' /Height ' + info['h'].to_s
@@ -7468,7 +7452,7 @@ protected
         out << ' ' + info['parms']
       end
       if (!info['trns'].nil? and info['trns'].kind_of?(Array))
-        trns='';
+        trns=+'';
         count_info = info['trns'].length
         count_info.times do |i|
           trns << info['trns'][i].to_s + ' ' + info['trns'][i].to_s + ' '
@@ -7501,14 +7485,14 @@ protected
 
   #
   # Output Spot Colors Resources.
-  # [@access protected[
+  # [@access protected]
   # [@since 4.0.024 (2008-09-12)]
   #
   def putspotcolors()
     @spot_colors.each { |name, color|
       newobj()
       @spot_colors[name]['n'] = @n
-      out = '[/Separation /' + name.gsub(' ', '#20')
+      out = +'[/Separation /' + name.gsub(' ', '#20')
       out << ' /DeviceCMYK <<'
       out << ' /Range [0 1 0 1 0 1 0 1] /C0 [0 0 0 0]'
       out << ' ' + sprintf('/C1 [%.4f %.4f %.4f %.4f] ', color['c']/100.0, color['m']/100.0, color['y']/100.0, color['k']/100.0)
@@ -7523,7 +7507,7 @@ protected
   # [@access protected]
   #
   def putresourcedict()
-    out = '2 0 obj'
+    out = +'2 0 obj'
     out << ' << /ProcSet [/PDF /Text /ImageB /ImageC /ImageI]'
     out << ' /Font <<'
     @fontkeys.each do |fontkey|
@@ -7552,23 +7536,28 @@ protected
       end
     }
     out << ' >>'
-=begin
+
     # gradient patterns
     if @gradients and !@gradients.empty?
       out << ' /Pattern <<'
-      @gradients.each_with_index  {|grad, id|
-        out << ' /p' + id + ' ' + grad['pattern'] + ' 0 R'
-      }
+      @gradients.each_with_index do |grad, id|
+        next unless grad
+
+        out << " /p#{id} #{grad['pattern']} 0 R"
+      end
       out << ' >>'
     end
     # gradient shadings
     if @gradients and !@gradients.empty?
       out << ' /Shading <<'
-      @gradients.each_with_index  {|grad, id|
-        out << ' /Sh' + id + ' ' + grad['id'] + ' 0 R'
-      }
+      @gradients.each_with_index do |grad, id|
+        next unless grad
+
+        out << " /Sh#{id} #{grad['id']} 0 R"
+      end
       out << ' >>'
     end
+=begin
     # spot colors
     if @spot_colors and !@spot_colors.empty?
       out << ' /ColorSpace <<'
@@ -7590,13 +7579,14 @@ protected
     mapLinksToHtmlAnchors()
     putextgstates()
     putocg()
-    putfonts();
-    putimages();
+    putfonts()
+    putimages()
     putspotcolors()
+    putshaders()
 
     #Resource dictionary
     @offsets[2]=@bufferlen
-    putresourcedict();
+    putresourcedict()
     putbookmarks()
     putEmbeddedFiles()
     putannotsobjs()
@@ -7613,7 +7603,7 @@ protected
   #
   def putinfo()
     newobj()
-    out = '<<'
+    out = +'<<'
     if !empty_string(@title)
       # The document's title.
       out << ' /Title ' + textstring(@title)
@@ -7657,7 +7647,7 @@ protected
   #
   def putcatalog()
     newobj()
-    out = '<< /Type /Catalog'
+    out = +'<< /Type /Catalog'
     out << ' /Pages 1 0 R'
     if @zoom_mode == 'fullpage'
       out << ' /OpenAction [3 0 R /Fit]'
@@ -7696,7 +7686,7 @@ protected
     # AcroForm
     if !@form_obj_id.empty? || (@sign && @signature_data['cert_type'])
       out << ' /AcroForm<<'
-      objrefs = ''
+      objrefs = +''
       if @sign && @signature_data['cert_type']
           objrefs << "#{@sig_obj_id} 0 R"
       end
@@ -7742,7 +7732,7 @@ protected
   # [@access protected]
   #
   def putviewerpreferences()
-    out = '/ViewerPreferences <<'
+    out = +'/ViewerPreferences <<'
     if @rtl
       out << ' /Direction /R2L'
     else
@@ -7796,7 +7786,7 @@ protected
       end
     end
     if @viewer_preferences['PrintPageRange']
-      print_page_range_num = ''
+      print_page_range_num = +''
       @viewer_preferences['PrintPageRange'].each { |v|
         print_page_range_num << ' ' + (v - 1).to_s + ''
       }
@@ -7815,7 +7805,7 @@ protected
   # [@access protected]
   #
   def puttrailer()
-    out = 'trailer <<'
+    out = +'trailer <<'
     out << ' /Size ' + (@n+1).to_s
     out << ' /Root ' + @n.to_s + ' 0 R'
     out << ' /Info ' + (@n-1).to_s + ' 0 R'
@@ -7926,7 +7916,7 @@ protected
   #
   def beginpage(orientation='', format='')
     @page += 1;
-    setPageBuffer(@page, '')
+    setPageBuffer(@page, +'')
     # initialize array for graphics tranformation positions inside a page buffer
     @state=2;
     if empty_string(orientation)
@@ -8078,7 +8068,6 @@ protected
   # [@access protected]
   #
   def escape(s)
-    # Add \ before \, ( and )
     s.gsub('\\','\\\\\\').gsub('(','\\(').gsub(')','\\)').gsub(13.chr, '\r')
   end
 
@@ -8200,7 +8189,7 @@ protected
   # [@access protected]
   #
   def out(s)
-    s.force_encoding('ASCII-8BIT') if s.respond_to?(:force_encoding)
+    s = (+s).force_encoding('ASCII-8BIT') if s.respond_to?(:force_encoding)
 
     if @tmp_buffer
       @tmp_buffer << "#{s}\n"
@@ -8377,7 +8366,7 @@ protected
     if !@is_unicode
       return str # string is not in unicode
     end
-    outstr = '' # string to be returned
+    outstr = +'' # string to be returned
     unicode = UTF8StringToArray(str) # array containing UTF-8 unicode values
     unicode.each {|char|
       if char < 256
@@ -8461,7 +8450,7 @@ protected
   # [@see] UTF8ToUTF16BE()
   #
   def arrUTF8ToUTF16BE(unicode, setbom=true)
-    outstr = ""; # string to be returned
+    outstr = +""; # string to be returned
     if (setbom)
       outstr << "\xFE\xFF"; # Byte Order Mark (BOM)
     end
@@ -8667,7 +8656,16 @@ public
   # [@return array] RGB color or empty array in case of error.
   # [@access public]
   #
-  def convertHTMLColorToDec(color = "#FFFFFF")
+  def convert_html_color_to_dec_array(color = "#FFFFFF")
+    returncolor = _convert_html_color_to_dec(color)
+    if returncolor.is_a? Hash
+      returncolor.values
+    else
+      returncolor
+    end
+  end
+
+  private def _convert_html_color_to_dec(color = "#FFFFFF")
     color = color.gsub(/[\s]*/, '') # remove extra spaces
     color = color.downcase
     if !(dotpos = color.index('.')).nil?
@@ -8677,7 +8675,6 @@ public
     if color.length == 0
       return []
     end
-    returncolor = ActiveSupport::OrderedHash.new
     #  RGB ARRAY
     if color[0,3] == 'rgb'
       codes = color.sub(/^rgb\(/, '')
@@ -8692,6 +8689,7 @@ public
     if color[0,4] == 'cmyk'
       codes = color.sub(/^cmyk\(/, '')
       codes = codes.gsub(')', '')
+      returncolor = codes.split(',', 4)
       returncolor[0] = returncolor[0].to_i
       returncolor[1] = returncolor[1].to_i
       returncolor[2] = returncolor[2].to_i
@@ -8710,6 +8708,7 @@ public
       color_code = color.sub(/^#/, "")
     end
     # RGB VALUE
+    returncolor = {}
     case color_code.length
     when 3
       # three-digit hexadecimal representation
@@ -8729,6 +8728,11 @@ public
     end
     return returncolor
   end
+
+  def convertHTMLColorToDec(color = "#FFFFFF")
+    warn("#{__callee__} is deprecated, use convert_html_color_to_dec_array instead.", uplevel: 1)
+    _convert_html_color_to_dec(color)
+  end
   alias_method :convert_html_color_to_dec, :convertHTMLColorToDec
 
   #
@@ -8853,7 +8857,7 @@ public
     tm[5] = y - tm[0] * y - tm[1] * x
 
     # generate the transformation matrix
-    Transform(tm)
+    transform(tm)
   end
   alias_method :rotate, :Rotate
 
@@ -8864,7 +8868,7 @@ public
   # [@since 2.1.000 (2008-01-07)]
   # [@see] StartTransform(), StopTransform()
   #
-  def Transform(tm)
+  def transform(tm)
     out(sprintf('%.3f %.3f %.3f %.3f %.3f %.3f cm', tm[0], tm[1], tm[2], tm[3], tm[4], tm[5]))
     # add tranformation matrix
     @transfmatrix[@transfmatrix_key].push 'a' => tm[0], 'b' => tm[1], 'c' => tm[2], 'd' => tm[3], 'e' => tm[4], 'f' => tm[5]
@@ -8873,7 +8877,7 @@ public
       @transfmrk[@page] = @pagelen[@page]
     end
   end
-  protected :Transform
+  protected :transform
 
   # END TRANSFORMATIONS SECTION -------------------------
 
@@ -8950,6 +8954,7 @@ public
     end
     if !style['dash'].nil?
       dash = style['dash']
+      phase = style['phase'].to_i
       dash_string = ''
       if dash != 0 and dash != ''
         if dash.is_a?(String) && dash =~ /^.+,/
@@ -8957,15 +8962,17 @@ public
         else
           tab = [dash]
         end
-        dash_string = ''
+        dash_string = +''
         tab.each_with_index { |v, i|
           if i != 0
             dash_string << ' '
           end
           dash_string << sprintf("%.2f", v.to_f)
         }
+      else
+        phase = 0
       end
-      phase = 0
+
       @linestyle_dash = sprintf("[%s] %.2f d", dash_string, phase)
       out(@linestyle_dash)
     end
@@ -9069,13 +9076,13 @@ public
   # [@param float :y1] Ordinate of first point
   # [@param float :x2] Abscissa of second point
   # [@param float :y2]] Ordinate of second point
-  # [@param hash :style] Line style. Array like for {@link SetLineStyle SetLineStyle}. Default value: default line style (empty array).
+  # [@param hash :style] Line style. Array like for {@link SetLineStyle SetLineStyle}. Default value: default line style (empty Hash).
   # [@access public]
   # [@since 1.0]
   # [@see] SetLineWidth(), SetDrawColor(), SetLineStyle()
   #
-  def Line(x1, y1, x2, y2, style=nil)
-    if style.is_a? Hash
+  def Line(x1, y1, x2, y2, style={})
+    if style.is_a?(Hash) && !style.empty?
       SetLineStyle(style)
     end
     outPoint(x1, y1)
@@ -9340,8 +9347,8 @@ public
   #   * all: Line style of all lines. Array like for {@link SetLineStyle SetLineStyle}.
   #   * 0 to (:np - 1): Line style of each line. Array like for {@link SetLineStyle SetLineStyle}.
   #   If a key is not present or is null, not draws the line. Default value is default line style (empty array).
-  # [@param array :fill_color Fill color. Format: array(GREY) or array(R,G,B) or array(C,M,Y,K). Default value: default color (empty array).
-  # [@param boolean :closed if true the polygon is closes, otherwise will remain open
+  # [@param array :fill_color] Fill color. Format: array(GREY) or array(R,G,B) or array(C,M,Y,K). Default value: default color (empty array).
+  # [@param boolean :closed] if true the polygon is closes, otherwise will remain open
   # [@access public]
   # [@since 4.8.003 (2009-09-15)]
   #
@@ -10364,7 +10371,7 @@ public
 
   #
   # Create a bookmark PDF string.
-  # [@access private]
+  # [@access protected]
   # [@author] Olivier Plathey, Nicola Asuni
   # [@since 2.1.002 (2008-02-12)]
   #
@@ -10472,7 +10479,7 @@ public
       @javascript = "#{jsa}\n#{@javascript}\n#{jsb}"
     end
     @n_js = newobj()
-    out = ' << /Names ['
+    out = +' << /Names ['
     unless @javascript.empty?
       out << " (EmbeddedJS) #{@n + 1} 0 R"
     end
@@ -10486,7 +10493,7 @@ public
     # default Javascript object
     unless @javascript.empty?
       newobj()
-      out = '<< /S /JavaScript'
+      out = +'<< /S /JavaScript'
       out << " /JS #{textstring(@javascript)}"
       out << ' >> endobj'
       out(out)
@@ -10500,11 +10507,12 @@ public
       }
     end
   end
+  protected :putjavascript
 
   #
   # Convert color to javascript color.
   # [@param string :color] color name or #RRGGBB
-  # [@access protected}
+  # [@access protected]
   # [@author Denis Van Nuffelen, Nicola Asuni]
   # [@since 2.1.002 (2008-02-12)]
   #
@@ -10641,7 +10649,7 @@ public
       if prop['fillColor'].is_a? Array
         opt['mk']['bg'] = prop['fillColor']
       else
-        opt['mk']['bg'] = convertHTMLColorToDec(prop['fillColor'])
+        opt['mk']['bg'] = convert_html_color_to_dec_array(prop['fillColor'])
       end
     end
     # strokeColor: Specifies the stroke color for a field that is used to stroke the rectangle of the field with a line as large as the line width.
@@ -10649,7 +10657,7 @@ public
       if prop['strokeColor'].is_a? Array
         opt['mk']['bc'] = prop['strokeColor']
       else
-        opt['mk']['bc'] = convertHTMLColorToDec(prop['strokeColor'])
+        opt['mk']['bc'] = convert_html_color_to_dec_array(prop['strokeColor'])
       end
     end
     # rotation: The rotation of a widget in counterclockwise increments.
@@ -10821,14 +10829,14 @@ public
 
     if opt['v'] && !empty_string(opt['v'])
       # set Appearances
-      popt['ap']['n'] = "/Tx BMC q #{fontstyle} "
+      popt['ap']['n'] = +"/Tx BMC q #{fontstyle} "
       gvars = getGraphicVars()
       @h = h
       @w = w
       @t_margin = 0
       @c_margin = 0.2
 
-      @tmp_buffer = ''
+      @tmp_buffer = +''
       multi_cell(w, h, opt['v'], 0, '', 0, 0, 0.2, 0, true, 0, false, true, 0)
       popt['ap']['n'] << @tmp_buffer
       @tmp_buffer = nil
@@ -10989,7 +10997,7 @@ public
 
     if js
       addfield('listbox', name, x, y, w, h, prop)
-      s = ''
+      s = +''
       values.each {|v|
         if v.is_a?(Array)
           s << "['#{v[0]}','#{v[1]}'],"
@@ -11010,7 +11018,7 @@ public
     unless @annotation_fonts.include? fontkey
       @annotation_fonts[font] = fontkey
     end
-    s = ''
+    s = +''
     values.each {|v|
       if v.is_a?(Array)
         s << "#{v[1]}\n"
@@ -11023,14 +11031,14 @@ public
     popt['da'] = fontstyle
     popt['ap'] = {}
     # set Appearances
-    popt['ap']['n'] = "/Tx BMC q #{fontstyle} "
+    popt['ap']['n'] = +"/Tx BMC q #{fontstyle} "
     gvars = getGraphicVars()
     @h = h
     @w = w
     @t_margin = 0
     @c_margin = 0.2
 
-    @tmp_buffer = ''
+    @tmp_buffer = +''
     multi_cell(w, h, s, 0, '', 0, 0, 0.2, 0, true, 0, false, true, 0)
     popt['ap']['n'] << @tmp_buffer
     popt['ap']['n'] << 'Q EMC'
@@ -11076,7 +11084,7 @@ public
 
     if js
       addfield('combobox', name, x, y, w, h, prop)
-      s = ''
+      s = +''
       values.each {|v|
         if v.is_a?(Array)
           s << "['#{v[0]}','#{v[1]}'],"
@@ -11099,7 +11107,7 @@ public
       @annotation_fonts[font] = fontkey
     end
 
-    s = ''
+    s = +''
     values.each {|v|
       if v.is_a?(Array)
         s << "#{v[1]}\n"
@@ -11111,14 +11119,14 @@ public
     popt['da'] = fontstyle
     popt['ap'] = {}
     # set Appearances
-    popt['ap']['n'] = "/Tx BMC q #{fontstyle} "
+    popt['ap']['n'] = +"/Tx BMC q #{fontstyle} "
     gvars = getGraphicVars()
     @h = h
     @w = w
     @t_margin = 0
     @c_margin = 0.2
 
-    @tmp_buffer = ''
+    @tmp_buffer = +''
     multi_cell(w, h, s, 0, '', 0, 0, 0.2, 0, true, 0, false, true, 0)
     popt['ap']['n'] << @tmp_buffer
     popt['ap']['n'] << 'Q EMC'
@@ -11262,14 +11270,14 @@ public
     popt['da'] = fontstyle
     popt['ap'] = {}
     # set Appearances
-    popt['ap']['n'] = "/Tx BMC q #{fontstyle} 0.800 g\n"
+    popt['ap']['n'] = +"/Tx BMC q #{fontstyle} 0.800 g\n"
 
     gvars = getGraphicVars()
     @h = h
     @w = w
     @c_margin *= 1.6
 
-    @tmp_buffer = ''
+    @tmp_buffer = +''
     SetLineStyle({'width' => 1.0, 'cap' => 'butt', 'join' => 'miter', 'dash' => 0, 'color' => [231]})
     SetFillColor(204)
     multi_cell(w, h, caption, 1, 'C', 1, 0, 0, 0, true)
@@ -11290,7 +11298,7 @@ public
     unless action.empty?
       if action.is_a?(Hash)
         # form action options as on section 12.7.5 of PDF32000_2008.
-        opt['aa'] = '/D <<'
+        opt['aa'] = +'/D <<'
         bmode = ['SubmitForm', 'ResetForm', 'ImportData']
         action.each {|key, val|
           if (key == 'S') && bmode.include?(val)
@@ -11601,7 +11609,7 @@ public
       newobj()
       @extgstates[i] ||= {}
       @extgstates[i]['n'] = @n
-      out = '<< /Type /ExtGState'
+      out = +'<< /Type /ExtGState'
       if @extgstates[i]['parms']
         @extgstates[i]['parms'].each {|k, v|
           if v.is_a? Float
@@ -11735,6 +11743,434 @@ public
   end
   alias_method :set_viewer_preferences, :setViewerPreferences
 
+  #
+  # Paints a linear colour gradient.
+  # [@param float :x] abscissa of the top left corner of the rectangle.
+  # [@param float :y] ordinate of the top left corner of the rectangle.
+  # [@param float :w] width of the rectangle.
+  # [@param float :h] height of the rectangle.
+  # [@param array :col1] first color (Grayscale, RGB or CMYK components).
+  # [@param array :col2] second color (Grayscale, RGB or CMYK components).
+  # [@param array :coords] array of the form (x1, y1, x2, y2) which defines the gradient vector (see linear_gradient_coords.jpg). The default value is from left to right (x1=0, y1=0, x2=1, y2=0).
+  # [@since 3.1.000 (2008-06-09)]
+  # [@access public]
+  #
+  def LinearGradient(x, y, w, h, col1=[], col2=[], coords=[0,0,1,0])
+    Clip(x, y, w, h)
+    Gradient(2, coords, [{'color' => col1, 'offset' => 0, 'exponent' => 1}, {'color' => col2, 'offset' => 1, 'exponent' => 1}], [], false)
+  end
+  alias_method :linear_gradient, :LinearGradient
+
+  #
+  # Paints a radial colour gradient.
+  # [@param float :x] abscissa of the top left corner of the rectangle.
+  # [@param float :y] ordinate of the top left corner of the rectangle.
+  # [@param float :w] width of the rectangle.
+  # [@param float :h] height of the rectangle.
+  # [@param array :col1] first color (Grayscale, RGB or CMYK components).
+  # [@param array :col2] second color (Grayscale, RGB or CMYK components).
+  # [@param array :coords] array of the form (fx, fy, cx, cy, r) where (fx, fy) is the starting point of the gradient with color1, (cx, cy) is the center of the circle with color2, and r is the radius of the circle (see radial_gradient_coords.jpg). (fx, fy) should be inside the circle, otherwise some areas will not be defined.
+  # [@since 3.1.000 (2008-06-09)]
+  # [@access public]
+  #
+  def RadialGradient(x, y, w, h, col1=[], col2=[], coords=[0.5,0.5,0.5,0.5,1])
+    Clip(x, y, w, h)
+    Gradient(3, coords, [{'color' => col1, 'offset' => 0, 'exponent' => 1}, {'color' => col2, 'offset' => 1, 'exponent' => 1}], [], false)
+  end
+  alias_method :radial_gradient, :RadialGradient
+
+  #
+  # Paints a coons patch mesh.
+  # [@param float :x] abscissa of the top left corner of the rectangle.
+  # [@param float :y] ordinate of the top left corner of the rectangle.
+  # [@param float :w] width of the rectangle.
+  # [@param float :h] height of the rectangle.
+  # [@param array :col1] first color (lower left corner) (RGB components).
+  # [@param array :col2] second color (lower right corner) (RGB components).
+  # [@param array :col3] third color (upper right corner) (RGB components).
+  # [@param array :col4] fourth color (upper left corner) (RGB components).
+  # [@param array :coords] <ul><li>for one patch mesh: array(float x1, float y1, .... float x12, float y12): 12 pairs of coordinates (normally from 0 to 1) which specify the Bezier control points that define the patch. First pair is the lower left edge point, next is its right control point (control point 2). Then the other points are defined in the order: control point 1, edge point, control point 2 going counter-clockwise around the patch. Last (x12, y12) is the first edge point's left control point (control point 1).</li><li>for two or more patch meshes: array[number of patches]: arrays with the following keys for each patch: f: where to put that patch (0 = first patch, 1, 2, 3 = right, top and left of precedent patch - I didn't figure this out completely - just try and error ;-) points: 12 pairs of coordinates of the Bezier control points as above for the first patch, 8 pairs of coordinates for the following patches, ignoring the coordinates already defined by the precedent patch (I also didn't figure out the order of these - also: try and see what's happening) colors: must be 4 colors for the first patch, 2 colors for the following patches</li></ul>
+  # [@param array :coords_min] minimum value used by the coordinates. If a coordinate's value is smaller than this it will be cut to coords_min. default: 0
+  # [@param array :coords_max] maximum value used by the coordinates. If a coordinate's value is greater than this it will be cut to coords_max. default: 1
+  # [@param boolean :antialias] A flag indicating whether to filter the shading function to prevent aliasing artifacts.
+  # [@since 3.1.000 (2008-06-09)]
+  # [@access public]
+  #
+  def CoonsPatchMesh(x, y, w, h, col1=[], col2=[], col3=[], col4=[], coords=[0.00,0.0,0.33,0.00,0.67,0.00,1.00,0.00,1.00,0.33,1.00,0.67,1.00,1.00,0.67,1.00,0.33,1.00,0.00,1.00,0.00,0.67,0.00,0.33], coords_min=0, coords_max=1, antialias=false)
+    Clip(x, y, w, h)
+    n = @gradients.size + 1
+    @gradients[n] = {}
+    @gradients[n]['type'] = 6 #coons patch mesh
+    @gradients[n]['coords'] = []
+    @gradients[n]['antialias'] = antialias
+    @gradients[n]['colors'] = []
+    @gradients[n]['transparency'] = false
+    # check the coords array if it is the simple array or the multi patch array
+    if coords[0].is_a? Hash
+      # multi patch array
+      patch_array = coords
+    else
+      # simple array -> convert to multi patch array
+      if col1[1].nil?
+        col1[1] = col1[2] = col1[0]
+      end
+      if col2[1].nil?
+        col2[1] = col2[2] = col2[0]
+      end
+      if col3[1].nil?
+        col3[1] = col3[2] = col3[0]
+      end
+      if col4[1].nil?
+        col4[1] = col4[2] = col4[0]
+      end
+      patch_array = []
+      patch_array[0] = {}
+      patch_array[0]['f'] = 0
+      patch_array[0]['points'] = coords
+      patch_array[0]['colors'] = []
+      patch_array[0]['colors'][0] = {}
+      patch_array[0]['colors'][0]['r'] = col1[0]
+      patch_array[0]['colors'][0]['g'] = col1[1]
+      patch_array[0]['colors'][0]['b'] = col1[2]
+      patch_array[0]['colors'][1] = {}
+      patch_array[0]['colors'][1]['r'] = col2[0]
+      patch_array[0]['colors'][1]['g'] = col2[1]
+      patch_array[0]['colors'][1]['b'] = col2[2]
+      patch_array[0]['colors'][2] = {}
+      patch_array[0]['colors'][2]['r'] = col3[0]
+      patch_array[0]['colors'][2]['g'] = col3[1]
+      patch_array[0]['colors'][2]['b'] = col3[2]
+      patch_array[0]['colors'][3] = {}
+      patch_array[0]['colors'][3]['r'] = col4[0]
+      patch_array[0]['colors'][3]['g'] = col4[1]
+      patch_array[0]['colors'][3]['b'] = col4[2]
+    end
+    bpcd = 65535 #16 bits per coordinate
+    # build the data stream
+    @gradients[n]['stream'] = +''
+    count_patch = patch_array.size
+    count_patch.times do |i|
+      @gradients[n]['stream'] << (patch_array[i]['f']).chr # start with the edge flag as 8 bit
+      count_points = patch_array[i]['points'].size
+      count_points.times do |j|
+        # each point as 16 bit
+        patch_array[i]['points'][j] = ((patch_array[i]['points'][j] - coords_min) / (coords_max - coords_min)) * bpcd
+        if patch_array[i]['points'][j] < 0
+          patch_array[i]['points'][j] = 0
+        end
+        if patch_array[i]['points'][j] > bpcd
+          patch_array[i]['points'][j] = bpcd
+        end
+        @gradients[n]['stream'] << ((patch_array[i]['points'][j] / 256.0).floor).chr
+        @gradients[n]['stream'] << ((patch_array[i]['points'][j] % 256.0).floor).chr
+      end
+      count_cols = patch_array[i]['colors'].size
+      count_cols.times do |j|
+        # each color component as 8 bit
+        @gradients[n]['stream'] << (patch_array[i]['colors'][j]['r']).chr
+        @gradients[n]['stream'] << (patch_array[i]['colors'][j]['g']).chr
+        @gradients[n]['stream'] << (patch_array[i]['colors'][j]['b']).chr
+      end
+    end
+    # paint the gradient
+    out("/Sh#{n} sh")
+    # restore previous Graphic State
+    out('Q')
+  end
+  alias_method :coons_patch_mesh, :CoonsPatchMesh
+
+  #
+  # Set a rectangular clipping area.
+  # [@param float :x] abscissa of the top left corner of the rectangle (or top right corner for RTL mode).
+  # [@param float :y] ordinate of the top left corner of the rectangle.
+  # [@param float :w] width of the rectangle.
+  # [@param float :h] height of the rectangle.
+  # [@since 3.1.000 (2008-06-09)]
+  # [@access protected]
+  #
+  def Clip(x, y, w, h)
+    x = @w - x - w if @rtl
+
+    # save current Graphic State
+    s = +'q'
+    # set clipping area
+    s << sprintf(' %.2f %.2f %.2f %.2f re W n', x * @k, (@h - y) * @k, w * @k, -h * @k)
+    # set up transformation matrix for gradient
+    s << sprintf(' %.3f 0 0 %.3f %.3f %.3f cm', w * @k, h * @k, x * @k, (@h - (y + h)) * @k)
+    out(s)
+  end
+  protected :Clip
+
+	#
+  # Output gradient.
+  # [@param int :type] type of gradient (1 Function-based shading; 2 Axial shading; 3 Radial shading; 4 Free-form Gouraud-shaded triangle mesh; 5 Lattice-form Gouraud-shaded triangle mesh; 6 Coons patch mesh; 7 Tensor-product patch mesh). (Not all types are currently supported)
+  # [@param array :coords] array of coordinates.
+  # [@param array :stops] array gradient color components: color = array of GRAY, RGB or CMYK color components; offset = (0 to 1) represents a location along the gradient vector; exponent = exponent of the exponential interpolation function (default = 1).
+  # [@param array :background] An array of colour components appropriate to the colour space, specifying a single background colour value.
+  # [@param boolean :antialias] A flag indicating whether to filter the shading function to prevent aliasing artifacts.
+  # [@since 3.1.000 (2008-06-09)]
+  # [@access public]
+  #
+  def Gradient(type, coords, stops, background=[], antialias=false)
+    n = @gradients.size + 1
+    @gradients[n] = {}
+    @gradients[n]['type'] = type
+    @gradients[n]['coords'] = coords
+    @gradients[n]['antialias'] = antialias
+    @gradients[n]['colors'] = []
+    @gradients[n]['transparency'] = false
+    # color space
+    numcolspace = stops[0]['color'].size
+    bcolor = background
+    case numcolspace
+    when 4 # CMYK
+      @gradients[n]['colspace'] = 'DeviceCMYK'
+      unless background.empty?
+        @gradients[n]['background'] = sprintf('%.3f %.3f %.3f %.3f', bcolor[0]/100.0, bcolor[1]/100.0, bcolor[2]/100.0, bcolor[3]/100.0)
+      end
+    when 3 # RGB
+      @gradients[n]['colspace'] = 'DeviceRGB'
+      unless background.empty?
+        @gradients[n]['background'] = sprintf('%.3f %.3f %.3f', bcolor[0]/255.0, bcolor[1]/255.0, bcolor[2]/255.0)
+      end
+    when 1 # Gray scale
+      @gradients[n]['colspace'] = 'DeviceGray'
+      unless background.empty?
+        @gradients[n]['background'] = sprintf('%.3f', bcolor[0]/255.0)
+      end
+    end
+    num_stops = stops.size
+    last_stop_id = num_stops - 1
+    stops.each_with_index do |stop, key|
+      @gradients[n]['colors'][key] = {}
+      # offset represents a location along the gradient vector
+      if stop['offset']
+        @gradients[n]['colors'][key]['offset'] = stop['offset']
+      else
+        if key == 0
+          @gradients[n]['colors'][key]['offset'] = 0
+        elsif key == last_stop_id
+          @gradients[n]['colors'][key]['offset'] = 1
+        else
+          offsetstep = (1 - @gradients[n]['colors'][key - 1]['offset']) / (num_stops - key)
+          @gradients[n]['colors'][key]['offset'] = @gradients[n]['colors'][key - 1]['offset'] + offsetstep
+        end
+      end
+      if stop['opacity']
+        @gradients[n]['colors'][key]['opacity'] = stop['opacity']
+        if stop['opacity'] < 1
+          @gradients[n]['transparency'] = true
+        end
+      else
+        @gradients[n]['colors'][key]['opacity'] = 1
+      end
+      # exponent for the exponential interpolation function
+      if stop['exponent']
+        @gradients[n]['colors'][key]['exponent'] = stop['exponent']
+      else
+        @gradients[n]['colors'][key]['exponent'] = 1
+      end
+      # set colors
+      color = stop['color']
+      case numcolspace
+      when 4 # CMYK
+        @gradients[n]['colors'][key]['color'] = sprintf('%.3f %.3f %.3f %.3f', color[0]/100.0, color[1]/100.0, color[2]/100.0, color[3]/100.0)
+      when 3 # RGB
+        @gradients[n]['colors'][key]['color'] = sprintf('%.3f %.3f %.3f', color[0]/255.0, color[1]/255.0, color[2]/255.0)
+      when 1 # Gray scale
+        @gradients[n]['colors'][key]['color'] = sprintf('%.3f', color[0]/255.0)
+      end
+    end
+    if @gradients[n]['transparency']
+      # paint luminosity gradient
+      out("/TGS#{n} gs")
+    end
+    # paint the gradient
+    out("/Sh#{n} sh")
+    # restore previous Graphic State
+    out('Q')
+  end
+  alias_method :gradient, :Gradient
+
+  #
+  # Output gradient shaders.
+  # [@since 3.1.000 (2008-06-09)]
+  # [@access protected]
+  #
+  def putshaders()
+    idt = @gradients.size #index for transparency gradients
+    @gradients.each_with_index do |grad, id|
+      next unless grad
+
+      if (grad['type'] == 2) || (grad['type'] == 3)
+        newobj()
+        fc = @n
+        out = +'<<'
+        out << ' /FunctionType 3'
+        out << ' /Domain [0 1]'
+        functions = +''
+        bounds = +''
+        encode = +''
+        i = 1
+        num_cols = grad['colors'].size
+        lastcols = num_cols - 1
+        1.upto(num_cols - 1) do |i|
+          functions << "#{fc + i} 0 R "
+          if i < lastcols
+            bounds << sprintf('%.3f ', grad['colors'][i]['offset'])
+          end
+          encode << '0 1 '
+        end
+        out << " /Functions [#{functions.strip}]"
+        out << " /Bounds [#{bounds.strip}]"
+        out << " /Encode [#{encode.strip}]"
+        out << ' >>'
+        out << ' endobj'
+        out(out)
+        1.upto(num_cols - 1) do |i|
+          newobj()
+          out = +'<<'
+          out << ' /FunctionType 2'
+          out << ' /Domain [0 1]'
+          out << " /C0 [#{grad['colors'][i - 1]['color']}]"
+          out << " /C1 [#{grad['colors'][i]['color']}]"
+          out << " /N #{grad['colors'][i]['exponent']}"
+          out << ' >>'
+          out << ' endobj'
+          out(out)
+        end
+        # set transparency fuctions
+        if grad['transparency']
+          newobj()
+          ft = @n
+          out = +'<<'
+          out << ' /FunctionType 3'
+          out << ' /Domain [0 1]'
+          functions = +''
+          i = 1
+          num_cols = grad['colors'].size
+          1.upto(num_cols - 1) do |i|
+            functions << "#{ft + i} 0 R "
+          end
+          out << " /Functions [#{functions.strip}]"
+          out << " /Bounds [#{bounds.strip}]"
+          out << " /Encode [#{encode.strip}]"
+          out << ' >>'
+          out << ' endobj'
+          out(out)
+          1.upto(num_cols - 1) do |i|
+            newobj()
+            out = +'<<'
+            out << ' /FunctionType 2'
+            out << ' /Domain [0 1]'
+            out << " /C0 [#{grad['colors'][(i - 1)]['opacity']}]"
+            out << " /C1 [#{grad['colors'][i]['opacity']}]"
+            out << " /N #{grad['colors'][i]['exponent']}"
+            out << ' >>'
+            out << ' endobj'
+            out(out)
+          end
+        end
+      end
+      # set shading object
+      newobj()
+      out = +"<< /ShadingType #{grad['type']}"
+      if grad['colspace']
+        out << " /ColorSpace /#{grad['colspace']}"
+      else
+        out << ' /ColorSpace /DeviceRGB'
+      end
+      if grad['background'] && !grad['background'].empty?
+        out << " /Background [#{grad['background']}]"
+      end
+      if grad['antialias'] == true
+        out << ' /AntiAlias true'
+      end
+      case grad['type']
+      when 2
+        out << sprintf(' /Coords [%.3f %.3f %.3f %.3f]', grad['coords'][0], grad['coords'][1], grad['coords'][2], grad['coords'][3])
+        out << ' /Domain [0 1]'
+        out << " /Function #{fc} 0 R"
+        out << ' /Extend [true true]'
+        out << ' >>'
+      when 3
+        # x0, y0, r0, x1, y1, r1
+        # at this this time radius of inner circle is 0
+        out << sprintf(' /Coords [%.3f %.3f 0 %.3f %.3f %.3f]', grad['coords'][0], grad['coords'][1], grad['coords'][2], grad['coords'][3], grad['coords'][4])
+        out << ' /Domain [0 1]'
+        out << " /Function #{fc} 0 R"
+        out << ' /Extend [true true]'
+        out << ' >>'
+      when 6
+        out << ' /BitsPerCoordinate 16'
+        out << ' /BitsPerComponent 8'
+        out << ' /Decode[0 1 0 1 0 1 0 1 0 1]'
+        out << ' /BitsPerFlag 8'
+        out << " /Length #{grad['stream'].length} >> "
+        out << getstream(grad['stream'])
+      end
+      out << ' endobj'
+      out(out)
+      if grad['transparency']
+        shading_transparency = out.gsub(%r{/ColorSpace /[^\s]+}mi, '/ColorSpace /DeviceGray')
+        shading_transparency = shading_transparency.gsub(%r{/Function [0-9]+ }mi, "/Function #{ft} ")
+      end
+      @gradients[id]['id'] = @n
+      # set pattern object
+      newobj()
+      out = +'<< /Type /Pattern /PatternType 2'
+      out << " /Shading #{@gradients[id]['id']} 0 R"
+      out << ' >> endobj'
+      out(out)
+      @gradients[id]['pattern'] = @n
+      # set shading and pattern for transparency mask
+      if grad['transparency']
+        # luminosity pattern
+        idgs = id + idt
+        newobj()
+        out(shading_transparency)
+        @gradients[idgs] = {}
+        @gradients[idgs]['id'] = @n
+        newobj()
+        out = +'<< /Type /Pattern /PatternType 2'
+        out << " /Shading #{@gradients[idgs]['id']} 0 R"
+        out << ' >> endobj'
+        out(out)
+        @gradients[idgs]['pattern'] = @n
+        # luminosity XObject
+        newobj()
+        filter = ''
+        stream = "q /a0 gs /Pattern cs /p#{idgs} scn 0 0 #{@w_pt} #{@h_pt} re f Q"
+        if @compress
+          filter = ' /Filter /FlateDecode'
+          stream = Zlib::Deflate.deflate(stream)
+        end
+        out = +"<< /Type /XObject /Subtype /Form /FormType 1#{filter}"
+        out << " /Length #{stream.length}"
+        out << " /BBox [0 0 #{@w_pt} #{@h_pt}]"
+        out << ' /Group << /Type /Group /S /Transparency /CS /DeviceGray >>'
+        out << ' /Resources <<'
+        out << ' /ExtGState << /a0 << /ca 1 /CA 1 >> >>'
+        out << " /Pattern << /p#{idgs} #{@gradients[idgs]['pattern']} 0 R >>"
+        out << ' >>'
+        out << ' >> '
+        out << getstream(stream)
+        out << ' endobj'
+        out(out)
+        # SMask
+        newobj()
+        out = +"<< /Type /Mask /S /Luminosity /G #{@n - 1} 0 R >> endobj"
+        out(out)
+        # ExtGState
+        newobj()
+        out = +"<< /Type /ExtGState /SMask #{@n - 1} 0 R /AIS false >> endobj"
+        out(out)
+        @extgstates << {'n' => @n, 'name' => "TGS#{id}"}
+      end
+    end
+  end
+  protected :putshaders
+
   #
   # Draw the sector of a circle.
   # It can be used for instance to render pie charts.
@@ -12086,7 +12522,6 @@ protected
     if dom[key]['attribute'] and dom[key]['attribute']['class'] and !dom[key]['attribute']['class'].empty?
       selector_class = dom[key]['attribute']['class'].downcase
     end
-    id = ''
     if dom[key]['attribute'] and dom[key]['attribute']['id'] and !dom[key]['attribute']['id'].empty?
       selector_id = dom[key]['attribute']['id'].downcase
     end
@@ -12203,7 +12638,7 @@ protected
   # [@since 5.1.000 (2010-05-25)]
   #
   def getTagStyleFromCSS(dom, key, css)
-    tagstyle = '' # style to be returned
+    tagstyle = +'' # style to be returned
     # get all styles that apply
     css.each { |selector, style|
       # remove specificity
@@ -12273,7 +12708,7 @@ protected
             uri.split('/').each {|path|
               uri_path = uri_path.join(path)
             }
-            cssdata = ''
+            cssdata = +''
             next unless File.exist?(uri_path)
 
             open(uri_path) do |f|
@@ -12426,7 +12861,7 @@ protected
     dom[key]['fill'] = ((@textrendermode % 2) == 0)
     dom[key]['clip'] = (@textrendermode > 3)
     dom[key]['line-height'] = @cell_height_ratio
-    dom[key]['bgcolor'] = ActiveSupport::OrderedHash.new
+    dom[key]['bgcolor'] = []
     dom[key]['fgcolor'] = @fgcolor.dup # color
     dom[key]['strokecolor'] = @strokecolor.dup
 
@@ -12491,7 +12926,7 @@ protected
             dom[grandparent]['cols'] = dom[(dom[key]['parent'])]['cols']
           end
           if (dom[key]['value'] == 'td') or (dom[key]['value'] == 'th')
-            dom[(dom[key]['parent'])]['content'] = ''
+            dom[(dom[key]['parent'])]['content'] = +''
             (dom[key]['parent'] + 1).upto(key - 1) do |i|
               dom[(dom[key]['parent'])]['content'] << a[dom[i]['elkey']]
             end
@@ -12644,7 +13079,7 @@ protected
               end
             end
             # font style
-            dom[key]['fontstyle'] ||= ""
+            dom[key]['fontstyle'] ||= +""
             if !dom[key]['style']['font-weight'].nil? and (dom[key]['style']['font-weight'][0,1].downcase == 'b')
               dom[key]['fontstyle'] << 'B'
             end
@@ -12653,13 +13088,13 @@ protected
             end
             # font color
             if !empty_string(dom[key]['style']['color'])
-              dom[key]['fgcolor'] = convertHTMLColorToDec(dom[key]['style']['color'])
+              dom[key]['fgcolor'] = convert_html_color_to_dec_array(dom[key]['style']['color'])
             elsif dom[key]['value'] == 'a'
               dom[key]['fgcolor'] = @html_link_color_array
             end
             # background color
             if !empty_string(dom[key]['style']['background-color'])
-              dom[key]['bgcolor'] = convertHTMLColorToDec(dom[key]['style']['background-color'])
+              dom[key]['bgcolor'] = convert_html_color_to_dec_array(dom[key]['style']['background-color'])
             end
             # text-decoration
             if !dom[key]['style']['text-decoration'].nil?
@@ -12822,17 +13257,17 @@ protected
           end
           # set foreground color attribute
           if !empty_string(dom[key]['attribute']['color'])
-            dom[key]['fgcolor'] = convertHTMLColorToDec(dom[key]['attribute']['color'])
+            dom[key]['fgcolor'] = convert_html_color_to_dec_array(dom[key]['attribute']['color'])
           elsif (dom[key]['style'].nil? or dom[key]['style']['color'].nil?) and (dom[key]['value'] == 'a')
             dom[key]['fgcolor'] = @html_link_color_array
           end
           # set background color attribute
           if !empty_string(dom[key]['attribute']['bgcolor'])
-            dom[key]['bgcolor'] = convertHTMLColorToDec(dom[key]['attribute']['bgcolor'])
+            dom[key]['bgcolor'] = convert_html_color_to_dec_array(dom[key]['attribute']['bgcolor'])
           end
           # set stroke color attribute
           if !empty_string(dom[key]['attribute']['strokecolor'])
-            dom[key]['strokecolor'] = convertHTMLColorToDec(dom[key]['attribute']['strokecolor'])
+            dom[key]['strokecolor'] = convert_html_color_to_dec_array(dom[key]['attribute']['strokecolor'])
           end
           # check for width attribute
           if !dom[key]['attribute']['width'].nil?
@@ -13182,8 +13617,8 @@ public
             # restore previous object
             rollbackTransaction(true)
             # restore previous values
-            this_method_vars.each {|vkey , vval|
-              eval("#{vkey} = vval")
+            this_method_vars.each {|vkey, vval|
+              binding.local_variable_set(vkey, vval)
             }
             # add a page (or trig AcceptPageBreak() for multicolumn mode)
             pre_y = @y
@@ -13956,7 +14391,7 @@ public
           len1 = dom[key]['value'].length
           lsp = len1 - dom[key]['value'].lstrip.length
           rsp = len1 - dom[key]['value'].rstrip.length
-          tmpstr = ''
+          tmpstr = +''
           if rsp > 0
             tmpstr << dom[key]['value'][-rsp..-1]
           end
@@ -14046,7 +14481,7 @@ public
           rollbackTransaction(true)
           # restore previous values
           this_method_vars.each {|vkey , vval|
-            eval("#{vkey} = vval")
+            binding.local_variable_set(vkey, vval)
           }
           # add a page (or trig AcceptPageBreak() for multicolumn mode)
           pre_y = @y
@@ -15294,7 +15729,7 @@ protected
   #
   def putHtmlListBullet(listdepth, listtype='', size=10)
     size /= @k
-    fill = ''
+    fill = +''
     color = @fgcolor
     width = 0
     textitem = ''
@@ -15313,7 +15748,7 @@ protected
       # unordered types
     when 'none'
     when 'disc', 'circle'
-      fill = 'F' if listtype == 'disc'
+      fill = +'F' if listtype == 'disc'
       fill << 'D'
       r = size / 6.0
       lspace += 2 * r
@@ -15526,7 +15961,7 @@ protected
   #
   def readDiskCache(filename)
     filename = filename.path
-    data = ''
+    data = +''
     open( filename,'rb') do |f|
       data << f.read()
     end
@@ -16352,7 +16787,7 @@ public
       if this_self
         objvars = @objcopy.instance_variables
         objvars.each {|key|
-          eval("#{key} = @objcopy.instance_variable_get(key)") if key.to_s != '@objcopy'
+          instance_variable_set(key, @objcopy.instance_variable_get(key)) if key.to_s != '@objcopy'
         }
       end
       return @objcopy
@@ -16489,7 +16924,7 @@ public
   # [@param string :default] default style
   # [@param boolean :mode] if true enable rasterization, false otherwise.
   # [@author] Nicola Asuni
-  # [@access protected:
+  # [@access protected]
   # [@since 5.0.000 (2010-04-30)]
   #
   def getPathPaintOperator(style, default='S')