fpdf 1.53

data/lib/fpdf.rb

@@ -0,0 +1,1536 @@
+# Ruby FPDF 1.53d
+# FPDF 1.53 by Olivier Plathey ported to Ruby by Brian Ollenberger
+# Copyright 2005 Brian Ollenberger
+# Please retain this entire copyright notice. If you distribute any
+# modifications, place an additional comment here that clearly indicates
+# that it was modified. You may (but are not  send any useful modifications that you make
+# back to me at http://zeropluszero.com/software/fpdf/
+
+# Bug fixes, examples, external fonts, JPEG support, and upgrade to version
+# 1.53 contributed by Kim Shrier.
+#
+# Bookmark support contributed by Sylvain Lafleur.
+#
+# EPS support contributed by Thiago Jackiw, ported from the PHP version by Valentin Schmidt.
+#
+# Many other bug reports and fixes contributed by many other people.
+
+require 'date'
+require 'zlib'
+
+class FPDF
+    FPDF_VERSION = '1.53d'
+
+    Charwidths =  {
+        'courier'=>[600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600],
+        
+        'courierB'=>[600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600],
+        
+        'courierI'=>[600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600],
+        
+        'courierBI'=>[600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600,600],
+        
+        'helvetica'=>[278, 278, 278, 278, 278, 278, 278, 278, 278, 278, 278, 278, 278, 278, 278, 278, 278, 278, 278, 278, 278, 278, 278, 278, 278, 278, 278, 278, 278, 278, 278, 278, 278, 278, 355, 556, 556, 889, 667, 191, 333, 333, 389, 584, 278, 333, 278, 278, 556, 556, 556, 556, 556, 556, 556, 556, 556, 556, 278, 278, 584, 584, 584, 556, 1015, 667, 667, 722, 722, 667, 611, 778, 722, 278, 500, 667, 556, 833, 722, 778, 667, 778, 722, 667, 611, 722, 667, 944, 667, 667, 611, 278, 278, 278, 469, 556, 333, 556, 556, 500, 556, 556, 278, 556, 556, 222, 222, 500, 222, 833, 556, 556, 556, 556, 333, 500, 278, 556, 500, 722, 500, 500, 500, 334, 260, 334, 584, 350, 556, 350, 222, 556, 333, 1000, 556, 556, 333, 1000, 667, 333, 1000, 350, 611, 350, 350, 222, 222, 333, 333, 350, 556, 1000, 333, 1000, 500, 333, 944, 350, 500, 667, 278, 333, 556, 556, 556, 556, 260, 556, 333, 737, 370, 556, 584, 333, 737, 333, 400, 584, 333, 333, 333, 556, 537, 278, 333, 333, 365, 556, 834, 834, 834, 611, 667, 667, 667, 667, 667, 667, 1000, 722, 667, 667, 667, 667, 278, 278, 278, 278, 722, 722, 778, 778, 778, 778, 778, 584, 778, 722, 722, 722, 722, 667, 667, 611, 556, 556, 556, 556, 556, 556, 889, 500, 556, 556, 556, 556, 278, 278, 278, 278, 556, 556, 556, 556, 556, 556, 556, 584, 611, 556, 556, 556, 556, 500, 556, 500],
+        
+        'helveticaB'=>[278, 278, 278, 278, 278, 278, 278, 278, 278, 278, 278, 278, 278, 278, 278, 278, 278, 278, 278, 278, 278, 278, 278, 278, 278, 278, 278, 278, 278, 278, 278, 278, 278, 333, 474, 556, 556, 889, 722, 238, 333, 333, 389, 584, 278, 333, 278, 278, 556, 556, 556, 556, 556, 556, 556, 556, 556, 556, 333, 333, 584, 584, 584, 611, 975, 722, 722, 722, 722, 667, 611, 778, 722, 278, 556, 722, 611, 833, 722, 778, 667, 778, 722, 667, 611, 722, 667, 944, 667, 667, 611, 333, 278, 333, 584, 556, 333, 556, 611, 556, 611, 556, 333, 611, 611, 278, 278, 556, 278, 889, 611, 611, 611, 611, 389, 556, 333, 611, 556, 778, 556, 556, 500, 389, 280, 389, 584, 350, 556, 350, 278, 556, 500, 1000, 556, 556, 333, 1000, 667, 333, 1000, 350, 611, 350, 350, 278, 278, 500, 500, 350, 556, 1000, 333, 1000, 556, 333, 944, 350, 500, 667, 278, 333, 556, 556, 556, 556, 280, 556, 333, 737, 370, 556, 584, 333, 737, 333, 400, 584, 333, 333, 333, 611, 556, 278, 333, 333, 365, 556, 834, 834, 834, 611, 722, 722, 722, 722, 722, 722, 1000, 722, 667, 667, 667, 667, 278, 278, 278, 278, 722, 722, 778, 778, 778, 778, 778, 584, 778, 722, 722, 722, 722, 667, 667, 611, 556, 556, 556, 556, 556, 556, 889, 556, 556, 556, 556, 556, 278, 278, 278, 278, 611, 611, 611, 611, 611, 611, 611, 584, 611, 611, 611, 611, 611, 556, 611, 556],
+        
+        'helveticaI'=>[278, 278, 278, 278, 278, 278, 278, 278, 278, 278, 278, 278, 278, 278, 278, 278, 278, 278, 278, 278, 278, 278, 278, 278, 278, 278, 278, 278, 278, 278, 278, 278, 278, 278, 355, 556, 556, 889, 667, 191, 333, 333, 389, 584, 278, 333, 278, 278, 556, 556, 556, 556, 556, 556, 556, 556, 556, 556, 278, 278, 584, 584, 584, 556, 1015, 667, 667, 722, 722, 667, 611, 778, 722, 278, 500, 667, 556, 833, 722, 778, 667, 778, 722, 667, 611, 722, 667, 944, 667, 667, 611, 278, 278, 278, 469, 556, 333, 556, 556, 500, 556, 556, 278, 556, 556, 222, 222, 500, 222, 833, 556, 556, 556, 556, 333, 500, 278, 556, 500, 722, 500, 500, 500, 334, 260, 334, 584, 350, 556, 350, 222, 556, 333, 1000, 556, 556, 333, 1000, 667, 333, 1000, 350, 611, 350, 350, 222, 222, 333, 333, 350, 556, 1000, 333, 1000, 500, 333, 944, 350, 500, 667, 278, 333, 556, 556, 556, 556, 260, 556, 333, 737, 370, 556, 584, 333, 737, 333, 400, 584, 333, 333, 333, 556, 537, 278, 333, 333, 365, 556, 834, 834, 834, 611, 667, 667, 667, 667, 667, 667, 1000, 722, 667, 667, 667, 667, 278, 278, 278, 278, 722, 722, 778, 778, 778, 778, 778, 584, 778, 722, 722, 722, 722, 667, 667, 611, 556, 556, 556, 556, 556, 556, 889, 500, 556, 556, 556, 556, 278, 278, 278, 278, 556, 556, 556, 556, 556, 556, 556, 584, 611, 556, 556, 556, 556, 500, 556, 500],
+        
+        'helveticaBI'=>[278, 278, 278, 278, 278, 278, 278, 278, 278, 278, 278, 278, 278, 278, 278, 278, 278, 278, 278, 278, 278, 278, 278, 278, 278, 278, 278, 278, 278, 278, 278, 278, 278, 333, 474, 556, 556, 889, 722, 238, 333, 333, 389, 584, 278, 333, 278, 278, 556, 556, 556, 556, 556, 556, 556, 556, 556, 556, 333, 333, 584, 584, 584, 611, 975, 722, 722, 722, 722, 667, 611, 778, 722, 278, 556, 722, 611, 833, 722, 778, 667, 778, 722, 667, 611, 722, 667, 944, 667, 667, 611, 333, 278, 333, 584, 556, 333, 556, 611, 556, 611, 556, 333, 611, 611, 278, 278, 556, 278, 889, 611, 611, 611, 611, 389, 556, 333, 611, 556, 778, 556, 556, 500, 389, 280, 389, 584, 350, 556, 350, 278, 556, 500, 1000, 556, 556, 333, 1000, 667, 333, 1000, 350, 611, 350, 350, 278, 278, 500, 500, 350, 556, 1000, 333, 1000, 556, 333, 944, 350, 500, 667, 278, 333, 556, 556, 556, 556, 280, 556, 333, 737, 370, 556, 584, 333, 737, 333, 400, 584, 333, 333, 333, 611, 556, 278, 333, 333, 365, 556, 834, 834, 834, 611, 722, 722, 722, 722, 722, 722, 1000, 722, 667, 667, 667, 667, 278, 278, 278, 278, 722, 722, 778, 778, 778, 778, 778, 584, 778, 722, 722, 722, 722, 667, 667, 611, 556, 556, 556, 556, 556, 556, 889, 556, 556, 556, 556, 556, 278, 278, 278, 278, 611, 611, 611, 611, 611, 611, 611, 584, 611, 611, 611, 611, 611, 556, 611, 556],
+        
+        'times'=>[250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 333, 408, 500, 500, 833, 778, 180, 333, 333, 500, 564, 250, 333, 250, 278, 500, 500, 500, 500, 500, 500, 500, 500, 500, 500, 278, 278, 564, 564, 564, 444, 921, 722, 667, 667, 722, 611, 556, 722, 722, 333, 389, 722, 611, 889, 722, 722, 556, 722, 667, 556, 611, 722, 722, 944, 722, 722, 611, 333, 278, 333, 469, 500, 333, 444, 500, 444, 500, 444, 333, 500, 500, 278, 278, 500, 278, 778, 500, 500, 500, 500, 333, 389, 278, 500, 500, 722, 500, 500, 444, 480, 200, 480, 541, 350, 500, 350, 333, 500, 444, 1000, 500, 500, 333, 1000, 556, 333, 889, 350, 611, 350, 350, 333, 333, 444, 444, 350, 500, 1000, 333, 980, 389, 333, 722, 350, 444, 722, 250, 333, 500, 500, 500, 500, 200, 500, 333, 760, 276, 500, 564, 333, 760, 333, 400, 564, 300, 300, 333, 500, 453, 250, 333, 300, 310, 500, 750, 750, 750, 444, 722, 722, 722, 722, 722, 722, 889, 667, 611, 611, 611, 611, 333, 333, 333, 333, 722, 722, 722, 722, 722, 722, 722, 564, 722, 722, 722, 722, 722, 722, 556, 500, 444, 444, 444, 444, 444, 444, 667, 444, 444, 444, 444, 444, 278, 278, 278, 278, 500, 500, 500, 500, 500, 500, 500, 564, 500, 500, 500, 500, 500, 500, 500, 500],
+        
+        'timesB'=>[250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 333, 555, 500, 500, 1000, 833, 278, 333, 333, 500, 570, 250, 333, 250, 278, 500, 500, 500, 500, 500, 500, 500, 500, 500, 500, 333, 333, 570, 570, 570, 500, 930, 722, 667, 722, 722, 667, 611, 778, 778, 389, 500, 778, 667, 944, 722, 778, 611, 778, 722, 556, 667, 722, 722, 1000, 722, 722, 667, 333, 278, 333, 581, 500, 333, 500, 556, 444, 556, 444, 333, 500, 556, 278, 333, 556, 278, 833, 556, 500, 556, 556, 444, 389, 333, 556, 500, 722, 500, 500, 444, 394, 220, 394, 520, 350, 500, 350, 333, 500, 500, 1000, 500, 500, 333, 1000, 556, 333, 1000, 350, 667, 350, 350, 333, 333, 500, 500, 350, 500, 1000, 333, 1000, 389, 333, 722, 350, 444, 722, 250, 333, 500, 500, 500, 500, 220, 500, 333, 747, 300, 500, 570, 333, 747, 333, 400, 570, 300, 300, 333, 556, 540, 250, 333, 300, 330, 500, 750, 750, 750, 500, 722, 722, 722, 722, 722, 722, 1000, 722, 667, 667, 667, 667, 389, 389, 389, 389, 722, 722, 778, 778, 778, 778, 778, 570, 778, 722, 722, 722, 722, 722, 611, 556, 500, 500, 500, 500, 500, 500, 722, 444, 444, 444, 444, 444, 278, 278, 278, 278, 500, 556, 500, 500, 500, 500, 500, 570, 500, 556, 556, 556, 556, 500, 556, 500],
+        
+        'timesI'=>[250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 333, 420, 500, 500, 833, 778, 214, 333, 333, 500, 675, 250, 333, 250, 278, 500, 500, 500, 500, 500, 500, 500, 500, 500, 500, 333, 333, 675, 675, 675, 500, 920, 611, 611, 667, 722, 611, 611, 722, 722, 333, 444, 667, 556, 833, 667, 722, 611, 722, 611, 500, 556, 722, 611, 833, 611, 556, 556, 389, 278, 389, 422, 500, 333, 500, 500, 444, 500, 444, 278, 500, 500, 278, 278, 444, 278, 722, 500, 500, 500, 500, 389, 389, 278, 500, 444, 667, 444, 444, 389, 400, 275, 400, 541, 350, 500, 350, 333, 500, 556, 889, 500, 500, 333, 1000, 500, 333, 944, 350, 556, 350, 350, 333, 333, 556, 556, 350, 500, 889, 333, 980, 389, 333, 667, 350, 389, 556, 250, 389, 500, 500, 500, 500, 275, 500, 333, 760, 276, 500, 675, 333, 760, 333, 400, 675, 300, 300, 333, 500, 523, 250, 333, 300, 310, 500, 750, 750, 750, 500, 611, 611, 611, 611, 611, 611, 889, 667, 611, 611, 611, 611, 333, 333, 333, 333, 722, 667, 722, 722, 722, 722, 722, 675, 722, 722, 722, 722, 722, 556, 611, 500, 500, 500, 500, 500, 500, 500, 667, 444, 444, 444, 444, 444, 278, 278, 278, 278, 500, 500, 500, 500, 500, 500, 500, 675, 500, 500, 500, 500, 500, 444, 500, 444],
+        
+        'timesBI'=>[250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 389, 555, 500, 500, 833, 778, 278, 333, 333, 500, 570, 250, 333, 250, 278, 500, 500, 500, 500, 500, 500, 500, 500, 500, 500, 333, 333, 570, 570, 570, 500, 832, 667, 667, 667, 722, 667, 667, 722, 778, 389, 500, 667, 611, 889, 722, 722, 611, 722, 667, 556, 611, 722, 667, 889, 667, 611, 611, 333, 278, 333, 570, 500, 333, 500, 500, 444, 500, 444, 333, 500, 556, 278, 278, 500, 278, 778, 556, 500, 500, 500, 389, 389, 278, 556, 444, 667, 500, 444, 389, 348, 220, 348, 570, 350, 500, 350, 333, 500, 500, 1000, 500, 500, 333, 1000, 556, 333, 944, 350, 611, 350, 350, 333, 333, 500, 500, 350, 500, 1000, 333, 1000, 389, 333, 722, 350, 389, 611, 250, 389, 500, 500, 500, 500, 220, 500, 333, 747, 266, 500, 606, 333, 747, 333, 400, 570, 300, 300, 333, 576, 500, 250, 333, 300, 300, 500, 750, 750, 750, 500, 667, 667, 667, 667, 667, 667, 944, 667, 667, 667, 667, 667, 389, 389, 389, 389, 722, 722, 722, 722, 722, 722, 722, 570, 722, 722, 722, 722, 722, 611, 611, 500, 500, 500, 500, 500, 500, 500, 722, 444, 444, 444, 444, 444, 278, 278, 278, 278, 500, 556, 500, 500, 500, 500, 500, 570, 500, 556, 556, 556, 556, 444, 500, 444],
+        
+        'symbol'=>[250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 333, 713, 500, 549, 833, 778, 439, 333, 333, 500, 549, 250, 549, 250, 278, 500, 500, 500, 500, 500, 500, 500, 500, 500, 500, 278, 278, 549, 549, 549, 444, 549, 722, 667, 722, 612, 611, 763, 603, 722, 333, 631, 722, 686, 889, 722, 722, 768, 741, 556, 592, 611, 690, 439, 768, 645, 795, 611, 333, 863, 333, 658, 500, 500, 631, 549, 549, 494, 439, 521, 411, 603, 329, 603, 549, 549, 576, 521, 549, 549, 521, 549, 603, 439, 576, 713, 686, 493, 686, 494, 480, 200, 480, 549, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 750, 620, 247, 549, 167, 713, 500, 753, 753, 753, 753, 1042, 987, 603, 987, 603, 400, 549, 411, 549, 549, 713, 494, 460, 549, 549, 549, 549, 1000, 603, 1000, 658, 823, 686, 795, 987, 768, 768, 823, 768, 768, 713, 713, 713, 713, 713, 713, 713, 768, 713, 790, 790, 890, 823, 549, 250, 713, 603, 603, 1042, 987, 603, 987, 603, 494, 329, 790, 790, 786, 713, 384, 384, 384, 384, 384, 384, 494, 494, 494, 494, 0, 329, 274, 686, 686, 686, 384, 384, 384, 384, 384, 384, 494, 494, 494, 0],
+        
+        'zapfdingbats'=>[0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 278, 974, 961, 974, 980, 719, 789, 790, 791, 690, 960, 939, 549, 855, 911, 933, 911, 945, 974, 755, 846, 762, 761, 571, 677, 763, 760, 759, 754, 494, 552, 537, 577, 692, 786, 788, 788, 790, 793, 794, 816, 823, 789, 841, 823, 833, 816, 831, 923, 744, 723, 749, 790, 792, 695, 776, 768, 792, 759, 707, 708, 682, 701, 826, 815, 789, 789, 707, 687, 696, 689, 786, 787, 713, 791, 785, 791, 873, 761, 762, 762, 759, 759, 892, 892, 788, 784, 438, 138, 277, 415, 392, 392, 668, 668, 0, 390, 390, 317, 317, 276, 276, 509, 509, 410, 410, 234, 234, 334, 334, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 732, 544, 544, 910, 667, 760, 760, 776, 595, 694, 626, 788, 788, 788, 788, 788, 788, 788, 788, 788, 788, 788, 788, 788, 788, 788, 788, 788, 788, 788, 788, 788, 788, 788, 788, 788, 788, 788, 788, 788, 788, 788, 788, 788, 788, 788, 788, 788, 788, 788, 788, 894, 838, 1016, 458, 748, 924, 748, 918, 927, 928, 928, 834, 873, 828, 924, 924, 917, 930, 931, 463, 883, 836, 836, 867, 867, 696, 696, 874, 0, 874, 760, 946, 771, 865, 771, 888, 967, 888, 831, 873, 927, 970, 918, 0]
+    }
+
+    def initialize(orientation='P', unit='mm', format='A4')
+        # Initialization of properties
+        @page=0
+        @n=2
+        @buffer=''
+        @pages=[]
+        @OrientationChanges=[]
+        @state=0
+        @fonts={}
+        @FontFiles={}
+        @diffs=[]
+        @images={}
+        @links=[]
+        @PageLinks={}
+        @InFooter=false
+        @FontFamily=''
+        @FontStyle=''
+        @FontSizePt=12
+        @underline= false
+        @DrawColor='0 G'
+        @FillColor='0 g'
+        @TextColor='0 g'
+        @ColorFlag=false
+        @ws=0
+        @offsets=[]
+
+        # Standard fonts
+        @CoreFonts={}
+        @CoreFonts['courier']='Courier'
+        @CoreFonts['courierB']='Courier-Bold'
+        @CoreFonts['courierI']='Courier-Oblique'
+        @CoreFonts['courierBI']='Courier-BoldOblique'
+        @CoreFonts['helvetica']='Helvetica'
+        @CoreFonts['helveticaB']='Helvetica-Bold'
+        @CoreFonts['helveticaI']='Helvetica-Oblique'
+        @CoreFonts['helveticaBI']='Helvetica-BoldOblique'
+        @CoreFonts['times']='Times-Roman'
+        @CoreFonts['timesB']='Times-Bold'
+        @CoreFonts['timesI']='Times-Italic'
+        @CoreFonts['timesBI']='Times-BoldItalic'
+        @CoreFonts['symbol']='Symbol'
+        @CoreFonts['zapfdingbats']='ZapfDingbats'
+
+        # Scale factor
+        if unit=='pt'
+            @k=1
+        elsif unit=='mm'
+            @k=72/25.4
+        elsif unit=='cm'
+            @k=72/2.54;
+        elsif unit=='in'
+            @k=72
+        else
+            raise 'Incorrect unit: '+unit
+        end
+
+        # Page format
+        if format.is_a? String
+            format.downcase!
+            if format=='a3'
+                format=[841.89,1190.55]
+            elsif format=='a4'
+                format=[595.28,841.89]
+            elsif format=='a5'
+                format=[420.94,595.28]
+            elsif format=='letter'
+                format=[612,792]
+            elsif format=='legal'
+                format=[612,1008]
+            else
+                raise 'Unknown page format: '+format
+            end
+            @fwPt,@fhPt=format
+        else
+            @fwPt=format[0]*@k
+            @fhPt=format[1]*@k
+        end
+        @fw=@fwPt/@k;
+        @fh=@fhPt/@k;
+
+        # Page orientation
+        orientation.downcase!
+        if orientation=='p' or orientation=='portrait'
+            @DefOrientation='P'
+            @wPt=@fwPt
+            @hPt=@fhPt
+        elsif orientation=='l' or orientation=='landscape'
+            @DefOrientation='L'
+            @wPt=@fhPt
+            @hPt=@fwPt
+        else
+            raise 'Incorrect orientation: '+orientation
+        end
+        @CurOrientation=@DefOrientation
+        @w=@wPt/@k
+        @h=@hPt/@k
+
+        # Page margins (1 cm)
+        margin=28.35/@k
+        SetMargins(margin,margin)
+        # Interior cell margin (1 mm)
+        @cMargin=margin/10
+        # Line width (0.2 mm)
+        @LineWidth=0.567/@k
+        # Automatic page break
+        SetAutoPageBreak(true,2*margin)
+        # Full width display mode
+        SetDisplayMode('fullwidth')
+        # Enable compression
+        SetCompression(true)
+        # Set default PDF version number
+        @PDFVersion='1.3'
+    end
+
+    def SetMargins(left, top, right=-1)
+        # Set left, top and right margins
+        @lMargin=left
+        @tMargin=top
+        right=left if right==-1
+        @rMargin=right
+    end
+
+    def SetLeftMargin(margin)
+        # Set left margin
+        @lMargin=margin
+        @x=margin if @page>0 and @x<margin
+    end
+
+    def SetTopMargin(margin)
+        # Set top margin
+        @tMargin=margin
+    end
+
+    def SetRightMargin(margin)
+        #Set right margin
+        @rMargin=margin
+    end
+
+    def SetAutoPageBreak(auto, margin=0)
+        # Set auto page break mode and triggering margin
+        @AutoPageBreak=auto
+        @bMargin=margin
+        @PageBreakTrigger=@h-margin
+    end
+
+    def SetDisplayMode(zoom, layout='continuous')
+        # Set display mode in viewer
+        if zoom=='fullpage' or zoom=='fullwidth' or zoom=='real' or
+            zoom=='default' or not zoom.kind_of? String
+
+            @ZoomMode=zoom;
+        elsif zoom=='zoom'
+            @ZoomMode=layout
+        else
+            raise 'Incorrect zoom display mode: '+zoom
+        end
+        if layout=='single' or layout=='continuous' or layout=='two' or
+            layout=='default'
+
+            @LayoutMode=layout
+        elsif zoom!='zoom'
+            raise 'Incorrect layout display mode: '+layout
+        end
+    end
+
+    def SetCompression(compress)
+        # Set page compression
+        @compress = compress
+    end
+
+    def SetTitle(title)
+        # Title of document
+        @title=title
+    end
+
+    def SetSubject(subject)
+        # Subject of document
+        @subject=subject
+    end
+
+    def SetAuthor(author)
+        # Author of document
+        @author=author
+    end
+
+    def SetKeywords(keywords)
+        # Keywords of document
+        @keywords=keywords
+    end
+
+    def SetCreator(creator)
+        # Creator of document
+        @creator=creator
+    end
+
+    def AliasNbPages(aliasnb='{nb}')
+        # Define an alias for total number of pages
+        @AliasNbPages=aliasnb
+    end
+    
+    def Error(msg)
+        raise 'FPDF error: '+msg
+    end
+
+    def Open
+        # Begin document
+        @state=1
+    end
+
+    def Close
+        # Terminate document
+        return if @state==3
+        self.AddPage if @page==0
+        # Page footer
+        @InFooter=true
+        self.Footer
+        @InFooter=false
+        # Close page
+        endpage
+        # Close document
+        enddoc
+    end
+
+    def AddPage(orientation='')
+        # Start a new page
+        self.Open if @state==0
+        family=@FontFamily
+        style=@FontStyle+(@underline ? 'U' : '')
+        size=@FontSizePt
+        lw=@LineWidth
+        dc=@DrawColor
+        fc=@FillColor
+        tc=@TextColor
+        cf=@ColorFlag
+        if @page>0
+            # Page footer
+            @InFooter=true
+            self.Footer
+            @InFooter=false
+            # Close page
+            endpage
+        end
+        # Start new page
+        beginpage(orientation)
+        # Set line cap style to square
+        out('2 J')
+        # Set line width
+        @LineWidth=lw
+        out(sprintf('%.2f w',lw*@k))
+        # Set font
+        SetFont(family,style,size) if family
+        # Set colors
+        @DrawColor=dc
+        out(dc) if dc!='0 G'
+        @FillColor=fc
+        out(fc) if fc!='0 g'
+        @TextColor=tc
+        @ColorFlag=cf
+        # Page header
+        self.Header
+        # Restore line width
+        if @LineWidth!=lw
+            @LineWidth=lw
+            out(sprintf('%.2f w',lw*@k))
+        end
+        # Restore font
+        self.SetFont(family,style,size) if family
+        # Restore colors
+        if @DrawColor!=dc
+            @DrawColor=dc
+            out(dc)
+        end
+        if @FillColor!=fc
+            @FillColor=fc
+            out(fc)
+        end
+        @TextColor=tc
+        @ColorFlag=cf
+    end
+
+    def Header
+        # To be implemented in your inherited class
+    end
+
+    def Footer
+        # To be implemented in your inherited class
+    end
+
+    def PageNo
+        # Get current page number
+        @page
+    end
+
+    def SetDrawColor(r,g=-1,b=-1)
+        # Set color for all stroking operations
+        if (r==0 and g==0 and b==0) or g==-1
+            @DrawColor=sprintf('%.3f G',r/255.0)
+        else
+            @DrawColor=sprintf('%.3f %.3f %.3f RG',r/255.0,g/255.0,b/255.0)
+        end
+        out(@DrawColor) if(@page>0)
+    end
+
+    def SetFillColor(r,g=-1,b=-1)
+        # Set color for all filling operations
+        if (r==0 and g==0 and b==0) or g==-1
+            @FillColor=sprintf('%.3f g',r/255.0)
+        else
+            @FillColor=sprintf('%.3f %.3f %.3f rg',r/255.0,g/255.0,b/255.0)
+        end
+        @ColorFlag=(@FillColor!=@TextColor)
+        out(@FillColor) if(@page>0)
+    end
+
+    def SetTextColor(r,g=-1,b=-1)
+        # Set color for text
+        if (r==0 and g==0 and b==0) or g==-1
+            @TextColor=sprintf('%.3f g',r/255.0)
+        else
+            @TextColor=sprintf('%.3f %.3f %.3f rg',r/255.0,g/255.0,b/255.0)
+        end
+        @ColorFlag=(@FillColor!=@TextColor)
+    end
+
+    def GetStringWidth(s)
+        # Get width of a string in the current font
+        cw=@CurrentFont['cw']
+        w=0
+        s.each_byte do |c|
+            w=w+cw[c]
+        end
+        w*@FontSize/1000.0
+    end
+
+    def SetLineWidth(width)
+        # Set line width
+        @LineWidth=width
+        out(sprintf('%.2f w',width*@k)) if @page>0
+    end
+
+    def Line(x1, y1, x2, y2)
+        # Draw a line
+        out(sprintf('%.2f %.2f m %.2f %.2f l S',
+            x1*@k,(@h-y1)*@k,x2*@k,(@h-y2)*@k))
+    end
+
+    def Rect(x, y, w, h, style='')
+        # Draw a rectangle
+        if style=='F'
+            op='f'
+        elsif style=='FD' or style=='DF'
+            op='B'
+        else
+            op='S'
+        end
+        out(sprintf('%.2f %.2f %.2f %.2f re %s', x*@k,(@h-y)*@k,w*@k,-h*@k,op))
+    end
+
+    def AddFont(family, style='', file='')
+         # Add a TrueType or Type1 font
+         family = family.downcase
+         family = 'helvetica' if family == 'arial'
+
+         style = style.upcase
+         style = 'BI' if style == 'IB'
+
+        fontkey = family + style
+
+        if @fonts.has_key?(fontkey)
+             self.Error("Font already added: #{family} #{style}")
+        end
+
+        file = family.gsub(' ', '') + style.downcase + '.rb' if file == ''
+
+        if self.class.const_defined? 'FPDF_FONTPATH'
+            if FPDF_FONTPATH[-1,1] == '/'
+                file = FPDF_FONTPATH + file
+            else
+                file = FPDF_FONTPATH + '/' + file
+            end
+        end
+        
+        # Changed from "require file" to fix bug reported by Hans Allis.
+        load file
+
+        if FontDef.desc.nil?
+           self.Error("Could not include font definition file #{file}")
+        end
+
+        i = @fonts.length + 1
+
+        @fonts[fontkey] = {'i'   => i,
+                          'type' => FontDef.type,
+                          'name' => FontDef.name,
+                          'desc' => FontDef.desc,
+                            'up' => FontDef.up,
+                            'ut' => FontDef.ut,
+                            'cw' => FontDef.cw,
+                           'enc' => FontDef.enc,
+                          'file' => FontDef.file
+                       }
+
+        if FontDef.diff
+            # Search existing encodings
+            idx = @diffs.index(FontDef.diff)
+            
+            unless idx
+                @diffs.push(FontDef.diff)
+                @fonts[fontkey]['diff'] = @diffs.length
+            else
+                @fonts[fontkey]['diff'] = idx + 1
+            end
+        end
+
+        if FontDef.file
+             if FontDef.type == 'TrueType'
+                 @FontFiles[FontDef.file] = {'length1' => FontDef.originalsize}
+             else
+                 @FontFiles[FontDef.file] = {'length1' => FontDef.size1, 'length2' => FontDef.size2}
+            end
+        end
+
+        return self
+    end
+
+    def SetFont(family, style='', size=0)
+        # Select a font; size given in points
+        family.downcase!
+        family=@FontFamily if family==''
+        if family=='arial'
+            family='helvetica'
+        elsif family=='symbol' or family=='zapfdingbats'
+            style=''
+        end
+        style.upcase!
+        unless style.index('U').nil?
+            @underline=true
+            style.gsub!('U','')
+        else
+            @underline=false;
+        end
+        style='BI' if style=='IB'
+        size=@FontSizePt if size==0
+        # Test if font is already selected
+        return if @FontFamily==family and
+            @FontStyle==style and @FontSizePt==size
+        # Test if used for the first time
+        fontkey=family+style
+        unless @fonts.has_key?(fontkey)
+            if @CoreFonts.has_key?(fontkey)
+                unless Charwidths.has_key?(fontkey)
+                    raise 'Font unavailable'
+                end
+                @fonts[fontkey]={
+                    'i'=>@fonts.size,
+                    'type'=>'core',
+                    'name'=>@CoreFonts[fontkey],
+                    'up'=>-100,
+                    'ut'=>50,
+                    'cw'=>Charwidths[fontkey]}
+            else
+                raise 'Font unavailable'
+            end
+        end
+
+        #Select it
+        @FontFamily=family
+        @FontStyle=style;
+        @FontSizePt=size
+        @FontSize=size/@k;
+        @CurrentFont=@fonts[fontkey]
+        if @page>0
+            out(sprintf('BT /F%d %.2f Tf ET', @CurrentFont['i'], @FontSizePt))
+        end
+    end
+
+    def SetFontSize(size)
+        # Set font size in points
+        return if @FontSizePt==size
+        @FontSizePt=size
+        @FontSize=size/@k
+        if @page>0
+            out(sprintf('BT /F%d %.2f Tf ET',@CurrentFont['i'],@FontSizePt))
+        end
+    end
+
+    def AddLink
+        # Create a new internal link
+        @links.push([0, 0])
+        @links.size
+    end
+
+    def SetLink(link, y=0, page=-1)
+        # Set destination of internal link
+        y=@y if y==-1
+        page=@page if page==-1
+        @links[link]=[page, y]
+    end
+
+    def Link(x, y, w, h, link)
+        # Put a link on the page
+        @PageLinks[@page]=Array.new unless @PageLinks.has_key?(@page)
+        @PageLinks[@page].push([x*@k,@hPt-y*@k,w*@k,h*@k,link])
+    end
+
+    def Text(x, y, txt)
+        # Output a string
+        txt.gsub!(')', '\\)')
+        txt.gsub!('(', '\\(')
+        txt.gsub!('\\', '\\\\')
+        s=sprintf('BT %.2f %.2f Td (%s) Tj ET',x*@k,(@h-y)*@k,txt);
+        s=s+' '+dounderline(x,y,txt) if @underline and txt!=''
+        s='q '+@TextColor+' '+s+' Q' if @ColorFlag
+        out(s)
+    end
+
+    def AcceptPageBreak
+        # Accept automatic page break or not
+        @AutoPageBreak
+    end
+
+    def Cell(w,h=0,txt='',border=0,ln=0,align='',fill=0,link='')
+        # Output a cell
+        if @y+h>@PageBreakTrigger and !@InFooter and self.AcceptPageBreak
+            # Automatic page break
+            x=@x
+            ws=@ws
+            if ws>0
+                @ws=0
+                out('0 Tw')
+            end
+            self.AddPage(@CurOrientation)
+            @x=x
+            if ws>0
+                @ws=ws
+                out(sprintf('%.3f Tw',ws*@k))
+            end
+        end
+        w=@w-@rMargin-@x if w==0
+        s=''
+        if fill==1 or border==1
+            if fill==1
+                op=(border==1) ? 'B' : 'f'
+            else
+                op='S'
+            end
+            s=sprintf('%.2f %.2f %.2f %.2f re %s ',@x*@k,(@h-@y)*@k,w*@k,-h*@k,op)
+        end
+        if border.is_a? String
+            x=@x
+            y=@y
+            unless border.index('L').nil?
+                s=s+sprintf('%.2f %.2f m %.2f %.2f l S ',
+                    x*@k,(@h-y)*@k,x*@k,(@h-(y+h))*@k)
+            end
+            unless border.index('T').nil?
+                s=s+sprintf('%.2f %.2f m %.2f %.2f l S ',
+                    x*@k,(@h-y)*@k,(x+w)*@k,(@h-y)*@k)
+            end
+            unless border.index('R').nil?
+                s=s+sprintf('%.2f %.2f m %.2f %.2f l S ',
+                    (x+w)*@k,(@h-y)*@k,(x+w)*@k,(@h-(y+h))*@k)
+            end
+            unless border.index('B').nil?
+                s=s+sprintf('%.2f %.2f m %.2f %.2f l S ',
+                    x*@k,(@h-(y+h))*@k,(x+w)*@k,(@h-(y+h))*@k)
+            end
+        end
+        if txt!=''
+            if align=='R'
+                dx=w-@cMargin-self.GetStringWidth(txt)
+            elsif align=='C'
+                dx=(w-self.GetStringWidth(txt))/2
+            else
+                dx=@cMargin
+            end
+            txt = txt.gsub(')', '\\)')
+            txt.gsub!('(', '\\(')
+            txt.gsub!('\\', '\\\\')
+            if @ColorFlag
+                s=s+'q '+@TextColor+' '
+            end
+            s=s+sprintf('BT %.2f %.2f Td (%s) Tj ET',
+                (@x+dx)*@k,(@h-(@y+0.5*h+0.3*@FontSize))*@k,txt)
+            s=s+' '+dounderline(@x+dx,@y+0.5*h+0.3*@FontSize,txt) if @underline
+            s=s+' Q' if @ColorFlag
+            if link and link != ''
+                Link(@x+dx,@y+0.5*h-0.5*@FontSize,GetStringWidth(txt),@FontSize,link)
+            end
+        end
+        out(s) if s
+        @lasth=h
+        if ln>0
+            # Go to next line
+            @y=@y+h
+            @x=@lMargin if ln==1
+        else
+            @x=@x+w
+        end
+    end
+
+    def MultiCell(w,h,txt,border=0,align='J',fill=0)
+        # Output text with automatic or explicit line breaks
+        cw=@CurrentFont['cw']
+        w=@w-@rMargin-@x if w==0
+        wmax=(w-2*@cMargin)*1000/@FontSize
+        s=txt.gsub('\r','')
+        nb=s.length
+        nb=nb-1 if nb>0 and s[nb-1].chr=='\n'
+        b=0
+        if border!=0
+            if border==1
+                border='LTRB'
+                b='LRT'
+                b2='LR'
+            else
+                b2=''
+                b2='L' unless border.index('L').nil?
+                b2=b2+'R' unless border.index('R').nil?
+                b=(not border.index('T').nil?) ? (b2+'T') : b2
+            end
+        end
+        sep=-1
+        i=0
+        j=0
+        l=0
+        ns=0
+        nl=1
+        while i<nb
+            # Get next character
+            c=s[i].chr
+            if c=="\n"
+                # Explicit line break
+                if @ws>0
+                    @ws=0
+                    out('0 Tw')
+                end
+                
+                # Changed from s[j..i] to fix bug reported by Hans Allis.
+                self.Cell(w,h,s[j..i-1],b,2,align,fill) 
+                
+                i=i+1
+                sep=-1
+                j=i
+                l=0
+                ns=0
+                nl=nl+1
+                b=b2 if border and nl==2
+            else
+                if c==' '
+                    sep=i
+                    ls=l
+                    ns=ns+1
+                end
+                l=l+cw[c[0]]
+                if l>wmax
+                    # Automatic line break
+                    if sep==-1
+                        i=i+1 if i==j
+                        if @ws>0
+                            @ws=0
+                            out('0 Tw')
+                        end
+                        self.Cell(w,h,s[j..i],b,2,align,fill)
+                    else
+                        if align=='J'
+                            @ws=(ns>1) ? (wmax-ls)/1000.0*@FontSize/(ns-1) : 0
+                            out(sprintf('%.3f Tw',@ws*@k))
+                        end
+                        self.Cell(w,h,s[j..sep],b,2,align,fill)
+                        i=sep+1
+                    end
+                    sep=-1
+                    j=i
+                    l=0
+                    ns=0
+                    nl=nl+1
+                    b=b2 if border and nl==2
+                else
+                    i=i+1
+                end
+            end
+        end
+
+        # Last chunk
+        if @ws>0
+            @ws=0
+            out('0 Tw')
+        end
+        b=b+'B' if border!=0 and not border.index('B').nil?
+        self.Cell(w,h,s[j..i],b,2,align,fill)
+        @x=@lMargin
+    end
+    
+    def Write(h,txt,link='')
+        # Output text in flowing mode
+        cw=@CurrentFont['cw']
+        w=@w-@rMargin-@x
+        wmax=(w-2*@cMargin)*1000/@FontSize
+        s=txt.gsub("\r",'')
+        nb=s.length
+        sep=-1
+        i=0
+        j=0
+        l=0
+        nl=1
+        while i<nb
+            # Get next character
+            c=s[i]
+            if c=="\n"[0]
+                # Explicit line break
+                self.Cell(w,h,s[j,i-j],0,2,'',0,link)
+                i=i+1
+                sep=-1
+                j=i
+                l=0
+                if nl==1
+                    @x=@lMargin
+                    w=@w-@rMargin-@x
+                    wmax=(w-2*@cMargin)*1000/@FontSize
+                end
+                nl=nl+1
+                next
+            end
+            if c==' '[0]
+                sep=i
+                ls=l
+            end
+            l=l+cw[c];
+            if l>wmax
+                # Automatic line break
+                if sep==-1
+                    if @x>@lMargin
+                        # Move to next line
+                        @x=@lMargin
+                        @y=@y+h
+                        w=@w-@rMargin-@x
+                        wmax=(w-2*@cMargin)*1000/@FontSize
+                        i=i+1
+                        nl=nl+1
+                        next
+                    end
+                    i=i+1 if i==j
+                    self.Cell(w,h,s[j,i-j],0,2,'',0,link)
+                else
+                    self.Cell(w,h,s[j,sep-j],0,2,'',0,link)
+                    i=sep+1
+                end
+                sep=-1
+                j=i
+                l=0
+                if nl==1
+                    @x=@lMargin
+                    w=@w-@rMargin-@x
+                    wmax=(w-2*@cMargin)*1000/@FontSize
+                end
+                nl=nl+1
+            else
+                i=i+1
+            end
+        end
+        # Last chunk
+        self.Cell(l/1000.0*@FontSize,h,s[j,i],0,0,'',0,link) if i!=j
+    end
+    
+    def Image(file,x,y,w,h=0,type='',link='')
+        # Put an image on the page
+        unless @images.has_key?(file)
+            # First use of image, get info
+            if type==''
+                pos=file.rindex('.')
+                if pos.nil?
+                    self.Error('Image file has no extension and no type was '+
+                        'specified: '+file)
+                end
+                type=file[pos+1..-1]
+            end
+            type.downcase!
+            if type=='jpg' or type=='jpeg'
+                info=parsejpg(file)
+            elsif type=='png'
+                info=parsepng(file)
+            else
+                self.Error('Unsupported image file type: '+type)
+            end
+            info['i']=@images.length+1
+            @images[file]=info
+        else
+            info=@images[file]
+        end
+        # Automatic width or height calculation
+        w=h*info['w']/info['h'] if w==0
+        h=w*info['h']/info['w'] if h==0
+        out(sprintf('q %.2f 0 0 %.2f %.2f %.2f cm /I%d Do Q',
+            w*@k,h*@k,x*@k,(@h-(y+h))*@k,info['i']))
+        Link(x,y,w,h,link) if link and link != ''
+    end
+    
+    def Ln(h='')
+        # Line feed; default value is last cell height
+        @x=@lMargin
+        if h.kind_of?(String)
+            @y=@y+@lasth
+        else
+            @y=@y+h
+        end
+    end
+
+    def GetX
+        # Get x position
+        @x
+    end
+
+    def SetX(x)
+        # Set x position
+        if x>=0
+            @x=x
+        else
+            @x=@w+x
+        end
+    end
+
+    def GetY
+        # Get y position
+        @y
+    end
+
+    def SetY(y)
+        # Set y position and reset x
+        @x=@lMargin
+        if y>=0
+            @y=y
+        else
+            @y=@h+y
+        end
+    end
+
+    def SetXY(x,y)
+        # Set x and y positions
+        SetY(y)
+        SetX(x)
+    end
+    
+    def Output(file=nil)
+        # Output PDF to file or return as a string
+        
+        # Finish document if necessary
+        self.Close if(@state<3)
+        
+        if file.nil?
+            # Return as a string
+            return @buffer
+        else
+            # Save file locally
+            open(file,'wb') do |f|
+                f.write(@buffer)
+            end
+        end
+    end
+
+    private
+  
+    def putpages
+        nb=@page
+        unless @AliasNbPages.nil? or @AliasNbPages==''
+            # Replace number of pages
+            1.upto(nb) do |n|
+                @pages[n].gsub!(@AliasNbPages,nb.to_s)
+            end
+        end
+        if @DefOrientation=='P'
+            wPt=@fwPt
+            hPt=@fhPt
+        else
+            wPt=@fhPt
+            hPt=@fwPt
+        end
+        filter=(@compress) ? '/Filter /FlateDecode ' : ''
+        1.upto(nb) do |n|
+            # Page
+            newobj
+            out('<</Type /Page')
+            out('/Parent 1 0 R')
+            unless @OrientationChanges[n].nil?
+                out(sprintf('/MediaBox [0 0 %.2f %.2f]',hPt,wPt))
+            end
+            out('/Resources 2 0 R')
+            if @PageLinks[n]
+                # Links
+                annots='/Annots ['
+                @PageLinks[n].each do |pl|
+                    rect=sprintf('%.2f %.2f %.2f %.2f',
+                        pl[0],pl[1],pl[0]+pl[2],pl[1]-pl[3])
+                    annots=annots+'<</Type /Annot /Subtype /Link /Rect ['+rect+
+                        '] /Border [0 0 0] '
+                    if pl[4].kind_of?(String)
+                        annots=annots+'/A <</S /URI /URI '+textstring(pl[4])+
+                            '>>>>'
+                    else
+                        l=@links[pl[4]]
+                        h=@OrientationChanges[l[0]].nil? ? hPt : wPt
+                        annots=annots+sprintf(
+                            '/Dest [%d 0 R /XYZ 0 %.2f null]>>',
+                            1+2*l[0],h-l[1]*@k)
+                    end
+                end
+                out(annots+']')
+            end
+            out('/Contents '+(@n+1).to_s+' 0 R>>')
+            out('endobj')
+            # Page content
+            p=(@compress) ? Zlib::Deflate.deflate(@pages[n]) : @pages[n]
+            newobj
+            out('<<'+filter+'/Length '+p.length.to_s+'>>')
+            putstream(p)
+            out('endobj')
+        end
+        # Pages root
+        @offsets[1]=@buffer.length
+        out('1 0 obj')
+        out('<</Type /Pages')
+        kids='/Kids ['
+        nb.times do |i|
+            kids=kids+(3+2*i).to_s+' 0 R '
+        end
+        out(kids+']')
+        out('/Count '+nb.to_s)
+        out(sprintf('/MediaBox [0 0 %.2f %.2f]',wPt,hPt))
+        out('>>')
+        out('endobj')
+    end
+    
+    def putfonts
+        nf=@n
+        @diffs.each do |diff|
+            # Encodings
+            newobj
+            out('<</Type /Encoding /BaseEncoding /WinAnsiEncoding /Differences '+
+                '['+diff+']>>')
+            out('endobj')
+        end
+
+        @FontFiles.each do |file, info|
+            # Font file embedding
+            newobj
+            @FontFiles[file]['n'] = @n
+
+            if self.class.const_defined? 'FPDF_FONTPATH' then
+                if FPDF_FONTPATH[-1,1] == '/' then
+                    file = FPDF_FONTPATH + file
+                else
+                    file = FPDF_FONTPATH + '/' + file
+                end
+            end
+
+            size = File.size(file)
+            unless File.exists?(file)
+                Error('Font file not found')
+            end
+
+            out('<</Length ' + size.to_s)
+
+            if file[-2, 2] == '.z' then
+                out('/Filter /FlateDecode')
+            end
+            out('/Length1 ' + info['length1'])
+            out('/Length2 ' + info['length2'] + ' /Length3 0') if info['length2']
+            out('>>')
+            open(file, 'rb') do |f|
+                putstream(f.read())
+            end
+            out('endobj')
+        end
+
+        file = 0
+        @fonts.each do |k, font|
+            # Font objects
+            @fonts[k]['n']=@n+1
+            type=font['type']
+            name=font['name']
+            if type=='core'
+                # Standard font
+                newobj
+                out('<</Type /Font')
+                out('/BaseFont /'+name)
+                out('/Subtype /Type1')
+                if name!='Symbol' and name!='ZapfDingbats'
+                    out('/Encoding /WinAnsiEncoding')
+                end
+                out('>>')
+                out('endobj')
+            elsif type=='Type1' or type=='TrueType'
+                # Additional Type1 or TrueType font
+                newobj
+                out('<</Type /Font')
+                out('/BaseFont /'+name)
+                out('/Subtype /'+type)
+                out('/FirstChar 32 /LastChar 255')
+                out('/Widths '+(@n+1).to_s+' 0 R')
+                out('/FontDescriptor '+(@n+2).to_s+' 0 R')
+                if font['enc'] and font['enc'] != ''
+                    unless font['diff'].nil?
+                        out('/Encoding '+(nf+font['diff']).to_s+' 0 R')
+                    else
+                        out('/Encoding /WinAnsiEncoding')
+                    end
+                end
+                out('>>')
+                out('endobj')
+                # Widths
+                newobj
+                cw=font['cw']
+                s='['
+                32.upto(255) do |i|
+                    s << cw[i].to_s+' '
+                end
+                out(s+']')
+                out('endobj')
+                # Descriptor
+                newobj
+                s='<</Type /FontDescriptor /FontName /'+name
+                font['desc'].each do |k, v|
+                    s << ' /'+k+' '+v
+                end
+                file=font['file']
+                if file
+                    s << ' /FontFile'+(type=='Type1' ? '' : '2')+' '+
+                        @FontFiles[file]['n'].to_s+' 0 R'
+                end
+                out(s+'>>')
+                out('endobj')
+            else
+                # Allow for additional types
+                mtd='put'+type.downcase
+                unless self.respond_to?(mtd)
+                    self.Error('Unsupported font type: '+type)
+                end
+                self.send(mtd, font)
+            end
+        end
+    end
+    
+    def putimages
+        filter=(@compress) ? '/Filter /FlateDecode ' : ''
+        @images.each do |file, info|
+            newobj
+            @images[file]['n']=@n
+            out('<</Type /XObject')
+            out('/Subtype /Image')
+            out('/Width '+info['w'].to_s)
+            out('/Height '+info['h'].to_s)
+            if info['cs']=='Indexed'
+                out("/ColorSpace [/Indexed /DeviceRGB #{info['pal'].length/3-1} #{(@n+1)} 0 R]")
+            else
+                out('/ColorSpace /'+info['cs'])
+                if info['cs']=='DeviceCMYK'
+                    out('/Decode [1 0 1 0 1 0 1 0]')
+                end
+            end
+            out('/BitsPerComponent '+info['bpc'].to_s)
+            out('/Filter /'+info['f']) if info['f']
+            unless info['parms'].nil?
+                out(info['parms'])
+            end
+            if info['trns'] and info['trns'].kind_of?(Array)
+                trns=''
+                info['trns'].length.times do |i|
+                    trns=trns+info['trns'][i].to_s+' '+info['trns'][i].to_s+' '
+                end
+                out('/Mask ['+trns+']')
+            end
+            out('/Length '+info['data'].length.to_s+'>>')
+            putstream(info['data'])
+            @images[file]['data']=nil
+            out('endobj')
+            # Palette
+            if info['cs']=='Indexed'
+                newobj
+                pal=(@compress) ? Zlib::Deflate.deflate(info['pal']) : info['pal']
+                out('<<'+filter+'/Length '+pal.length.to_s+'>>')
+                putstream(pal)
+                out('endobj')
+            end
+        end
+    end
+
+    def putxobjectdict
+        @images.each_value do |image|
+            out('/I'+image['i'].to_s+' '+image['n'].to_s+' 0 R')
+        end
+    end
+
+    def putresourcedict
+        out('/ProcSet [/PDF /Text /ImageB /ImageC /ImageI]')
+        out('/Font <<')
+        @fonts.each_value do |font|
+            out('/F'+font['i'].to_s+' '+font['n'].to_s+' 0 R')
+        end
+        out('>>')
+        out('/XObject <<')
+        putxobjectdict
+        out('>>')
+    end
+
+    def putresources
+        putfonts
+        putimages
+        # Resource dictionary
+        @offsets[2]=@buffer.length
+        out('2 0 obj')
+        out('<<')
+        putresourcedict
+        out('>>')
+        out('endobj')
+    end
+    
+    def putinfo
+        out('/Producer '+textstring('Ruby FPDF '+FPDF_VERSION));
+        unless @title.nil?
+            out('/Title '+textstring(@title))
+        end
+        unless @subject.nil?
+            out('/Subject '+textstring(@subject))
+        end
+        unless @author.nil?
+            out('/Author '+textstring(@author))
+        end
+        unless @keywords.nil?
+            out('/Keywords '+textstring(@keywords))
+        end
+        unless @creator.nil?
+            out('/Creator '+textstring(@creator))
+        end
+        out('/CreationDate '+textstring('D: '+DateTime.now.to_s))
+    end
+    
+    def putcatalog
+        out('/Type /Catalog')
+        out('/Pages 1 0 R')
+        if @ZoomMode=='fullpage'
+            out('/OpenAction [3 0 R /Fit]')
+        elsif @ZoomMode=='fullwidth'
+            out('/OpenAction [3 0 R /FitH null]')
+        elsif @ZoomMode=='real'
+            out('/OpenAction [3 0 R /XYZ null null 1]')
+        elsif not @ZoomMode.kind_of?(String)
+            out('/OpenAction [3 0 R /XYZ null null '+(@ZoomMode/100)+']')
+        end
+        
+        if @LayoutMode=='single'
+            out('/PageLayout /SinglePage')
+        elsif @LayoutMode=='continuous'
+            out('/PageLayout /OneColumn')
+        elsif @LayoutMode=='two'
+            out('/PageLayout /TwoColumnLeft')
+        end
+    end
+
+    def putheader
+        out('%PDF-'+@PDFVersion)
+    end
+
+    def puttrailer
+        out('/Size '+(@n+1).to_s)
+        out('/Root '+@n.to_s+' 0 R')
+        out('/Info '+(@n-1).to_s+' 0 R')
+    end
+
+    def enddoc
+        putheader
+        putpages
+        putresources
+        # Info
+        newobj
+        out('<<')
+        putinfo
+        out('>>')
+        out('endobj')
+        # Catalog
+        newobj
+        out('<<')
+        putcatalog
+        out('>>')
+        out('endobj')
+        # Cross-ref
+        o=@buffer.length
+        out('xref')
+        out('0 '+(@n+1).to_s)
+        out('0000000000 65535 f ')
+        1.upto(@n) do |i|
+            out(sprintf('%010d 00000 n ',@offsets[i]))
+        end
+        # Trailer
+        out('trailer')
+        out('<<')
+        puttrailer
+        out('>>')
+        out('startxref')
+        out(o)
+        out('%%EOF')
+        state=3
+    end
+
+    def beginpage(orientation)
+        @page=@page+1
+        @pages[@page]=''
+        @state=2
+        @x=@lMargin
+        @y=@tMargin
+        @lasth=0
+        @FontFamily=''
+        # Page orientation
+        if orientation==''
+            orientation=@DefOrientation
+        else
+            orientation=orientation[0].chr.upcase
+            if orientation!=@DefOrientation
+                @OrientationChanges[@page]=true
+            end
+        end
+        if orientation!=@CurOrientation
+            # Change orientation
+            if orientation=='P'
+                @wPt=@fwPt
+                @hPt=@fhPt
+                @w=@fw
+                @h=@fh
+            else
+                @wPt=@fhPt
+                @hPt=@fwPt
+                @w=@fh
+                @h=@fw
+            end
+            @PageBreakTrigger=@h-@bMargin
+            @CurOrientation=orientation
+        end
+    end
+    
+    def endpage
+        # End of page contents
+        @state=1
+    end
+    
+    def newobj
+        # Begin a new object
+        @n=@n+1
+        @offsets[@n]=@buffer.length
+        out(@n.to_s+' 0 obj')
+    end
+
+    def dounderline(x,y,txt)
+        # Underline text
+        up=@CurrentFont['up']
+        ut=@CurrentFont['ut']
+        w=GetStringWidth(txt)+@ws*txt.count(' ')
+        sprintf('%.2f %.2f %.2f %.2f re f',
+            x*@k,(@h-(y-up/1000.0*@FontSize))*@k,w*@k,-ut/1000.0*@FontSizePt)
+    end
+    
+    def parsejpg(file)
+        # Extract info from a JPEG file
+        a=extractjpginfo(file)
+        raise "Missing or incorrect JPEG file: #{file}" if a.nil?
+
+        if a['channels'].nil? || a['channels']==3 then
+            colspace='DeviceRGB'
+        elsif a['channels']==4 then
+            colspace='DeviceCMYK'
+        else
+            colspace='DeviceGray'
+        end
+        bpc= a['bits'] ? a['bits'].to_i : 8
+
+        # Read whole file
+        data = nil
+        open(file, 'rb') do |f|
+            data = f.read
+        end
+        return {'w'=>a['width'],'h'=>a['height'],'cs'=>colspace,'bpc'=>bpc,'f'=>'DCTDecode','data'=>data}
+    end
+
+    def parsepng(file)
+        # Extract info from a PNG file
+        f=open(file,'rb')
+        # Check signature
+        unless f.read(8)==137.chr+'PNG'+13.chr+10.chr+26.chr+10.chr
+            self.Error('Not a PNG file: '+file)
+        end
+        # Read header chunk
+        f.read(4)
+        if f.read(4)!='IHDR'
+            self.Error('Incorrect PNG file: '+file)
+        end
+        w=freadint(f)
+        h=freadint(f)
+        bpc=f.read(1)[0]
+        if bpc>8
+            self.Error('16-bit depth not supported: '+file)
+        end
+        ct=f.read(1)[0]
+        if ct==0
+            colspace='DeviceGray'
+        elsif ct==2
+            colspace='DeviceRGB'
+        elsif ct==3
+            colspace='Indexed'
+        else
+            self.Error('Alpha channel not supported: '+file)
+        end
+        if f.read(1)[0]!=0
+            self.Error('Unknown compression method: '+file)
+        end
+        if f.read(1)[0]!=0
+            self.Error('Unknown filter method: '+file)
+        end
+        if f.read(1)[0]!=0
+            self.Error('Interlacing not supported: '+file)
+        end
+        f.read(4)
+        parms='/DecodeParms <</Predictor 15 /Colors '+(ct==2 ? '3' : '1')+
+            ' /BitsPerComponent '+bpc.to_s+' /Columns '+w.to_s+'>>'
+        # Scan chunks looking for palette, transparency and image data
+        pal=''
+        trns=''
+        data=''
+        begin
+            n=freadint(f)
+            type=f.read(4)
+            if type=='PLTE'
+                # Read palette
+                pal=f.read(n)
+                f.read(4)
+            elsif type=='tRNS'
+                # Read transparency info
+                t=f.read(n)
+                if ct==0
+                    trns=[t[1]]
+                elsif ct==2
+                    trns=[t[1],t[3],t[5]]
+                else
+                    pos=t.index(0)
+                    trns=[pos] unless pos.nil?
+                end
+                f.read(4)
+            elsif type=='IDAT'
+                # Read image data block
+                data << f.read(n)
+                f.read(4)
+            elsif type=='IEND'
+                break
+            else
+                f.read(n+4)
+            end
+        end while n
+        if colspace=='Indexed' and pal==''
+            self.Error('Missing palette in '+file)
+        end
+        f.close
+        {'w'=>w,'h'=>h,'cs'=>colspace,'bpc'=>bpc,'f'=>'FlateDecode',
+            'parms'=>parms,'pal'=>pal,'trns'=>trns,'data'=>data}
+    end
+
+    def freadint(f)
+        # Read a 4-byte integer from file
+        a = f.read(4).unpack('N')
+        return a[0]
+    end
+
+    def freadshort(f)
+        a = f.read(2).unpack('n')
+        return a[0]
+    end
+
+    def freadbyte(f)
+        a = f.read(1).unpack('C')
+        return a[0]
+    end
+
+    def textstring(s)
+        # Format a text string
+        '('+escape(s)+')'
+    end
+
+    def escape(s)
+        # Add \ before \, ( and )
+        s.gsub('\\','\\\\').gsub('(','\\(').gsub(')','\\)')
+    end
+
+    def putstream(s)
+        out('stream')
+        out(s)
+        out('endstream')
+    end
+
+    def out(s)
+        # Add a line to the document
+        if @state==2
+            @pages[@page]=@pages[@page]+s+"\n"
+        else
+            @buffer=@buffer+s.to_s+"\n"
+        end
+    end
+
+    # jpeg marker codes
+
+    M_SOF0  = 0xc0
+    M_SOF1  = 0xc1
+    M_SOF2  = 0xc2
+    M_SOF3  = 0xc3
+
+    M_SOF5  = 0xc5
+    M_SOF6  = 0xc6
+    M_SOF7  = 0xc7
+
+    M_SOF9  = 0xc9
+    M_SOF10 = 0xca
+    M_SOF11 = 0xcb
+
+    M_SOF13 = 0xcd
+    M_SOF14 = 0xce
+    M_SOF15 = 0xcf
+
+    M_SOI   = 0xd8
+    M_EOI   = 0xd9
+    M_SOS   = 0xda
+
+    def extractjpginfo(file)
+        result = nil
+
+        open(file, "rb") do |f|
+            marker = jpegnextmarker(f)
+
+            if marker != M_SOI
+                return nil
+            end
+
+            while true
+                marker = jpegnextmarker(f)
+
+                case marker
+                  when M_SOF0,  M_SOF1,  M_SOF2,  M_SOF3,
+                       M_SOF5,  M_SOF6,  M_SOF7,  M_SOF9,
+                     M_SOF10, M_SOF11, M_SOF13, M_SOF14,
+                     M_SOF15 then
+
+                    length = freadshort(f)
+
+                    if result.nil?
+                        result = {}
+
+                        result['bits']     = freadbyte(f)
+                        result['height']   = freadshort(f)
+                        result['width']    = freadshort(f)
+                        result['channels'] = freadbyte(f)
+
+                        f.seek(length - 8, IO::SEEK_CUR)
+                    else
+                        f.seek(length - 2, IO::SEEK_CUR)
+                    end
+                when M_SOS, M_EOI then
+                    return result
+                else
+                    length = freadshort(f)
+                    f.seek(length - 2, IO::SEEK_CUR)
+                end
+            end
+        end
+    end
+
+    def jpegnextmarker(f)
+        while true
+            # look for 0xff
+            while (c = freadbyte(f)) != 0xff
+            end
+
+            c = freadbyte(f)
+
+            if c != 0
+                return c
+            end
+        end
+    end
+end