rghost 0.7.4 → 0.8

data/lib/rghost/ps/show.ps

@@ -16,5 +16,6 @@ dup stringwidth pop neg 0 rmoveto show
 
 /page_left{
 limit_left current_row moveto
-dup stringwidth pop neg 0 rmoveto show
+%dup stringwidth pop neg 0 rmoveto
+ show
 } def

data/lib/rghost/ps/text.ps

@@ -0,0 +1,63 @@
+/:rh{ row_height } def
+/append{
+  dup cvx exec  3 -1 roll concat ( ) concat def
+} def
+
+/concat { exch dup length    
+  2 index length add string    
+  dup dup 4 2 roll copy length
+  4 -1 roll putinterval
+} def  
+
+
+/:text{
+  /:space ( ) def
+  /:nw{ 	search false eq { /:last true def  } if strlen :this_or_next }def 
+  /:last false def
+  /:this_or_next{  X add limit_right le { show }{ nrdp show} ifelse :space show  } def
+} def
+
+
+/:text_area {
+	/:nbw{ currentpoint :rh sub exch pop 0 exch moveto } def
+	/:space ( ) def
+	/:this_or_next{  X add :bw le { show }{ :nbw show } ifelse :space show } def
+	/:nw{ 	search false eq { /:last true def  } if strlen :this_or_next }def 
+	/:last false def
+} def
+
+/:text_proc{:space { :nw :last {exit} if  } loop   /:last false def } def  
+
+/:last false def
+
+/:nbw{ 0 Y :rh sub moveto } def 
+
+/text_disp { 
+	text_align /center eq {	
+		:bw 2 div Y moveto
+		strlen 2 div neg 0 rmoveto show
+    %show
+	}{
+		:bw Y moveto
+		 strlen neg 0 rmoveto show
+    
+	}ifelse
+ } def
+/:text_proc_cr { 
+	/curstr () def
+	{ 
+		( ) search false eq /:last exch def  
+		:last false eq { 
+		  exch pop curstr stringwidth pop ( ) stringwidth pop sub  :bw le { 
+			  /curstr append
+			}{
+			  curstr text_disp ( ) concat /curstr exch def
+        :nbw
+			} ifelse
+		}{
+			/curstr append curstr text_disp :nbw  
+      exit
+		} ifelse
+	} loop
+	/:last false def
+}def

data/lib/rghost/ps/textarea.ps

@@ -5,7 +5,7 @@
   /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
+  /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

data/lib/rghost/ps/vertical_line.ps

@@ -1,4 +1,4 @@
-/vertical_line{ exch gsave current_row moveto 0 exch neg rlineto stroke grestore } def
+/vertical_line{ exch  current_row moveto 0 exch neg rlineto stroke  } def
 /vlr {
 	gsave
 		0 row_height rlineto
@@ -6,9 +6,7 @@
 	grestore
 } def
 /vlrf { 
-	gsave
-	X Y row_padding sub moveto
+    X Y row_padding sub moveto
 		0 row_height row_padding add rlineto
     stroke
-	grestore
 } def

data/lib/rghost/ps/virtual_pages.ps

@@ -0,0 +1,55 @@
+
+%vp = virtual_page
+/current_vp 1 def
+/has_vp? false def 
+/col_size 18 cm def
+/vp_params [ [1 10] [1 20] [1 30]] def 
+/vp_count vp_params length def 
+/source_limit_left limit_left def
+/source_limit_right limit_right def
+/limit_right limit_left col_size add def
+/col_margin 2 cm def
+
+/next_page{
+  has_vp?{ (ok has virtual page, stopping) print 
+    
+    /row 1 def
+    /new_page? true def
+        
+      current_vp 2 eq {
+        /current_vp 0 def 
+        showpage 
+        
+       /limit_left source_limit_left def 
+      /limit_right limit_left col_size add def
+
+      }{
+        /limit_left col_size col_margin add def 
+        /limit_right limit_left col_size add def
+        } ifelse 
+      /current_vp inc
+      /current_row limit_top row row_height mul sub def
+      
+      new_current_row_point
+      default_point 
+      
+
+  }{
+      after_page_create callback
+      %(Page: ) 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 
+      before_page_create callback
+      odd_or_even callback
+  }ifelse
+
+} def

data/lib/rghost/ps_facade.rb

