rghost 0.7.4 → 0.8

data/lib/rghost/ps/cursor.ps

@@ -1,22 +1,86 @@
+/p{ pstack} def
 /current_page 1 def
+/current_vp 1 def
+
+%vp = virtual_page
+/new_vp? false def
+/has_vp? false def 
+/start_vp{
+  /has_vp? true def 
+  /current_vp 1 def
+  %/vp_params [ [20 cm 1 cm ] [10 cm 1 cm ] [7 cm  1 cm ] ] def 
+  /vp_count vp_params length def 
+  /source_limit_left limit_left def
+  /source_limit_right limit_right def
+}def
+
+/first_vp_page{
+  vp_params 0 get aload pop %pop
+  limit_left add
+  /limit_right exch  def  
+  /new_vp? true def
+  default_point
+  %before_virtual_page_create vp_callback
+} def
+/vp_proc{
+
+has_vp? { start_vp  before_virtual_page_create vp_callback first_vp_page } if 
+
+} def
+/new_page_defaults{
+  /current_page inc
+  /current_row limit_top row row_height mul sub def
+  current_page count_pages eq { last_page } if
+  new_current_row_point
+  default_point 
+  before_page_create callback
+  odd_or_even callback
+  before_virtual_page_create vp_callback
+} def
+
 /X{  currentpoint pop } def
 /Y{ currentpoint exch pop} def
 /nrdp{ next_row  default_point } def
 /next_page{
-	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 count_pages eq { last_page } if
-	new_current_row_point
-  default_point 
+  has_vp?{ (ok has virtual page\n) print 
+    /row 1 def
+    current_vp vp_count lt {
+      default_point
+      after_virtual_page_create vp_callback
+    
+      vp_params current_vp get 
+      /current_vp inc 
+      aload pop limit_right exch add /limit_left exch def
+      limit_left add  /limit_right exch def
+      /current_row limit_top row row_height mul sub def
+      new_current_row_point
+      default_point 
+      before_virtual_page_create vp_callback
+      /new_vp? true def
+    }{
+      after_page_create callback
+      /current_vp 1 def
+      /limit_left source_limit_left def
+      showpage 
+      new_page_defaults
+      has_vp? {first_vp_page} if
+    } ifelse
+    
+    new_current_row_point
+    default_point 
+  }{
+    /row 1 def
+    /new_page? true def
+      /current_vp 1 def
+      after_page_create callback
+      showpage
+      /new_page? true def
+      new_page_defaults
+      has_vp? {first_vp_page} if
+  }ifelse
 } def
+
+
 /default_point { limit_left  current_row  moveto} def
 /new_current_row_point{ 	/current_row limit_top row row_height row_padding add mul sub def }def
 

data/lib/rghost/ps/datagrid.ps

@@ -11,7 +11,7 @@
 /headings? true def
 
 /header_proc {
-	new_page? {
+	new_page? new_vp? or{
 		%before_row_create callback_row
 		before_header_create
 		header_titles {
@@ -25,6 +25,7 @@
 		after_header_create
 		after_row
 		/new_page? false def
+		/new_vp? false def
 	 }if
 } def
 
@@ -47,6 +48,8 @@
 			after_column callback_col
 		} forall
     after_row
+
 	} forall
 	after_table_create
+
 }bind def

data/lib/rghost/ps/developer.ps

