SoundSoftware Code Site

#============================================================+

# File name   : tcpdf.rb

# Begin       : 2002-08-03

# Last Update : 2007-03-20

# Author      : Nicola Asuni

# Version     : 1.53.0.TC031

# License     : GNU LGPL (http://www.gnu.org/copyleft/lesser.html)

#

# Description : This is a Ruby class for generating PDF files

#               on-the-fly without requiring external

#               extensions.

#

# IMPORTANT:

# This class is an extension and improvement of the Public Domain

# FPDF class by Olivier Plathey (http://www.fpdf.org).

#

# Main changes by Nicola Asuni:

#    Ruby porting;

#    UTF-8 Unicode support;

#    code refactoring;

#    source code clean up;

#    code style and formatting;

#    source code documentation using phpDocumentor (www.phpdoc.org);

#    All ISO page formats were included;

#    image scale factor;

#    includes methods to parse and printsome XHTML code, supporting the following elements: h1, h2, h3, h4, h5, h6, b, u, i, a, img, p, br, strong, em, font, blockquote, li, ul, ol, hr, td, th, tr, table, sup, sub, small;

#    includes a method to print various barcode formats using an improved version of "Generic Barcode Render Class" by Karim Mribti (http://www.mribti.com/barcode/) (require GD library: http://www.boutell.com/gd/);

#    defines standard Header() and Footer() methods.

#

#   Ported to Ruby by Ed Moss 2007-08-06

#

#============================================================+

require 'tempfile'

require 'core/rmagick'

#

# TCPDF Class.

# @package com.tecnick.tcpdf

#

@@version = "1.53.0.TC031"

@@fpdf_charwidths = {}

PDF_PRODUCER = 'TCPDF via RFPDF 1.53.0.TC031 (http://tcpdf.sourceforge.net)'

module TCPDFFontDescriptor

  @@descriptors = { 'freesans' => {} }

  @@font_name = 'freesans'

  def self.font(font_name)

    @@descriptors[font_name.gsub(".rb", "")]

  end

  def self.define(font_name = 'freesans')

    @@descriptors[font_name] ||= {}

    yield @@descriptors[font_name]

  end

end

# This is a Ruby class for generating PDF files on-the-fly without requiring external extensions.<br>

# This class is an extension and improvement of the FPDF class by Olivier Plathey (http://www.fpdf.org).<br>

# This version contains some changes: [porting to Ruby, support for UTF-8 Unicode, code style and formatting, php documentation (www.phpdoc.org), ISO page formats, minor improvements, image scale factor]<br>

# TCPDF project (http://tcpdf.sourceforge.net) is based on the Public Domain FPDF class by Olivier Plathey (http://www.fpdf.org).<br>

# To add your own TTF fonts please read /fonts/README.TXT

# @name TCPDF

# @package com.tecnick.tcpdf

# @@version 1.53.0.TC031

# @author Nicola Asuni

# @link http://tcpdf.sourceforge.net

# @license http://www.gnu.org/copyleft/lesser.html LGPL

#