@@ -0,0 +1,256 @@
+require "ps_object"
+require "dynamic_document_callback"
+require "static_document_callback"
+require "paper"
+require "load"
+#require "function"
+require "font"
+require "cursor"
+require "show"
+require "color"
+require "graphic"
+#require "arc"
+require "newpath"
+require "line"
+require 'parse_text'
+require "line_width"
+require "textarea"
+require "variable"
+require "eps"
+require "jpeg"
+require "gif"
+require "text_in"
+require "ruby_ghost_engine"
+require "convert"
+require "text"
+require "dash"
+require "border"
+require "shape_content"
+#require "rectangle"
+require "vertical_line"
+require "horizontal_line"
+require "frame"
+require "polygon"
+require "circle"
+require "how_to"
+
+
+
+#PsFacade is just a big facade involving an instance of most postscript objects.
+class RGhost::PsFacade < RGhost::PsObject
+  attr_reader :rows
+  
+  def initialize(&block)
+    super(""){}
+    @rows=0
+    instance_eval(&block) if block
+  end
+  
+  #A facade for the method Cursor.next_row
+  def next_row
+    @rows+=1
+    set RGhost::Cursor.next_row
+  end
+  
+
+  #Close path of the graphic state
+  def closepath
+    call :closepath
+  end
+  
+  #A facade for the method Cursor.next_page
+  def next_page
+    set RGhost::Cursor.next_page
+  end
+
+  #A facade for the class Graphic
+  def graphic(ps_obj=RGhost::PsObject.new,&block)
+    set RGhost::Graphic.new(ps_obj,&block)
+  end
+
+  #A facade for the class NewPath
+  def newpath(&block)
+    set RGhost::NewPath.new(&block)
+  end
+
+  #A facade for the method Cursor.showpage
+  def showpage
+    
+    set RGhost::Cursor.showpage
+    
+  end
+  #A facade for the class LineWidth
+  def line_width(value=nil)
+    set RGhost::LineWidth.new(value)
+  end
+  
+  #A facade for the method Cursor.goto_row
+  def goto_row(row)
+    
+    set RGhost::Cursor.goto_row(row)    
+  end
+
+  #A facade for the method Cursor.jump_rows
+  def jump_rows(row)
+    @rows+=row
+    set RGhost::Cursor.jump_rows(row)
+  end 
+  
+  #A facade for the method Cursor.rotate
+  def rotate(angle) 
+    set RGhost::Cursor.rotate(angle)
+  end
+  #A facade for the method Cursor.moveto
+  def moveto(point={})
+    set RGhost::Cursor.moveto(point)
+  end
+  
+  #A facade for the method Cursor.rmoveto
+  def rmoveto(point={})
+    set RGhost::Cursor.rmoveto(point)
+  end
+
+  #A facade for the method Cursor.translate
+  def translate(point={})
+    set RGhost::Cursor.translate(point)
+  end
+   
+  #A facade for the class DSCEntry
+  def dsc_entry(&block)
+    set RGhost::DSCEntry.new(&block)
+  end
+ 
+  #Use tag  after defined in define_tags
+  def use_tag(tag_name)
+    raw "_#{tag_name}"
+  end
+  
+  #A facade for the class Image.for
+  def image(path,options={})
+    set RGhost::Image.for(path,options)
+  end
+  
+  #alias horizontal_line
+  def hl(valign=:middle,options={})
+    set RGhost::HorizontalLine.new(valign,options)
+  end
+  
+  #A facade for the class HorizontalLine
+  def horizontal_line(valign=:middle,options={})
+    hl(valign,options)
+  end
+
+  #A facade for the method Frame.background_row
+  def background_row(options={})
+    set RGhost::Frame.background_row(options)
+  end
+  
+  #A facade for the class Scale
+  def scale(sx,sy)
+    set RGhost::Scale.new(sx,sy)
+ 
+  end
+  
+  #A facade for the method Scale.zoom
+  def zoom(percent)
+    set RGhost::Scale.zoom(percent)
+  end
+  
+  #A facade for the class TextIn
+  def text_in(options={})
+    set RGhost::TextIn.new(options)
+  end
+  
+  #A facade for the class Text
+  def text(text,tag_parse=true)
+    set RGhost::Text.new(text.to_s,tag_parse)  
+  end
+    
+  #A facade for the class Show
+  def show(text,align={ :align=> :show_left })
+    set RGhost::Show.new(text.to_s,align)  
+  end
+  
+  def show_next_row(text,align={ :align=> :show_left })
+    next_row
+    show(text,align)
+  end
+  #Alias for show
+  def write(text,align={ :align=> :show_left })
+    show(text.to_s,align)  
+  end
+  #Allows call template after it definition.
+  def use_template(name)
+    call "_#{name}"
+  end
+  
+  #A facade for the class TextArea
+  def text_area(text,options={},tag_parse=true)
+    ta=RGhost::TextArea.new(text,options,tag_parse)
+    raw ta.ps
+    ta
+  end
+
+  #A facade for the class VerticalLine
+  def vertical_line(options={:start_in => :limit_left, :size => :area_y})
+    set RGhost::VerticalLine.new(options)
+  end
+  
+  #A facade for the method VerticalLine.row
+  def vertical_line_row(border_options=RGhost::Border::DEFAULT_OPTIONS)
+    set RGhost::VerticalLine.row(border_options)
+  end
+  
+  #Forces draw shapes
+  def stroke
+    
+    call :stroke
+  end
+ 
+  #A facade for the method Line.lineto
+  def lineto(point={})
+    set RGhost::Line.make_command(:lineto,point)
+  end
+  
+  #A facade for the method Line.rlineto
+  def rlineto(point={})
+    set RGhost::Line.make_command(:rlineto,point)
+  end
+
+  #A facade for the class Dash
+  def dash(options={})
+    set RGhost::Dash.new(options)
+  end
+  
+  #A facade for the method Color.create
+  def color(options)
+    set RGhost::Color.create(options)
+  end
+  
+  #A facade for the class Border
+  def border(options)
+    set RGhost::Border.new(options)
+  end
+  
+  #A facade for the class ShapeContent
+  def shape_content(options)
+    set RGhost::ShapeContent.new(options)
+  end
+  
+  #A facade for the class Frame
+  def frame(options)
+    set RGhost::Frame.new(options)
+  end
+  #A facade for the class Polygon
+  def polygon(options={},&block)
+    set RGhost::Polygon.new(options,&block)
+  end
+  
+  #A facade for the class Circle
+  def circle(options)
+    set RGhost::Circle.new(options)
+  end
+  
+end
+
+

