rghost 0.7.4 → 0.8

data/lib/rghost/ps/functions.ps

@@ -1,646 +0,0 @@
-%!
-
-/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
-
-

data/lib/rghost/rectangle.rb

@@ -1,39 +0,0 @@
-require "ps_object"
-require "units"
-require "color"
-#Respons�vel pela cria��o de ret�ngulos
-class Rectangle < PsObject
-  DEFAULT_OPTIONS={:fill => false, :x => :limit_left, :y=> :current_row, :width => :area_x, :height => :row_height}
-  BACKGROUND_ROW_DEFAULT_OPTIONS={:start_in => :limit_left, :size => :area_x, :color => Gray.new(0.95)}
-  #Nova inst�ncia de Rectangle.
-  #  Retangle.new(:x => 1, :y => 5, :height => 5, :width => 5) #um quadrado
-  #O Rectangle desenha apenas as bordas(default) mas pode-se utilizar :fill => true para preenche-lo.
-  #  Retangle.new(:x => 1, :y => 5, :width => 3, :fill => true ) 
-  def initialize(options={})
-      @options=DEFAULT_OPTIONS.dup.merge(options)
-  end
- 
-  def ps
-    x,y=@options[:x], @options[:y]
-    w,h,=@options[:width], @options[:height]
-    #with parse
-    x,y=Units::parse(x),Units::parse(y)
-    w,h=Units::parse(w),Units::parse(h)
-    cmd=@options[:fill] ? :fill : :stroke 
-    "#{x} #{y} #{w} #{h} rect#{cmd}"
-  end
-
-  #Desenha um ret�ngulo ao fundo da faixa corrente  
-  # Rectangle.background_row(:start_in => 2, :size => 10, :color => Color.create("FFAAFF"))
-  #Default 
-  # Rectangle.background_row(:start_in => :limit_left, :size => :area_x, :color => Gray.new(0.95))
-  #O mesmo que 
-  # Rectangle.background_row 
-  def Rectangle.background_row(options={})
-    opts=BACKGROUND_ROW_DEFAULT_OPTIONS.merge(options)
-    start_in,size=Units::parse(opts[:start_in]),Units::parse(opts[:size])
-    return PsObject.new("#{start_in} #{size} {#{opts[:color]}} background_row ")
-
-  end
-  
-end

data/lib/rghost/rghost.rb

@@ -1,3 +0,0 @@
-$LOAD_PATH << File.dirname(__FILE__)+File::SEPARATOR+"rghost"
-require 'document'
-require 'data_grid/data_grid'

data/lib/rghost/version.rb

@@ -1,9 +0,0 @@
-module Rghost #:nodoc:
-  module VERSION #:nodoc:
-    MAJOR = 0
-    MINOR = 7
-    TINY  = 2
-
-    STRING = [MAJOR, MINOR, TINY].join('.')
-  end
-end