@@ -0,0 +1,237 @@
+%!  
+(type.ps) runlibfile
+  (unit.ps) runlibfile
+  (IsoLatin.enc) runlibfile
+  /default_encoding IsoLatin def  
+<< /Duplex false /Tumble false >> setpagedevice
+/pagesize [595 842]  def
+/margin 3 dict def margin begin /top 1 cm  def /right 2 cm  def /bottom 1 cm  def /left	2 cm  def end
+(paper.ps) runlibfile
+    /rows_per_page 80 def  /count_pages 10 def  /row_height 0.8 cm  def  /row_padding 0.1 cm  def    (basic.ps) runlibfile
+  (cursor.ps) runlibfile
+  (rectangle.ps) runlibfile
+  (font.ps) runlibfile
+  (text.ps) runlibfile
+  (horizontal_line.ps) runlibfile
+  (vertical_line.ps) runlibfile
+  (callbacks.ps) runlibfile
+  (show.ps) runlibfile
+  (eps.ps) runlibfile
+  (jpeg.ps) runlibfile
+  (gif.ps) runlibfile
+  (begin_document.ps) runlibfile
+  (datagrid.ps) runlibfile
+    limit_left  current_row  moveto    
+/title{
+ /Helvetica-encoding findfont 20 scalefont setfont  0 setgray 
+} bind def 
+
+/h1{
+ /Helvetica-encoding findfont 14 scalefont setfont  0 setgray 
+} bind def 
+
+/b{
+ /Helvetica-Bold-encoding findfont 10 scalefont setfont  0 setgray 
+} bind def 
+
+/span{
+ /Helvetica-encoding findfont 10 scalefont setfont  0 setgray 
+} bind def 
+
+/h2{
+ /Helvetica-encoding findfont 13 scalefont setfont  0 setgray 
+} bind def 
+
+/i{
+ /Helvetica-Oblique-encoding findfont 10 scalefont setfont  0 setgray 
+} bind def 
+
+/h3{
+ /Helvetica-encoding findfont 12 scalefont setfont  0.5 setgray 
+} bind def 
+
+/bi{
+ /Helvetica-BoldOblique-encoding findfont 10 scalefont setfont  0 setgray 
+} bind def 
+
+/h4{
+ /Helvetica-encoding findfont 11 scalefont setfont  1 0 0 setrgbcolor
+} bind def 
+
+/big{
+ /Helvetica-encoding findfont 24 scalefont setfont  0 setgray 
+} bind def 
+
+/h5{
+ /Helvetica-encoding findfont 10 scalefont setfont  0 setgray 
+} bind def 
+
+/pre{
+ /Courier-encoding findfont 10 scalefont setfont  0 setgray 
+} bind def 
+
+/small{
+ /Helvetica-encoding findfont 7 scalefont setfont  0 setgray 
+} bind def 
+ (begin_document.ps) runlibfile
+  limit_left  current_row  moveto  
+  
+%gs -sDEVICE=x11 -I/local/projects/ruby/rghost_rf/lib/lib/rghost/ps developer.ps
+
+/p{ pstack} def
+(rghost - Develop Environment\n) print
+(by Shairon Toledo\n) print
+(Postscript Version ) print version print (\n) print
+%%rounded corners
+/rcorners_params{
+	/:x 3 cm def /:y 12 cm def
+	/:w 10 cm def /:h 8 cm def
+	/:r 10 def
+	/:s 1 def
+	/:inside{
+		0.9 setgray 
+		%0.2 0.4 0 setrgbcolor
+	 	fill   
+	 } def
+	/:outside{
+		 0.5 setgray
+	 }def
+	} def
+/rcorners{ 
+gsave
+	:x :y :r add moveto 	
+  :outside
+	/:l1{ :x :y :h add :x :s add :y :h add :r arcto   } def
+	/:l2{ :x :w add :y :h add :x :w add :y :h add :s sub :r arcto   } def
+	/:l3{ :x :w add :y :x :w add :s sub :y :r arcto  } def
+	/:l4{ :x :y :x :y :s add :r arcto } def
+	:l1 :l2 :l3 :l4 clear
+	closepath
+	gsave
+	 :inside
+	grestore
+	 stroke
+grestore
+} def
+
+%rcorners_params rcorners
+
+%charmap
+/charmap{
+	/c 1 string def
+	/n 3 string def
+	default_font span
+	/Times-Roman findfont 12 scalefont setfont
+
+	1 1 255{
+		dup dup dup
+		n  cvs show (  =  ) show
+		c 0 3 -1 roll put c show
+		5 mod 0 eq{ nrdp   }{  5 mod 4 cm mul Y moveto } ifelse
+	} for
+} def
+
+
+%charmap
+/font_outline{
+big
+1 0 0 setrgbcolor
+(Hello) true charpath gsave 0.5 setgray fill grestore stroke
+} def
+/clipping{
+		/Times-BoldItalic findfont 48 scalefont setfont
+		/rays{
+			BeginEPSF
+				(rghost_default_template.eps) run
+			EndEPSF
+		} def 
+		300 400 translate
+		.25 setlinewidth
+		newpath
+		0 0 moveto
+		(StarLines) true charpath clip
+		newpath
+		0 -5 translate
+		rays
+}def
+%clipping
+
+%linecap
+%setlinecap
+%setlinejoin
+%setmiterlimit
+%[ ] 0 setdash % Turn dashing off: solid lines
+%[3] 0 setdash % 3-unit on, 3-unit off, 
+
+%nrdp
+%[0 1 9 9] 1 setdash
+%limit_left area_x horizontal_line_top
+%stroke showpage
+
+
+
+/:test (If proc executes the exit operator, rasdf a adad af its own on the stack, but XX ## If proc executes the exit operator, repeat terminates prematurely. repeat leaves no results of its own on the stack, but What if the printer isn't on the default queue? The destination for the printed output can be specified on the command line. To output to the file c:\out.prn, add -sOutputFile="c:/out.prn" somewhere before the name of the PostScript file. To output to a Windows 95 queue named HP DeskJet Portable Printer, use -sOutputFile="\\spool\HP DeskJet Portable Printer". Get the spelling exact or it won't work. For Windows 3.1 or Win32s, to output to port LPT2:"
+  ) def
+
+default_font
+%gsave
+	%5 cm 17 cm translate
+
+	/:bw 14 cm def  %box width
+	/:rp 0.1 cm def  %row padding
+	/:rh 0.5 cm def  %row height
+	/:text_area {
+		%next box row
+		/:nbw{ currentpoint :rh :rp add sub exch pop 0 exch moveto } def
+		/:space ( ) def
+		/:this_or_next{  X add :bw le { show :space show }{ :nbw show } ifelse } def
+		/:nw{ 	search false eq { /:last true def  } if dup  stringwidth pop :this_or_next }def 
+		/:last false def
+
+  } def
+		/:text_proc{:space { :nw :last {exit} if  } loop   /:last false def } def  
+
+ /concat 
+   { exch dup length    
+     2 index length add string    
+     dup dup 4 2 roll copy length
+     4 -1 roll putintervaler, </pre>
+but it is considered a development release. Several virtual machines are
+   } bind def  
+
+/Helvetica findfont 16 scalefont setfont
+
+/str (As of December 2007, the latest stable version is 1.8.6. Ruby 1.9.0 was released in December, but it is considered a development release. Several virtual machines are being developed for Ruby These include JRuby, a port of Ruby to the Java platform, IronRuby an implementation for the .NET Framework produced by Microsoft and Rubinius, an interpreter modeled after self-hosting Smalltalk virtual machines. The main developers have thrown their weight behind the virtual machine provided by the YARV project, which was merged into the Ruby source) def
+
+/fstr () def
+/append{
+	%curstr exch ( ) concat concat /curstr exch def
+  dup cvx exec  3 -1 roll concat ( ) concat def
+} def
+
+/txt_nrdp{
+   (novo----------) puts 
+   currentpoint puts puts
+  %currentpoint exch pop :rh sub 0 exch moveto
+762.786
+282.908
+	  nrdp
+} def 
+
+
+%gsave 
+5 cm 0 translate
+/:bw 10 cm def
+/text_align { /cdenter } def
+
+str text_area_cr
+%grestore
+%h3
+%(*tree on 31 December 2006, and released as part of Ruby1.9) text_area_cr
+%h4
+%(*The type of the result is the same as the type of num1, unless num1 is the most negative integer, in which case the result is a real. ) 
+
+%text_area_cr
+
+showpage
+