class TCPDF

  include RFPDF

  include Core::RFPDF

  include RFPDF::Math

  def logger

    Rails.logger

  end

  cattr_accessor :k_cell_height_ratio

  @@k_cell_height_ratio = 1.25

  cattr_accessor :k_blank_image

  @@k_blank_image = ""

  cattr_accessor :k_small_ratio

  @@k_small_ratio = 2/3.0

  cattr_accessor :k_path_cache

  @@k_path_cache = Rails.root.join('tmp')

  cattr_accessor :k_path_url_cache

  @@k_path_url_cache = Rails.root.join('tmp')

        attr_accessor :barcode

        attr_accessor :buffer

        attr_accessor :diffs

        attr_accessor :color_flag

        attr_accessor :default_table_columns

        attr_accessor :max_table_columns

        attr_accessor :default_font

        attr_accessor :draw_color

        attr_accessor :encoding

        attr_accessor :fill_color

        attr_accessor :fonts

        attr_accessor :font_family

        attr_accessor :font_files

        cattr_accessor :font_path

        attr_accessor :font_style

        attr_accessor :font_size_pt

        attr_accessor :header_width

        attr_accessor :header_logo

        attr_accessor :header_logo_width

        attr_accessor :header_title

        attr_accessor :header_string

        attr_accessor :images

        attr_accessor :img_scale

        attr_accessor :in_footer

        attr_accessor :is_unicode

        attr_accessor :lasth

        attr_accessor :links

        attr_accessor :list_ordered

        attr_accessor :list_count

        attr_accessor :li_spacer

        attr_accessor :n

        attr_accessor :offsets

        attr_accessor :orientation_changes

        attr_accessor :page

        attr_accessor :page_links

        attr_accessor :pages

        attr_accessor :pdf_version

        attr_accessor :prevfill_color

        attr_accessor :prevtext_color

        attr_accessor :print_header

        attr_accessor :print_footer

        attr_accessor :state

        attr_accessor :tableborder

        attr_accessor :tdbegin

        attr_accessor :tdwidth

        attr_accessor :tdheight

        attr_accessor :tdalign

        attr_accessor :tdfill

        attr_accessor :tempfontsize

        attr_accessor :text_color

        attr_accessor :underline

        attr_accessor :ws

        #

        # This is the class constructor.

        # It allows to set up the page format, the orientation and

        # the measure unit used in all the methods (except for the font sizes).

        # @since 1.0

        # @param string :orientation page orientation. Possible values are (case insensitive):<ul><li>P or Portrait (default)</li><li>L or Landscape</li></ul>

        # @param string :unit User measure unit. Possible values are:<ul><li>pt: point</li><li>mm: millimeter (default)</li><li>cm: centimeter</li><li>in: inch</li></ul><br />A point equals 1/72 of inch, that is to say about 0.35 mm (an inch being 2.54 cm). This is a very common unit in typography; font sizes are expressed in that unit.

        # @param mixed :format The format used for pages. It can be either one of the following values (case insensitive) or a custom format in the form of a two-element array containing the width and the height (expressed in the unit given by unit).<ul><li>4A0</li><li>2A0</li><li>A0</li><li>A1</li><li>A2</li><li>A3</li><li>A4 (default)</li><li>A5</li><li>A6</li><li>A7</li><li>A8</li><li>A9</li><li>A10</li><li>B0</li><li>B1</li><li>B2</li><li>B3</li><li>B4</li><li>B5</li><li>B6</li><li>B7</li><li>B8</li><li>B9</li><li>B10</li><li>C0</li><li>C1</li><li>C2</li><li>C3</li><li>C4</li><li>C5</li><li>C6</li><li>C7</li><li>C8</li><li>C9</li><li>C10</li><li>RA0</li><li>RA1</li><li>RA2</li><li>RA3</li><li>RA4</li><li>SRA0</li><li>SRA1</li><li>SRA2</li><li>SRA3</li><li>SRA4</li><li>LETTER</li><li>LEGAL</li><li>EXECUTIVE</li><li>FOLIO</li></ul>

        # @param boolean :unicode TRUE means that the input text is unicode (default = true)

        # @param String :encoding charset encoding; default is UTF-8

        #

        def initialize(orientation = 'P',  unit = 'mm', format = 'A4', unicode = true, encoding = "UTF-8")

                # Set internal character encoding to ASCII#

                #FIXME 2007-05-25 (EJM) Level=0 -

                # if (respond_to?("mb_internal_encoding") and mb_internal_encoding())

                #         @internal_encoding = mb_internal_encoding();

                #         mb_internal_encoding("ASCII");

                # }

                #Some checks

                dochecks();

                #Initialization of properties

          @barcode ||= false

                @buffer ||= ''

                @diffs ||= []

                @color_flag ||= false

          @default_table_columns ||= 4

          @table_columns ||= 0

          @max_table_columns ||= []

          @tr_id ||= 0

          @max_td_page ||= []

          @max_td_y ||= []

          @t_columns ||= 0

          @default_font ||= "FreeSans" if unicode

          @default_font ||= "Helvetica"

                @draw_color ||= '0 G'

          @encoding ||= "UTF-8"

                @fill_color ||= '0 g'

                @fonts ||= {}

                @font_family ||= ''

                @font_files ||= {}

                @font_style ||= ''

                @font_size ||= 12

                @font_size_pt ||= 12

          @header_width ||= 0

          @header_logo ||= ""

          @header_logo_width ||= 30

          @header_title ||= ""

          @header_string ||= ""

                @images ||= {}

          @img_scale ||= 1

                @in_footer ||= false

                @is_unicode = unicode

                @lasth ||= 0

                @links ||= []

          @list_ordered ||= []

          @list_count ||= []

          @li_spacer ||= ""

          @li_count ||= 0

          @spacer ||= ""

          @quote_count ||= 0

          @prevquote_count ||= 0

          @quote_top ||= []

          @quote_page ||= []

                @n ||= 2

                @offsets ||= []

                @orientation_changes ||= []

                @page ||= 0

                @page_links ||= {}

                @pages ||= []

          @pdf_version ||= "1.3"

          @prevfill_color ||= [255,255,255]

          @prevtext_color ||= [0,0,0]

          @print_header ||= false

          @print_footer ||= false

                @state ||= 0

          @tableborder ||= 0

          @tdbegin ||= false

        @tdtext ||= ''

          @tdwidth ||= 0

          @tdheight ||= 0

          @tdalign ||= "L"

          @tdfill ||= 0

          @tempfontsize ||= 10

                @text_color ||= '0 g'

                @underline ||= false

                @deleted ||= false

                @ws ||= 0

                #Standard Unicode fonts

                @core_fonts = {

                'courier'=>'Courier',

                'courierB'=>'Courier-Bold',

                'courierI'=>'Courier-Oblique',

                'courierBI'=>'Courier-BoldOblique',

                'helvetica'=>'Helvetica',

                'helveticaB'=>'Helvetica-Bold',

                'helveticaI'=>'Helvetica-Oblique',

                'helveticaBI'=>'Helvetica-BoldOblique',

                'times'=>'Times-Roman',

                'timesB'=>'Times-Bold',

                'timesI'=>'Times-Italic',

                'timesBI'=>'Times-BoldItalic',

                'symbol'=>'Symbol',

                'zapfdingbats'=>'ZapfDingbats'}

                #Scale factor

                case unit.downcase

                        when 'pt' ; @k=1

                        when 'mm' ; @k=72/25.4

                        when 'cm' ; @k=72/2.54

                        when 'in' ; @k=72

                        else Error("Incorrect unit: #{unit}")

                end

                #Page format

                if format.is_a?(String)

                        # Page formats (45 standard ISO paper formats and 4 american common formats).

                        # Paper cordinates are calculated in this way: (inches# 72) where (1 inch = 2.54 cm)

                        case (format.upcase)

                                when  '4A0' ; format = [4767.87,6740.79]

                                when  '2A0' ; format = [3370.39,4767.87]

                                when  'A0' ; format = [2383.94,3370.39]

                                when  'A1' ; format = [1683.78,2383.94]

                                when  'A2' ; format = [1190.55,1683.78]

                                when  'A3' ; format = [841.89,1190.55]

                                when  'A4' ; format = [595.28,841.89] # ; default

                                when  'A5' ; format = [419.53,595.28]

                                when  'A6' ; format = [297.64,419.53]

                                when  'A7' ; format = [209.76,297.64]

                                when  'A8' ; format = [147.40,209.76]

                                when  'A9' ; format = [104.88,147.40]

                                when  'A10' ; format = [73.70,104.88]

                                when  'B0' ; format = [2834.65,4008.19]

                                when  'B1' ; format = [2004.09,2834.65]

                                when  'B2' ; format = [1417.32,2004.09]

                                when  'B3' ; format = [1000.63,1417.32]

                                when  'B4' ; format = [708.66,1000.63]

                                when  'B5' ; format = [498.90,708.66]

                                when  'B6' ; format = [354.33,498.90]

                                when  'B7' ; format = [249.45,354.33]

                                when  'B8' ; format = [175.75,249.45]

                                when  'B9' ; format = [124.72,175.75]

                                when  'B10' ; format = [87.87,124.72]

                                when  'C0' ; format = [2599.37,3676.54]

                                when  'C1' ; format = [1836.85,2599.37]

                                when  'C2' ; format = [1298.27,1836.85]

                                when  'C3' ; format = [918.43,1298.27]

                                when  'C4' ; format = [649.13,918.43]

                                when  'C5' ; format = [459.21,649.13]

                                when  'C6' ; format = [323.15,459.21]

                                when  'C7' ; format = [229.61,323.15]

                                when  'C8' ; format = [161.57,229.61]

                                when  'C9' ; format = [113.39,161.57]

                                when  'C10' ; format = [79.37,113.39]

                                when  'RA0' ; format = [2437.80,3458.27]

                                when  'RA1' ; format = [1729.13,2437.80]

                                when  'RA2' ; format = [1218.90,1729.13]

                                when  'RA3' ; format = [864.57,1218.90]

                                when  'RA4' ; format = [609.45,864.57]

                                when  'SRA0' ; format = [2551.18,3628.35]

                                when  'SRA1' ; format = [1814.17,2551.18]

                                when  'SRA2' ; format = [1275.59,1814.17]

                                when  'SRA3' ; format = [907.09,1275.59]

                                when  'SRA4' ; format = [637.80,907.09]

                                when  'LETTER' ; format = [612.00,792.00]

                                when  'LEGAL' ; format = [612.00,1008.00]

                                when  'EXECUTIVE' ; format = [521.86,756.00]

                                when  'FOLIO' ; format = [612.00,936.00]

                                #else then Error("Unknown page format: #{format}"

                        end

                        @fw_pt = format[0]

                        @fh_pt = format[1]

                else

                        @fw_pt = format[0]*@k

                        @fh_pt = format[1]*@k

                end

                @fw = @fw_pt/@k

                @fh = @fh_pt/@k

                #Page orientation

                orientation = orientation.downcase

                if orientation == 'p' or orientation == 'portrait'

                        @def_orientation = 'P'

                        @w_pt = @fw_pt

                        @h_pt = @fh_pt

                elsif orientation == 'l' or orientation == 'landscape'

                        @def_orientation = 'L'

                        @w_pt = @fh_pt

                        @h_pt = @fw_pt

                else

                        Error("Incorrect orientation: #{orientation}")

                end

    @fw = @w_pt/@k

    @fh = @h_pt/@k

                @cur_orientation = @def_orientation

                @w = @w_pt/@k

                @h = @h_pt/@k

                #Page margins (1 cm)

                margin = 28.35/@k

                SetMargins(margin, margin)

                #Interior cell margin (1 mm)

                @c_margin = margin / 10

                #Line width (0.2 mm)

                @line_width = 0.567 / @k

                #Automatic page break

                SetAutoPageBreak(true, 2 * margin)

                #Full width display mode

                SetDisplayMode('fullwidth')

                #Compression

                SetCompression(true)

                #Set default PDF version number

                @pdf_version = "1.3"

                @encoding = encoding

                @b = 0

                @i = 0

                @u = 0

                @href = ''

                @fontlist = ["arial", "times", "courier", "helvetica", "symbol"]

                @issetfont = false

                @issetcolor = false

                SetFillColor(200, 200, 200, true)

                SetTextColor(0, 0, 0, true)

        end

        #

        # Set the image scale.

        # @param float :scale image scale.

        # @author Nicola Asuni

        # @since 1.5.2

        #

        def SetImageScale(scale)

                @img_scale = scale;

        end

  alias_method :set_image_scale, :SetImageScale

        #

        # Returns the image scale.

        # @return float image scale.

        # @author Nicola Asuni

        # @since 1.5.2

        #

        def GetImageScale()

                return @img_scale;

        end

  alias_method :get_image_scale, :GetImageScale

        #

        # Returns the page width in units.

        # @return int page width.

        # @author Nicola Asuni

        # @since 1.5.2

        #

        def GetPageWidth()

                return @w;

        end

  alias_method :get_page_width, :GetPageWidth

        #

        # Returns the page height in units.

        # @return int page height.

        # @author Nicola Asuni

        # @since 1.5.2

        #

        def GetPageHeight()

                return @h;

        end

  alias_method :get_page_height, :GetPageHeight

        #

        # Returns the page break margin.

        # @return int page break margin.

        # @author Nicola Asuni

        # @since 1.5.2

        #

        def GetBreakMargin()

                return @b_margin;

        end

  alias_method :get_break_margin, :GetBreakMargin

        #

        # Returns the scale factor (number of points in user unit).

        # @return int scale factor.

        # @author Nicola Asuni

        # @since 1.5.2

        #

        def GetScaleFactor()

                return @k;

        end

  alias_method :get_scale_factor, :GetScaleFactor

        #

        # Defines the left, top and right margins. By default, they equal 1 cm. Call this method to change them.

        # @param float :left Left margin.

        # @param float :top Top margin.

        # @param float :right Right margin. Default value is the left one.

        # @since 1.0

        # @see SetLeftMargin(), SetTopMargin(), SetRightMargin(), SetAutoPageBreak()

        #

        def SetMargins(left, top, right=-1)

                #Set left, top and right margins

                @l_margin = left

                @t_margin = top

                if (right == -1)

                        right = left

                end

                @r_margin = right

        end

  alias_method :set_margins, :SetMargins

        #

        # Defines the left margin. The method can be called before creating the first page. If the current abscissa gets out of page, it is brought back to the margin.

        # @param float :margin The margin.

        # @since 1.4

        # @see SetTopMargin(), SetRightMargin(), SetAutoPageBreak(), SetMargins()

        #

        def SetLeftMargin(margin)

                #Set left margin

                @l_margin = margin

                if ((@page>0) and (@x < margin))

                        @x = margin

                end

        end

  alias_method :set_left_margin, :SetLeftMargin

        #

        # Defines the top margin. The method can be called before creating the first page.

        # @param float :margin The margin.

        # @since 1.5

        # @see SetLeftMargin(), SetRightMargin(), SetAutoPageBreak(), SetMargins()

        #

        def SetTopMargin(margin)

                #Set top margin

                @t_margin = margin

        end

  alias_method :set_top_margin, :SetTopMargin

        #

        # Defines the right margin. The method can be called before creating the first page.

        # @param float :margin The margin.

        # @since 1.5

        # @see SetLeftMargin(), SetTopMargin(), SetAutoPageBreak(), SetMargins()

        #

        def SetRightMargin(margin)

                #Set right margin

                @r_margin = margin

        end

  alias_method :set_right_margin, :SetRightMargin

        #

        # Enables or disables the automatic page breaking mode. When enabling, the second parameter is the distance from the bottom of the page that defines the triggering limit. By default, the mode is on and the margin is 2 cm.

        # @param boolean :auto Boolean indicating if mode should be on or off.

        # @param float :margin Distance from the bottom of the page.

        # @since 1.0

        # @see Cell(), MultiCell(), AcceptPageBreak()

        #

        def SetAutoPageBreak(auto, margin=0)

                #Set auto page break mode and triggering margin

                @auto_page_break = auto

                @b_margin = margin

                @page_break_trigger = @h - margin

        end

  alias_method :set_auto_page_break, :SetAutoPageBreak

        #

        # Defines the way the document is to be displayed by the viewer. The zoom level can be set: pages can be displayed entirely on screen, occupy the full width of the window, use real size, be scaled by a specific zooming factor or use viewer default (configured in the Preferences menu of Acrobat). The page layout can be specified too: single at once, continuous display, two columns or viewer default. By default, documents use the full width mode with continuous display.

        # @param mixed :zoom The zoom to use. It can be one of the following string values or a number indicating the zooming factor to use. <ul><li>fullpage: displays the entire page on screen </li><li>fullwidth: uses maximum width of window</li><li>real: uses real size (equivalent to 100% zoom)</li><li>default: uses viewer default mode</li></ul>

        # @param string :layout The page layout. Possible values are:<ul><li>single: displays one page at once</li><li>continuous: displays pages continuously (default)</li><li>two: displays two pages on two columns</li><li>default: uses viewer default mode</li></ul>

        # @since 1.2

        #

        def SetDisplayMode(zoom, layout = 'continuous')

                #Set display mode in viewer

                if (zoom == 'fullpage' or zoom == 'fullwidth' or zoom == 'real' or zoom == 'default' or !zoom.is_a?(String))

                        @zoom_mode = zoom

                else

                        Error("Incorrect zoom display mode: #{zoom}")

                end

                if (layout == 'single' or layout == 'continuous' or layout == 'two' or layout == 'default')

                        @layout_mode = layout

                else

                        Error("Incorrect layout display mode: #{layout}")

                end

        end

  alias_method :set_display_mode, :SetDisplayMode

        #

        # Activates or deactivates page compression. When activated, the internal representation of each page is compressed, which leads to a compression ratio of about 2 for the resulting document. Compression is on by default.

        # Note: the Zlib extension is required for this feature. If not present, compression will be turned off.

        # @param boolean :compress Boolean indicating if compression must be enabled.

        # @since 1.4

        #

        def SetCompression(compress)

                #Set page compression

                if (respond_to?('gzcompress'))

                        @compress = compress

                else

                        @compress = false

                end

        end

  alias_method :set_compression, :SetCompression

        #

        # Defines the title of the document.

        # @param string :title The title.

        # @since 1.2

        # @see SetAuthor(), SetCreator(), SetKeywords(), SetSubject()

        #

        def SetTitle(title)

                #Title of document

                @title = title

        end

  alias_method :set_title, :SetTitle

        #

        # Defines the subject of the document.

        # @param string :subject The subject.

        # @since 1.2

        # @see SetAuthor(), SetCreator(), SetKeywords(), SetTitle()

        #

        def SetSubject(subject)

                #Subject of document

                @subject = subject

        end

  alias_method :set_subject, :SetSubject

        #

        # Defines the author of the document.

        # @param string :author The name of the author.

        # @since 1.2

        # @see SetCreator(), SetKeywords(), SetSubject(), SetTitle()

        #

        def SetAuthor(author)

                #Author of document

                @author = author

        end

  alias_method :set_author, :SetAuthor

        #

        # Associates keywords with the document, generally in the form 'keyword1 keyword2 ...'.

        # @param string :keywords The list of keywords.

        # @since 1.2

        # @see SetAuthor(), SetCreator(), SetSubject(), SetTitle()

        #

        def SetKeywords(keywords)

                #Keywords of document

                @keywords = keywords

        end

  alias_method :set_keywords, :SetKeywords

        #

        # Defines the creator of the document. This is typically the name of the application that generates the PDF.

        # @param string :creator The name of the creator.

        # @since 1.2

        # @see SetAuthor(), SetKeywords(), SetSubject(), SetTitle()

        #

        def SetCreator(creator)

                #Creator of document

                @creator = creator

        end

  alias_method :set_creator, :SetCreator

        #

        # Defines an alias for the total number of pages. It will be substituted as the document is closed.<br />

        # <b>Example:</b><br />

        # <pre>

        # class PDF extends TCPDF {

        #         def Footer()

        #                 #Go to 1.5 cm from bottom

        #                 SetY(-15);

        #                 #Select Arial italic 8

        #                 SetFont('Arial','I',8);

        #                 #Print current and total page numbers

        #                 Cell(0,10,'Page '.PageNo().'/{nb}',0,0,'C');

        #         end

        # }

        # :pdf=new PDF();

        # :pdf->alias_nb_pages();

        # </pre>

        # @param string :alias The alias. Default valuenb}.

        # @since 1.4

        # @see PageNo(), Footer()

        #

        def AliasNbPages(alias_nb ='{nb}')

                #Define an alias for total number of pages

                @alias_nb_pages = escapetext(alias_nb)

        end

        alias_method :alias_nb_pages, :AliasNbPages

        #

        # This method is automatically called in case of fatal error; it simply outputs the message and halts the execution. An inherited class may override it to customize the error handling but should always halt the script, or the resulting document would probably be invalid.

        # 2004-06-11 :: Nicola Asuni : changed bold tag with strong

        # @param string :msg The error message

        # @since 1.0

        #

        def Error(msg)

                #Fatal error

                raise ("TCPDF error: #{msg}")

        end

  alias_method :error, :Error

        #

        # This method begins the generation of the PDF document. It is not necessary to call it explicitly because AddPage() does it automatically.

        # Note: no page is created by this method

        # @since 1.0

        # @see AddPage(), Close()

        #

        def Open()

                #Begin document

                @state = 1

        end

  # alias_method :open, :Open

        #

        # Terminates the PDF document. It is not necessary to call this method explicitly because Output() does it automatically. If the document contains no page, AddPage() is called to prevent from getting an invalid document.

        # @since 1.0

        # @see Open(), Output()

        #

        def Close()

                #Terminate document

                if (@state==3)

                        return;

                end

                if (@page==0)

                        AddPage();

                end

                #Page footer

                @in_footer=true;

                Footer();

                @in_footer=false;

                #Close page

                endpage();

                #Close document

                enddoc();

        end

  # alias_method :close, :Close

        #

        # Adds a new page to the document. If a page is already present, the Footer() method is called first to output the footer. Then the page is added, the current position set to the top-left corner according to the left and top margins, and Header() is called to display the header.

        # The font which was set before calling is automatically restored. There is no need to call SetFont() again if you want to continue with the same font. The same is true for colors and line width.

        # The origin of the coordinate system is at the top-left corner and increasing ordinates go downwards.

        # @param string :orientation Page orientation. Possible values are (case insensitive):<ul><li>P or Portrait</li><li>L or Landscape</li></ul> The default value is the one passed to the constructor.

        # @since 1.0

        # @see TCPDF(), Header(), Footer(), SetMargins()

        #

        def AddPage(orientation='')

                #Start a new page

                if (@state==0)

                        Open();

                end

                family=@font_family;

                style=@font_style + (@underline ? 'U' : '') + (@deleted ? 'D' : '');

                size=@font_size_pt;

                lw=@line_width;

                dc=@draw_color;

                fc=@fill_color;

                tc=@text_color;

                cf=@color_flag;

                if (@page>0)

                        #Page footer

                        @in_footer=true;

                        Footer();

                        @in_footer=false;

                        #Close page

                        endpage();

                end

                #Start new page

                beginpage(orientation);

                #Set line cap style to square

                out('2 J');

                #Set line width

                @line_width = lw;

                out(sprintf('%.2f w', lw*@k));

                #Set font

                if (family)

                        SetFont(family, style, size);

                end

                #Set colors

                @draw_color = dc;

                if (dc!='0 G')

                        out(dc);

                end

                @fill_color = fc;

                if (fc!='0 g')

                        out(fc);

                end

                @text_color = tc;

                @color_flag = cf;

                #Page header

                Header();

                #Restore line width

                if (@line_width != lw)

                        @line_width = lw;

                        out(sprintf('%.2f w', lw*@k));

                end

                #Restore font

                if (family)

                        SetFont(family, style, size);

                end

                #Restore colors

                if (@draw_color != dc)

                        @draw_color = dc;

                        out(dc);

                end

                if (@fill_color != fc)

                        @fill_color = fc;

                        out(fc);

                end

                @text_color = tc;

                @color_flag = cf;

        end

          alias_method :add_page, :AddPage

  #

  # Rotate object.

  # @param float :angle angle in degrees for counter-clockwise rotation

  # @param int :x abscissa of the rotation center. Default is current x position

  # @param int :y ordinate of the rotation center. Default is current y position

  #

  def Rotate(angle, x="", y="")

          if (x == '')

                  x = @x;

          end

          if (y == '')

                  y = @y;

          end

          if (@rtl)

                  x = @w - x;

                  angle = -@angle;

          end

          y = (@h - y) * @k;

          x *= @k;

          # calculate elements of transformation matrix

          tm = []

          tm[0] = ::Math::cos(deg2rad(angle));

          tm[1] = ::Math::sin(deg2rad(angle));

          tm[2] = -tm[1];

          tm[3] = tm[0];

          tm[4] = x + tm[1] * y - tm[0] * x;

          tm[5] = y - tm[0] * y - tm[1] * x;

          # generate the transformation matrix

          Transform(tm);

  end

    alias_method :rotate, :Rotate

  #

        # Starts a 2D tranformation saving current graphic state.

        # This function must be called before scaling, mirroring, translation, rotation and skewing.

        # Use StartTransform() before, and StopTransform() after the transformations to restore the normal behavior.

        #

        def StartTransform

                out('q');

        end

          alias_method :start_transform, :StartTransform

        #

        # Stops a 2D tranformation restoring previous graphic state.

        # This function must be called after scaling, mirroring, translation, rotation and skewing.

        # Use StartTransform() before, and StopTransform() after the transformations to restore the normal behavior.

        #

        def StopTransform

                out('Q');

        end

          alias_method :stop_transform, :StopTransform

  #

        # Apply graphic transformations.

        # @since 2.1.000 (2008-01-07)

        # @see StartTransform(), StopTransform()

        #

        def Transform(tm)

                x = out(sprintf('%.3f %.3f %.3f %.3f %.3f %.3f cm', tm[0], tm[1], tm[2], tm[3], tm[4], tm[5]));

        end