rghost 0.6.5

data/lib/rghost/ps/font.ps

@@ -0,0 +1,31 @@
+/fontsize 8 def
+/encoding_font { findfont dup length dict begin  { 1 index /FID ne  { def } { pop pop } ifelse } bind forall /Encoding ISOLatin1Encoding def currentdict end } def
+
+/Helvetica encoding_font
+/Helvetica-encoding exch definefont pop
+
+/Helvetica-Bold encoding_font
+/Helvetica-Bold-encoding exch definefont pop
+
+/Helvetica-Oblique encoding_font
+/Helvetica-Oblique-encoding exch definefont pop
+
+/Helvetica-BoldOblique encoding_font
+/Helvetica-BoldOblique-encoding exch definefont pop
+
+/font_normal{
+	/Helvetica-encoding findfont fontsize scalefont setfont
+} bind def
+
+/font_bold{
+	/Helvetica-Bold-encoding findfont fontsize scalefont setfont
+} bind def
+
+/font_italic{
+	/Helvetica-Oblique-encoding findfont fontsize scalefont setfont
+} bind def
+
+/font_bold_italic{
+	/Helvetica-BoldOblique-encoding findfont fontsize scalefont setfont
+} bind def
+

data/lib/rghost/ps/functions.ps

@@ -0,0 +1,646 @@
+%!
+
+/dados [
+
+[(2007-01-16 20:48:47)(0212345)(096430908)(-)(1)(03)(80)(-)(PRI1 BCH31)()(00)(-)(f)]
+[(2007-01-16 20:48:54)(0212345)(096697991)(-)(0)(03)(80)(-)(PRI1 BCH31)()(00)(-)(f)]
+[(2007-01-16 20:48:58)(0212345)(092647151)(-)(0)(03)(80)(-)(PRI1 BCH31)()(00)(-)(f)]
+[(2007-01-16 20:49:01)(0212345)(096735205)(-)(0)(03)(80)(-)(PRI1 BCH31)()(00)(-)(f)]
+[(2007-01-16 20:49:05)(0212345)(099341656)(-)(0)(03)(80)(-)(PRI1 BCH31)()(00)(-)(f)]
+[(2007-01-16 20:49:12)(0212345)(099888415)(-)(0)(03)(80)(-)(PRI1 BCH31)()(00)(-)(f)]
+[(2007-01-16 20:49:13)(0212345)(099888415)(-)(0)(03)(80)(-)(PRI1 BCH31)()(00)(-)(f)]
+[(2007-01-16 20:49:14)(0212345)(099888415)(-)(0)(03)(80)(-)(PRI1 BCH31)()(00)(-)(f)]
+[(2007-01-16 20:49:31)(0212345)(099191890)(-)(0)(03)(80)(-)(PRI1 BCH31)()(00)(-)(f)]
+[(2007-01-16 20:49:32)(0212345)(099888415)(-)(0)(03)(80)(-)(PRI1 BCH31)()(00)(-)(f)]
+[(2007-01-16 20:49:39)(0212345)(96835369)(-)(5)(03)(80)(-)()()(00)(-)(t)]
+[(2007-01-16 20:50:02)(0212345)(06575064)(-)(4)(10)(80)(72404)(PRI1 BCH31)(GSM13)(00)(72404)(F)]
+[(2007-01-16 20:50:14)(0212345)(96835369)(-)(0)(03)(80)(-)(PRI1 BCH31)()(00)(-)(f)]
+[(2007-01-16 20:50:18)(212345)(099139144)(-)(0)(03)(80)(-)(PRI1 BCH31)()(00)(-)(f)]
+[(2007-01-16 20:50:20)(212345)(099139144)(-)(0)(03)(80)(-)(PRI1 BCH31)()(00)(-)(f)]
+[(2007-01-16 20:50:35)(0212345)(02478494)(-)(10)(10)(80)(72404)(PRI1 BCH31)(GSM14)(00)(72404)(F)]
+[(2007-01-16 20:50:46)(0212345)(09993767)(-)(7)(10)(80)(72404)(PRI1 BCH28)(GSM18)(00)(72404)(F)]
+[(2007-01-16 20:50:43)(0212345)(06972222)(-)(10)(1F)(80)(72404)(PRI1 BCH30)(GSM15)(00)(72404)(T)]
+[(2007-01-16 20:50:44)(0212345)(09963865)(-)(11)(1F)(80)(72404)(PRI1 BCH29)(GSM17)(00)(72404)(T)]
+[(2007-01-16 20:50:50)(0212345)(6835369)(-)(10)(1F)(80)(72404)(PRI1 BCH27)(GSM19)(00)(72404)(T)]
+[(2007-01-16 20:51:09)(0212345)(06179639)(-)(11)(1F)(80)(72404)(PRI1 BCH31)(GSM20)(00)(72404)(T)]
+[(2007-01-16 20:51:58)(0212345)(02478494)(-)(6)(10)(80)(72404)(PRI1 BCH31)(GSM20)(00)(72404)(F)]
+[(2007-01-16 20:52:13)(0212345)(092920566)(-)(0)(10)(80)(-)(PRI1 BCH31)()(00)(72404)(F)]
+[(2007-01-16 20:52:33)(0212345)(06871845)(-)(11)(1F)(80)(72404)(PRI1 BCH31)(GSM21)(00)(72404)(T)]
+[(2007-01-16 20:52:57)(0212345)(01382565)(-)(8)(10)(80)(72404)(PRI1 BCH31)(GSM22)(00)(72404)(F)]
+[(2007-01-16 20:52:59)(0212345)(06972222)(-)(10)(1F)(80)(72404)(PRI1 BCH30)(GSM23)(00)(72404)(T)]
+[(2007-01-16 20:52:59)(0212345)(09948963)(-)(10)(10)(80)(72404)(PRI1 BCH29)(GSM24)(00)(72404)(F)]
+[(2007-01-16 20:53:14)(0212345)(09454154)(-)(10)(1F)(80)(72404)(PRI1 BCH31)(GSM25)(00)(72404)(T)]
+[(2007-01-16 20:53:30)(0212345)(01435343)(-)(11)(1F)(80)(72404)(PRI1 BCH31)(GSM13)(00)(72404)(T)]
+[(2007-01-16 20:53:44)(212345)(09139144)(-)(8)(10)(80)(72404)(PRI1 BCH30)(GSM26)(00)(72404)(F)]
+[(2007-01-16 20:54:31)(212345)(06754612)(-)(8)(10)(80)(72404)(PRI1 BCH31)(GSM27)(00)(72404)(F)]
+[(2007-01-16 20:54:43)(0212345)(01435345)(-)(10)(1F)(80)(72404)(PRI1 BCH30)(GSM28)(00)(72404)(T)]
+[(2007-01-16 20:54:43)(0212345)(06058383)(-)(11)(1F)(80)(72404)(PRI1 BCH29)(GSM01)(00)(72404)(T)]
+[(2007-01-16 20:55:17)(0212345)(02034585)(-)(12)(1F)(80)(72404)(PRI1 BCH31)(GSM02)(00)(72404)(T)]
+[(2007-01-16 20:55:48)(0212345)(02835220)(-)(11)(1F)(80)(72404)(PRI1 BCH31)(GSM04)(00)(72404)(T)]
+[(2007-01-16 20:56:07)(0212345)(02478494)(-)(10)(1F)(80)(72404)(PRI1 BCH31)(GSM05)(00)(72404)(T)]
+[(2007-01-16 20:57:19)(0212345)(092190179)(-)(41)(10)(80)(72404)(PRI1 BCH29)(GSM03)(00)(72404)(F)]
+[(2007-01-16 20:59:08)(0212345)(099855914)(+)(0)(10)(80)(72404)(PRI1 BCH29)(GSM10)(00)(72404)(F)]
+[(2007-01-16 20:59:38)(0212345)(099528439)(-)(39)(10)(80)(72404)(PRI1 BCH25)(GSM22)(00)(72404)(F)]
+[(2007-01-16 21:00:22)(0212345)(092839531)(-)(14)(7F)(80)(72404)(PRI1 BCH23)(GSM13)(00)(72404)(F)]
+[(2007-01-16 20:59:55)(0212345)(096385011)(+)(57)(10)(80)(72404)(PRI1 BCH24)(GSM11)(00)(72404)(T)]
+[(2007-01-16 21:02:07)(0212345)(096382459)(-)(32)(10)(80)(72404)(PRI1 BCH24)(GSM15)(00)(72404)(F)]
+[(2007-01-16 20:57:49)(212345)(096754612)(+)(299)(10)(80)(72404)(PRI1 BCH28)(GSM06)(00)(72404)(F)]
+[(2007-01-16 21:03:08)(212345)(91335548)(-)(0)(03)(80)(-)(PRI1 BCH28)()(00)(-)(f)]
+[(2007-01-16 21:03:19)(212345)(11977243)(-)(8)(10)(80)(72404)(PRI1 BCH28)(GSM23)(00)(72404)(F)]
+[(2007-01-16 21:03:37)(212345)(92024573)(-)(4)(10)(80)(72404)(PRI1 BCH28)(GSM17)(00)(72404)(F)]
+[(2007-01-16 21:02:48)(212345)(99842584)(+)(68)(10)(80)(72404)(PRI1 BCH23)(GSM19)(00)(72404)(T)]
+[(2007-01-16 21:03:39)(212345)(91054692)(-)(42)(10)(80)(72404)(PRI1 BCH24)(GSM24)(00)(72404)(F)]
+[(2007-01-16 21:04:29)(212345)(99842584)(-)(22)(29)(80)(72404)(PRI1 BCH28)(GSM24)(00)(72404)(T)]
+[(2007-01-16 21:04:48)(212345)(96575064)(-)(6)(10)(80)(72404)(PRI1 BCH21)(GSM27)(00)(72404)(F)]
+[(2007-01-16 21:04:47)(212345)(96382459)(-)(32)(10)(80)(72404)(PRI1 BCH23)(GSM26)(00)(72404)(F)]
+[(2007-01-16 21:05:21)(212345)(91259715)(+)(6)(10)(80)(72404)(PRI1 BCH28)(GSM28)(00)(72404)(F)]
+[(2007-01-16 21:05:49)(212345)(96991929)(+)(7)(10)(80)(72404)(PRI1 BCH23)(GSM01)(00)(72404)(T)]
+[(2007-01-16 21:06:37)(212345)(92243715)(-)(12)(10)(80)(72404)(PRI1 BCH19)(GSM04)(00)(72404)(F)]
+[(2007-01-16 21:06:45)(212345)(96930209)(-)(5)(03)(80)(-)()()(00)(72404)(t)]
+[(2007-01-16 20:59:32)(212345)(99855914)(+)(446)(10)(80)(72404)(PRI1 BCH26)(GSM18)(00)(72404)(T)]
+[(2007-01-16 21:07:24)(212345)(96440828)(-)(17)(10)(80)(72404)(PRI1 BCH26)(GSM05)(00)(72404)(F)]
+[(2007-01-16 21:07:38)(212345)(91435345)(-)(9)(10)(80)(72404)(PRI1 BCH19)(GSM17)(00)(72404)(F)]
+[(2007-01-16 21:01:19)(212345)(91283328)(+)(408)(90)(80)(72404)(PRI1 BCH25)(GSM14)(00)(72404)(T)]
+[(2007-01-16 21:08:00)(212345)(92243715)(-)(12)(1F)(80)(72404)(PRI1 BCH26)(GSM17)(00)(72404)(T)]
+[(2007-01-16 21:08:01)(212345)(96113337)(-)(39)(10)(80)(72404)(PRI1 BCH19)(GSM23)(00)(72404)(T)]
+[(2007-01-16 20:57:12)(212345)(99471354)(+)(720)(10)(80)(72404)(PRI1 BCH30)(GSM12)(00)(72404)(F)]
+[(2007-01-16 21:09:11)(212345)(92036539)(-)(1)(10)(80)(-)(PRI1 BCH25)()(00)(72404)(F)]
+[(2007-01-16 21:08:28)(212345)(91196496)(+)(60)(10)(80)(72404)(PRI1 BCH18)(GSM27)(00)(72404)(F)]
+[(2007-01-16 21:09:23)(212345)(92243715)(-)(13)(1F)(80)(72404)(PRI1 BCH30)(GSM10)(00)(72404)(T)]
+[(2007-01-16 21:09:05)(212345)(96770655)(-)(41)(1F)(80)(72404)(PRI1 BCH26)(GSM04)(00)(72404)(T)]
+[(2007-01-16 21:09:48)(212345)(91112623)(-)(8)(1F)(80)(72404)(PRI1 BCH30)(GSM17)(00)(72404)(F)]
+[(2007-01-16 21:09:17)(212345)(92243597)(-)(42)(10)(80)(72404)(PRI1 BCH19)(GSM05)(00)(72404)(F)]
+[(2007-01-16 21:10:05)(212345)(92896624)(-)(8)(10)(80)(72404)(PRI1 BCH30)(GSM17)(00)(72404)(F)]
+[(2007-01-16 21:10:12)(212345)(91191999)(-)(10)(10)(80)(72404)(PRI1 BCH19)(GSM28)(00)(72404)(F)]
+[(2007-01-16 21:09:54)(212345)(96382459)(-)(32)(10)(80)(72404)(PRI1 BCH26)(GSM23)(00)(72404)(F)]
+[(2007-01-16 21:09:58)(212345)(99071702)(-)(42)(10)(80)(72404)(PRI1 BCH25)(GSM24)(00)(72404)(T)]
+[(2007-01-16 21:10:56)(212345)(92487901)(-)(3)(10)(80)(-)(PRI1 BCH17)()(00)(72404)(F)]
+[(2007-01-16 21:10:21)(212345)(92243597)(-)(42)(10)(80)(72404)(PRI1 BCH30)(GSM01)(00)(72404)(F)]
+[(2007-01-16 21:10:54)(212345)(92243715)(-)(11)(10)(80)(72404)(PRI1 BCH19)(GSM03)(00)(72404)(F)]
+[(2007-01-16 21:10:54)(212345)(92870671)(-)(14)(7F)(80)(72404)(PRI1 BCH25)(GSM26)(00)(72404)(F)]
+[(2007-01-16 21:11:14)(212345)(84142449)(-)(4)(10)(80)(72404)(PRI1 BCH30)(GSM04)(00)(72404)(F)]
+[(2007-01-16 21:11:21)(212345)(96314454)(-)(39)(10)(80)(72404)(PRI1 BCH25)(GSM17)(00)(72404)(F)]
+[(2007-01-16 21:11:27)(212345)(99071702)(-)(40)(10)(80)(72404)(PRI1 BCH30)(GSM22)(00)(72404)(T)]
+[(2007-01-16 21:06:12)(212345)(96587942)(+)(373)(90)(80)(72404)(PRI1 BCH28)(GSM29)(00)(72404)(T)]
+[(2007-01-16 21:06:27)(212345)(96562819)(+)(358)(90)(80)(72404)(PRI1 BCH23)(GSM30)(00)(72404)(T)]
+[(2007-01-16 21:06:39)(212345)(91177243)(+)(346)(90)(80)(72404)(PRI1 BCH21)(GSM31)(00)(72404)(T)]
+[(2007-01-16 20:59:29)(212345)(92034585)(+)(783)(10)(80)(72404)(PRI1 BCH29)(GSM20)(00)(72404)(F)]
+[(2007-01-16 21:12:25)(212345)(99445577)(-)(19)(10)(80)(72404)(PRI1 BCH30)(GSM14)(00)(72404)(F)]
+[(2007-01-16 21:12:10)(212345)(99842584)(-)(39)(10)(80)(72404)(PRI1 BCH25)(GSM13)(00)(72404)(F)]
+[(2007-01-16 21:11:58)(212345)(92870671)(+)(67)(10)(80)(72404)(PRI1 BCH17)(GSM16)(00)(72404)(F)]
+[(2007-01-16 21:12:57)(212345)(91435345)(-)(9)(10)(80)(72404)(PRI1 BCH30)(GSM26)(00)(72404)(F)]
+[(2007-01-16 21:13:04)(212345)(96612169)(-)(8)(10)(80)(72404)(PRI1 BCH21)(GSM05)(00)(72404)(F)]
+[(2007-01-16 21:12:42)(212345)(99729278)(-)(35)(10)(80)(72404)(PRI1 BCH28)(GSM24)(00)(72404)(F)]
+[(2007-01-16 21:13:19)(212345)(92896624)(-)(8)(10)(80)(72404)(PRI1 BCH21)(GSM05)(00)(72404)(F)]
+[(2007-01-16 21:13:22)(212345)(96855974)(-)(10)(10)(80)(72404)(PRI1 BCH17)(GSM26)(00)(72404)(F)]
+[(2007-01-16 21:13:02)(212345)(99445577)(-)(47)(10)(80)(72404)(PRI1 BCH23)(GSM03)(00)(72404)(F)]
+[(2007-01-16 21:12:55)(212345)(92487901)(+)(58)(10)(80)(72404)(PRI1 BCH29)(GSM15)(00)(72404)(F)]
+[(2007-01-16 21:13:56)(212345)(91411209)(-)(10)(1F)(80)(72404)(PRI1 BCH23)(GSM24)(00)(72404)(T)]
+[(2007-01-16 21:14:10)(212345)(96559077)(+)(8)(10)(80)(72404)(PRI1 BCH28)(GSM05)(00)(72404)(T)]
+[(2007-01-16 21:02:50)(212345)(91276374)(+)(699)(10)(80)(72404)(PRI1 BCH22)(GSM21)(00)(72404)(F)]
+[(2007-01-16 21:13:08)(212345)(96562819)(+)(98)(10)(80)(72404)(PRI1 BCH25)(GSM28)(00)(72404)(T)]
+[(2007-01-16 20:57:09)(212345)(96058383)(+)(1073)(10)(80)(72404)(PRI1 BCH31)(GSM07)(00)(72404)(F)]
+[(2007-01-16 21:10:55)(212345)(96498594)(+)(285)(10)(80)(72404)(PRI1 BCH26)(GSM23)(00)(72404)(F)]
+[(2007-01-16 21:15:10)(212345)(96314454)(+)(32)(10)(80)(72404)(PRI1 BCH17)(GSM14)(00)(72404)(F)]
+[(2007-01-16 21:15:52)(212345)(92247549)(+)(0)(10)(80)(72404)(PRI1 BCH15)(GSM19)(00)(72404)(F)]
+[(2007-01-16 21:15:20)(212345)(96562819)(-)(36)(1F)(80)(72404)(PRI1 BCH31)(GSM29)(00)(72404)(T)]
+[(2007-01-16 21:15:00)(212345)(92124964)(+)(59)(1F)(80)(72404)(PRI1 BCH23)(GSM24)(00)(72404)(F)]
+[(2007-01-16 21:16:06)(212345)(99953083)(-)(0)(10)(80)(72404)(PRI1 BCH23)(GSM32)(00)(72404)(F)]
+[(2007-01-16 21:16:10)(212345)(99953083)(-)(1)(10)(80)(72404)(PRI1 BCH17)(GSM32)(00)(72404)(F)]
+[(2007-01-16 21:16:14)(212345)(99953083)(-)(1)(10)(80)(72404)(PRI1 BCH23)(GSM32)(00)(72404)(F)]
+[(2007-01-16 21:15:19)(212345)(96559077)(+)(60)(10)(80)(72404)(PRI1 BCH25)(GSM17)(00)(72404)(T)]
+[(2007-01-16 21:11:41)(00212345)(91025037)(+)(286)(10)(80)(72404)(PRI1 BCH19)(GSM04)(00)(72404)(T)]
+[(2007-01-16 21:16:14)(212345)(96467505)(+)(16)(10)(80)(72404)(PRI1 BCH26)(GSM31)(00)(72404)(T)]
+[(2007-01-16 21:16:02)(212345)(96562819)(-)(36)(1F)(80)(72404)(PRI1 BCH31)(GSM30)(00)(72404)(T)]
+[(2007-01-16 21:16:56)(212345)(92911372)(+)(42)(10)(80)(72404)(PRI1 BCH25)(GSM27)(00)(72404)(T)]
+[(2007-01-16 21:18:15)(212345)(99688049)(-)(12)(1F)(80)(72404)(PRI1 BCH26)(GSM19)(00)(72404)(T)]
+[(2007-01-16 21:10:37)(212345)(96935042)(+)(483)(10)(80)(72404)(PRI1 BCH18)(GSM10)(00)(72404)(T)]
+
+] def
+
+
+/cm {
+	72 mul
+	2.545 div
+} def
+
+/uncm {
+  72 div
+  2.545 mul
+} def
+
+/unit{ cm } def
+
+
+
+/pagesize [ 21 unit 29.7 unit] def
+%%/pagesize [ 29.7 unit 21 unit ] def
+
+
+<< /Duplex true /Tumble true >> setpagedevice
+%---BeginFeature: *PageSize A4
+2 dict dup /PageSize pagesize put dup /ImagingBBox null put setpagedevice
+%---EndFeature
+/p{ pstack } def 
+
+%%-dTextAlphaBits=4 -dGraphicsAlphaBits=2 -dMaxBitmap=10000000 -dNOPLATFONTS
+/encoding_font { findfont dup length dict begin  { 1 index /FID ne  { def } { pop pop } ifelse } bind forall /Encoding ISOLatin1Encoding def currentdict end } def
+
+%margin
+/margin 3 dict def
+margin begin
+ /top 1 unit	def
+ /right 1 unit def
+ /bottom 1 unit def
+ /left	1 unit def
+
+end
+
+/linewidth 0.25 unit def
+
+%%statics callimit_bottomacks
+/before_create {(#-> before_create\n) print} bind def
+/first_page  {(#-> first_page\n) print} bind def
+/last_page  {(#-> last_page\n) print} bind def
+/after_create  {(#-> after_create\n) print} bind def
+
+%%dynamic callbacks
+/before_page_create 3 dict def
+	before_page_create begin 
+ 		/proc { next_row limit_left current_row moveto (UM TESTE DE BEFORE PAGE CREATE) show next_row 0 setlinewidth horizontal_line_middle next_row 16 unit current_row moveto (Hoje 13/04/2007 as 14:58:23) show next_row horizontal_line_middle next_row  } bind def
+ 		/except [ ] def
+ 		/only [  ] def
+end
+
+/after_page_create 3 dict def
+	after_page_create begin
+ 		/proc {   } bind def
+ 		/except [ ] def
+ 		/only [ ] def
+end
+
+/odd_pages 3 dict def
+	odd_pages begin
+ 		/proc { } bind def
+ 		/except [] def
+ 		/only [] def
+end
+
+/even_pages 3 dict def
+	even_pages begin
+ 		/proc {(*-> even_pages\n) print} bind def
+ 		/except [ 6 ] def
+ 		/only [ 1 ] def
+end
+
+/to_s{
+  80 string cvs
+
+} def
+
+%/paint_count_page_in  { 16 unit 28 unit moveto current_page to_s show ( of ) show total_pages to_s show ( - ) show row to_s show} bind def
+
+/line_width  0 def
+
+
+
+
+
+
+/is_array?{ count 0 ne {dup}{false} ifelse type to_s (arraytype)  }def
+
+/horizontal_line_top { exch gsave current_row row_height add moveto 0 rlineto stroke grestore } def
+/horizontal_line_middle { exch gsave current_row row_height sqrt add moveto 0 rlineto stroke grestore }def
+/horizontal_line_bottom { exch gsave current_row row_padding sub moveto 0 rlineto stroke grestore }def
+/vertical_line{ exch gsave current_row moveto 0 exch neg rlineto stroke grestore } def
+
+/background_row {
+	gsave 0.95 setgray
+		limit_left current_row row_height sqrt 2 sub sub area_x row_height  rectfill
+   0 setgray
+   grestore
+}def
+
+
+/limit_top { pagesize 1 get margin /top get sub } def
+/limit_right { pagesize 0 get margin /right get sub } def
+/limit_bottom { margin /bottom get } def
+/limit_left { margin /left get } def
+/area_x  pagesize 0 get margin /right get sub margin /left get sub def
+/area_y  pagesize 1 get margin /top get sub margin /bottom get sub def
+
+
+/current_page 1 def  	
+/rows_per_page 46 def 
+/total_pages 10 def	 
+/row_height 0.4 unit def 
+/row_padding 0.1 unit def 
+/row 1 def
+/current_row 0 def
+
+
+
+%%calimit_leftbacks for odd even pages
+/odd? { 2 mod 0 eq {true}{false} ifelse } bind def
+/odd_or_even { current_page odd? {odd_pages}{even_pages}ifelse }def
+
+%%increment
+/inc{ dup cvx exec 1 add def} def
+
+/show_center{ dup stringwidth pop 2 div neg 0 rmoveto show } def
+/show_right{ dup stringwidth pop neg 0 rmoveto show } def
+/show_left{ show }def
+
+/include? { /_atual 1 def exch dup length  /_s exch def exch /_v exch def
+ 	{ _v eq {true exit}{ _atual _s eq {	false exit }{ /_atual inc	} ifelse 	} ifelse }forall
+ 	_s 0 eq {false} if
+ }  def
+
+/callback{
+dup dup
+ /except get length 0 ne { /except get current_page include? not}{
+     dup /only get length 0 ne { /only get current_page include?}{
+				pop true
+     }ifelse
+ }ifelse
+ { /proc get exec  }{
+   pop 
+ }ifelse
+} bind def
+
+/new_page? true def
+
+%%RubyGhost Engine in Postscript
+/next_page{ %nextpage
+	after_page_create callback
+	/row 1 def
+	(Pagina: ) print current_page 8 string cvs print (\n) print
+  
+	showpage
+	/new_page? true def
+	/current_page inc
+	/current_row limit_top row row_height mul sub def
+	before_page_create callback
+	odd_or_even callback
+	current_page total_pages eq { last_page } if
+	
+} def
+%/current_row limit_top row row_height row_padding add mul sub def
+/new_current_row_point{
+	%%/current_row current_row row_height row_padding add sub  def
+	/current_row limit_top row row_height row_padding add mul sub def
+}def
+
+/next_row{ %%nextline
+  	
+	row rows_per_page lt current_row limit_bottom ge and {	/row inc
+		new_current_row_point
+	}{ next_page }ifelse
+	
+
+} def
+/jump_lines{
+	{
+ 		next_row
+	}repeat
+} def
+/goto_line{
+  /row exch def
+	new_current_row_point
+	
+} def
+
+/fontsize 8 def
+/Helvetica findfont fontsize scalefont setfont
+%%
+%%%%%%%%%%%IMPORTANTE INICIAR O CURSOR
+new_current_row_point
+%before_create
+%before_page_create callback
+%first_page
+%even_pages callback
+
+
+limit_left area_x horizontal_line_top
+limit_left area_x horizontal_line_middle
+limit_left area_x horizontal_line_bottom
+
+
+
+/ss { (  ,    ) show }def
+
+
+%%Tabelao
+% /c -1 def
+% /nextcol {
+%   c 12 lt {/c c 1 add def
+%   
+%    }{
+%       /c 0 def
+%           
+%       %0 current_row moveto
+%    }ifelse
+% } def
+
+/X{  currentpoint pop } def
+/Y{ currentpoint exch pop} def
+/strlen { dup stringwidth pop } def
+/celp 5 def
+
+
+%%show table
+%showcenter
+/stc{  exch strlen 3 -1 roll sub -2 div  dup 0 rmoveto exch show 0 rmoveto  } def
+%showright
+/str{ exch strlen 3 -1 roll X add sub neg current_row moveto show  } def
+%showleft(default)
+/stl{ X add exch show current_row moveto   }def
+/head [
+(starttime)(callingno)(calledno)(bill)(duration)
+(cause)(bearercap)(carrier)(fromchannel) (tochannel) (aoc) (preferredcarrier)(location)
+
+] def
+
+/params [
+	[ 110  /stl ]
+	[ 40  /stc ]
+	[ 50  /stc ]
+	[ 30  /stc ]
+	[ 30  /stc ]
+	[ 30  /stc ]
+	[ 30  /stc ]
+	[ 30  /stc ]
+	[ 60  /stc ]
+	[ 30  /stc ]
+	[ 30  /stc ]
+	[ 30  /stc ]
+	[ 38  /stc ]
+] def
+
+/params_head [
+	[ 90  /stc ]
+	[ 70  /stc ]
+	[ 35  /stc ]
+	[ 30  /stc ]
+	[ 35  /stc ]
+	[ 30  /stc ]
+	[ 40  /stc ]
+	[ 35  /stc ]
+	[ 60  /stc ]
+	[ 40  /stc ]
+	[ 40  /stc ]
+	[ 40  /stc ]
+	[ 40  /stc ]
+] def
+
+
+% 1 1 46 {
+% br
+%  limit_left current_row moveto
+%  20 string cvs show
+%  
+%  next_row 
+% 
+% } for
+
+/after_row{
+	/ctr inc
+	/col -1 def
+	next_row
+	limit_left current_row moveto
+}def
+/col -1 def
+/nextcol{ /col inc } def
+
+/before_table_create {
+
+} def
+
+/after_table_create{
+
+} def
+
+/row_odd_or_even {
+	ctr odd? {odd_row}{even_row} ifelse
+}def
+
+/before_row_create 3 dict def
+	before_row_create begin
+ 		/proc {   } bind def
+ 		/except [  ] def
+ 		/only [  ] def
+end
+
+/odd_row 3 dict def
+	odd_row begin
+ 		/proc {   } bind def
+ 		/except [  ] def
+ 		/only [ ] def
+end
+
+/even_row 3 dict def
+	even_row begin
+ 		/proc {  } bind def
+ 		/except [ ] def
+ 		/only [ ] def
+end
+
+
+/callback_table{
+dup dup
+ /except get length 0 ne { /except get ctr include? not}{
+     dup /only get length 0 ne { /only get ctr include?}{
+				pop true
+     }ifelse
+ }ifelse
+ { /proc get exec  }{
+   pop 
+ }ifelse
+} bind def
+
+
+/rows_per_page 55 def
+/ctr 0 def %current row table
+/head_proc {
+ new_page? {
+ 		limit_left current_row moveto
+		currentfont
+		/Helvetica-Bold findfont 9 scalefont setfont
+			head {
+			   
+				 nextcol params_head col get aload pop cvx exec 
+				 
+				} forall
+		 
+		setfont
+		
+		after_row
+		/new_page? false def
+ }if
+
+ 
+} def
+
+% /vr {
+% 	gsave
+% 		is_array? ne {area_y limit_left }{ aload pop }ifelse
+% 		current_row row_height add moveto
+% 		0 exch neg rlineto
+% 		stroke
+% 	grestore
+% } def
+
+/vlr {
+	gsave
+
+		0 row_height rlineto
+    stroke
+	grestore
+} def
+
+/vlrf { %vertical line in row full
+	gsave
+	X Y row_padding sub moveto
+		0 row_height row_padding add rlineto
+    stroke
+	grestore
+} def
+/rows_per_page 20 def
+
+/proc {
+	next_row
+	limit_left current_row moveto
+	before_table_create
+	{ 
+	  head_proc
+	 	before_row_create callback_table
+	 	row_odd_or_even callback_table
+	 	%limit_left area_x horizontal_line_top
+		{  %vlrf
+		 nextcol params col get aload pop cvx exec
+		  % vertical_line
+		} forall
+		%limit_left area_x horizontal_line_top
+		%exit
+    after_row
+		
+
+	} forall
+after_table_create
+}bind def
+dados proc
+%2 unit 5 unit moveto ([************************************************************************************************ ]) show
+%2 unit 4 unit moveto (TESTE DE POSICIONAMENTO DE STRING) show_center
+
+
+
+
+
+%/line_space { row_height } def
+/fonte1 { /Helvetica findfont fontsize scalefont setfont  }def
+/fonte2 { /Helvetica-Bold findfont fontsize scalefont setfont  }def
+/fonte3 { /Helvetica-Oblique findfont fontsize scalefont setfont  }def
+
+/Helvetica encoding_font
+/Helvetica-encoding exch definefont pop
+
+/fonte1 { /Helvetica-encoding findfont fontsize scalefont setfont } def
+fonte1
+15 cm 15 cm moveto
+(� um t�s c�op��) show
+%%/newline { next_row } def
+/textarea_defaults {
+  /space ( ) def
+  /spacecount { 0 exch ( ) { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } loop } def
+  /ssp { space search pop } def
+  /dsp { dup stringwidth pop } def
+  /cpp { currentpoint pop } def
+  /S { dup spacecount {ssp dsp cpp add rm gt { L s s }{ s s } ifelse } repeat pop } def
+  /n { show newline } def /s { show } def /L { newline } def
+  /centre { dup stringwidth pop 2 div rm 2 div exch sub lm add tm moveto } def
+  /c{ centre n} def
+} def
+
+next_row next_row
+/textarea1{
+	/textbox {
+		/line_space { 0.5 unit } def
+		/lm 0 unit  def %margin left
+		/bm 3 unit  def %margin bottom
+		/rm 5 unit  def  %margin right %width
+		/tm 0 unit  def %margin top
+		lm tm moveto
+	} def 
+	/newline {
+	 			
+				tm line_space sub
+				/tm exch def
+				lm tm moveto
+				
+	} def
+		textarea_defaults
+		gsave
+			3 unit 6 unit translate
+			textbox
+				( asd klaj fkjdfsd fdf sdjf sdjdfhsjdf sdasjdsa jd sad asd asjdhfasjdf hsajd jksa df asd fsad fasjl dfha kjsdhfaksjdfhas kjdfhaskj dfhsakdjf fdlldfl� dfl�dsfl� sdfg) S
+			fonte2  
+				(teste asda sasjkfhasj asjdfd jasjdfasdjhf jas dsd d ) S 
+			fonte1
+				(teste asda sasjkfhasj dasdf) S L L
+			fonte3
+				(\(Shairon Toledo � Oliveira\) )  S
+			fonte1
+				(shairon ajdh d sdf ksdj df sadlfskadfksl djfskldf k )  S
+		grestore
+} bind def
+
+
+
+textarea1
+
+
+%%%%%image
+% /w 260 def
+% /h 95 def
+% /z 50 def
+% 10 10 moveto
+% /DeviceRGB setcolorspace
+% w z 100 div mul h z 100 div mul scale
+% /Data currentfile /DCTDecode filter def
+% << /ImageType 1
+% /Width w
+% /Height h
+% /ImageMatrix [w 0 0 h neg  0 h ]
+% /DataSource Data
+% /BitsPerComponent 8
+% /Decode [0 1 0 1 0 1]
+% >> image
+
+
+
+
+
+
+%nextpage
+
+
+
+after_page_create callback
+after_create
+
+
+%%BeginProlog
+
+
+%%EndProlog
+
+%%Page: 1 1
+%%BeginPageSetup
+%%....
+%%EndPageSetup
+
+
+%%Trailer
+%%EOF
+
+