data/lib/rghost/ps/font.ps

@@ -15,17 +15,24 @@
 
 /font_normal{
 	/Helvetica-encoding findfont fontsize scalefont setfont
+  0 setgray
 } bind def
 
 /font_bold{
 	/Helvetica-Bold-encoding findfont fontsize scalefont setfont
+  0 setgray
 } bind def
 
 /font_italic{
 	/Helvetica-Oblique-encoding findfont fontsize scalefont setfont
+  0 setgray
 } bind def
 
 /font_bold_italic{
 	/Helvetica-BoldOblique-encoding findfont fontsize scalefont setfont
+  0 setgray
 } bind def
-
+/b{font_bold } def
+/i{font_italic } def
+/default_font{ font_normal} def
+/_default_font{ font_normal} def

data/lib/rghost/ps/frame.ps

@@ -0,0 +1,16 @@
+/rcorners{ 
+gsave
+	:x :y :r add moveto 	
+  :outside
+	/:l1{ :x :y :h add :x :s add :y :h add :r arcto   } def
+	/:l2{ :x :w add :y :h add :x :w add :y :h add :s sub :r arcto   } def
+	/:l3{ :x :w add :y :x :w add :s sub :y :r arcto  } def
+	/:l4{ :x :y :x :y :s add :r arcto } def
+	:l1 :l2 :l3 :l4 clear
+	closepath
+	%gsave
+    :inside
+	%grestore  
+	stroke
+grestore
+} def

data/lib/rghost/ps/horizontal_line.ps

@@ -1,3 +1,4 @@
-/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
+%/horizontal_line_top { exch gsave current_row row_height add moveto 0 rlineto stroke  grestore } def
+/horizontal_line_top { exch current_row row_height add moveto 0 rlineto stroke } def
+/horizontal_line_middle { exch current_row row_height sqrt add moveto 0 rlineto stroke }def
+/horizontal_line_bottom { exch current_row row_padding sub moveto 0 rlineto stroke  }def