data/lib/rghost/ps_object.rb

@@ -1,15 +1,15 @@
-#Wrapper Postscript
-class PsObject
-   #PS_VERSION=3
-  #Nova inst�ncia de PsObject
+#Postscript wrapper class
+class RGhost::PsObject
+  
+  #Creates new instance of PsObject. Example
   #   PsObject.new("/my_proc { 33 45 2 10 sub mul div} bind def") 
-  #Por bloco
+  #Or by block code
   #   PsObject.new do
   #     set PsObject.new("(A test) show")
   #     raw "(Other Test in raw) show "
   #   end
   def initialize(body="",&block)
-    @body=if body.is_a? PsObject
+    @body=if body.is_a? RGhost::PsObject
       body.ps
     else
       "#{body} "
@@ -18,34 +18,38 @@ class PsObject
     instance_eval(&block) if block
     
   end
-  #Idem ps
+  #Alias for ps.
   def to_s
-      ps
+    ps
   end
-  #Obtem os comandos em Postscript
+  #Gets postscript code.
   def ps
-     @body.to_s
+    @body.to_s
   end
-  #Adiciona comando postscript diretamenta na pilha
-  def raw(value)
-    @body << "#{value} "
+  #Pushes elements on the stack.
+  def raw(*value)
+    @body << "#{value.join(' ')} "
   end 
-  #Seta um PsObject na pilha
+  #Freezes graphic state
+  def graphic_scope
+    "beging #{self} endg "
+  end
+  #Sets PsObject into this object.
   def set(value)
 
-    raise TypeError.new("can't convert #{value.class} into PsObject") unless value.is_a? PsObject
+    raise TypeError.new("can't convert #{value.class} into PsObject") unless value.is_a? RGhost::PsObject
     @body << "#{value.ps} "
-    
+    value
   end
-  #Idem de set, n�o funciona dentro de blocos
+  #Alias for set
   def <<(value)
-      set value
+    set value
    
   end
   
-  #chama um comando,fun��o ou valor internamento dentro da pilha Postscipt
+  #Call operator in the stack
   def call(name)
-    set PsObject.new(name)
+    set RGhost::PsObject.new(name)
   end  
    
 end