rghost 0.7.4 → 0.8

data/lib/rghost/show.rb

@@ -1,31 +1,88 @@
 require "ps_object"
 require "ruby_to_ps"  #to_string
 
-#Escreve um texto alinhado na faixa corrente ou na p�gina.
-class Show < PsObject
+#Writes a text on the current row or point with align.
+class RGhost::Show < RGhost::PsObject
   
-  attr_accessor :text, :align
+  attr_accessor :text, :align, :tag
+  DEFAULT_OPTIONS={:tag => :default_font, :align => :show_left}
+  include RGhost::RubyToPs
+  #===Options
+  #
+  #* <tt>:tag or :with</tt> - Use predefined tag
+  #* <tt>:color</tt> - Override color of the tag
+  #* <tt>:align</tt> - Align of the text
+  #===Examples
+  #The vertical line is the current point. For align by point
+  # doc.moveto :x => 3, :y => 4
+  # doc.show "Foo Bar Baz", :align => :show_left      #default
+  #link:images/show01.png 
+  #
+  # doc.moveto :x => 3, :y => 4
+  # doc.show "Foo Bar Baz", :align => :show_center 
+  #link:images/show02.png 
+  #
+  # doc.moveto :x => 3, :y => 4
+  # doc.show "Foo Bar Baz", :align => :show_right
+  #link:images/show03.png 
+  #
+  #For the the current row it's not necessary positioned using moveto. Like below
+  # doc.show "Foo Bar Baz", :align => :show_right
+  #Now justification in page
+  #
+  # doc.show "Foo Bar Baz", :align => :page_left     
+  # 
+  #link:images/show04.png 
+  #
+  # doc.show "Foo Bar Baz", :align => :page_center 
+  # 
+  #link:images/show05.png 
+  #
+  # doc.show "Foo Bar Baz", :align => :page_right
+  # 
+  #link:images/show06.png 
+  #
+  #====Overrinding tag's color 
+  #
+  # doc.show "Foo Bar Baz", :with => :my_italic, :align => :page_center, :color => :red 
+  # 
+  #link:images/show07.png 
+  #
+  #Many tags per row
+  #  doc=Document.new
+  #  doc.define_tags do
+  #    tag :font1, :name => 'Helvetica', :size => 10, :color => '#F34811' 
+  #    tag :font2, :name => 'Times',     :size => 14, :color => '#A4297A' 
+  #    tag :font3, :name => 'TimesBold', :size => 18, :color => '#AA3903' 
+  #  end
+  #
+  #  doc.show "foo bar baz ",  :with => :font1
+  #  doc.show "qux quux ",     :with => :font2
+  #  doc.show "corge ",        :with => :font3
+  #  doc.show "grault garply ",:with => :font2
+  #  doc.show "qux quux",      :with => :font1
+  #
+  #link:images/show08.png 
   
-  include RubyToPs
-  #Nova inst�ncia de Text.
-  #Alinhamento pela faixa
-  # Show.new("Frog say", :align => :show_center) #no centro do ponto corrente
-  # Show.new("Frog say", :align => :show_left)   #(default) ap�s o ponto corrente 
-  # Show.new("Frog say", :align => :show_right)  #antes do ponto corrente
-  #Alinhamento pela p�gina
-  # Show.new("Page align", :align => :page_center) #centro da p�gina
-  # Show.new("Page align", :align => :page_left)   #esquerda da p�gina
-  # Show.new("Page align", :align => :page_right)  #direita da p�gina
-  def initialize(text,align={ :align=>:show_left } )
-    super(text)
-    @align=align[:align]  
-    
+
+  
+  def initialize(text,options={ :align=>:show_left, :tag => :default_font, :color => 0 } )
+    @text = text
+    @options=DEFAULT_OPTIONS.dup.merge(options)
   end
   
   def ps
-  
-      "#{to_string(super)} #{@align}"  
+    rtext=RGhost::PsObject.new
+    #rtext.raw Color.create(@options[:color] || 0) 
+    if @options[:with] || @options[:tag]
+      f="_#{@options[:with] || @options[:tag]}"
+      rtext.raw f 
+    end
+    rtext.raw RGhost::Color.create(@options[:color])  if @options[:color]
+    rtext.raw to_string(@text)
+    rtext.raw @options[:align]
+    
+    rtext.graphic_scope
   end
 
 end
-

data/lib/rghost/static_document_callback.rb

@@ -1,17 +1,13 @@
 require "ps_object"
-require "function"
-#Callbacks est�ticos para classe Document
-class StaticDocumentCallback < Function
+require 'function'
+
+class RGhost::StaticDocumentCallback < RGhost::Function #:nodoc:
   ACCEPT=[:before_document_create,
           :first_page,
           :last_page,
           :after_document_create 
   ]  
   
-  #Nova inst�ncia de StaticDocumentCallback. N�o aceita :only ou :excpet
-  #   sc=StaticDocumentCallback.new :before_document_create do  
-  #     set HorizontalLine.new
-  #   end
   def initialize(name,&block)
     raise NameError.new("#{name} no accept in #{self.class}") unless ACCEPT.include? name
     super(name,&block)

data/lib/rghost/text.rb

@@ -0,0 +1,44 @@
+require "ps_object"
+require "units"
+require "font"
+require "ruby_to_ps"
+#Wraps the text so as the it fits on the page(:area_x). Wrapping happens at whitespace characters without hyphenation. 
+#Additionally you can make use of predefined tag and the special tag <br/> to break row. You can disable the parse with second parameter tag_parse=false.
+#===Examples
+#  doc=Document.new
+#  doc.define_tags do
+#    tag :font1, :name => 'Helvetica', :size => 10, :color => '#F34811' 
+#    tag :font2, :name => 'Times',     :size => 11, :color => '#A4297A' 
+#    tag :font3, :name => 'TimesBold', :size => 12, :color => '#AA3903' 
+#  end
+#  my_text="<font1>foo, bar, baz</font1>,<font2>qux, quux</font2>, corge, grault, garply, waldo, <font3>fred, plugh,</font3> xyzzy,<br/> thud, bing" 
+#  doc.text my_text
+#  
+#link:images/text01.png 
+#
+#===Without parse
+#  text="<font1>foo, bar, baz</font1>,<font2>qux, quux</font2>, corge, grault, garply, waldo, <font3>fred, plugh,</font3> xyzzy,<br/> thud, bing" 
+#  doc.text text,false
+#
+#link:images/text02.png 
+class RGhost::Text < RGhost::PsObject
+  include RGhost::RubyToPs
+  include RGhost::ParseText
+  attr_reader  :rows
+  
+  def initialize(text,tag_parse=true)
+    super("")
+    @text=text
+    @tag_parse=tag_parse
+    @options={:text_align => :left}
+  end
+
+  def ps
+    text_to_ps #from RGhost::ParseText
+  end
+  
+
+
+
+end
+

data/lib/rghost/text_in.rb

@@ -1,27 +1,49 @@
 require "ps_object"
 require "cursor"
 require "ruby_to_ps"
-#Escreve um texto em uma determinada posi��o avaliando com RubyToPs.string_eval
-class TextIn < PsObject
-  include RubyToPs
-  DEFAULT_OPTIONS={:x=> :limit_left, :y=> :current_row, :text => "Ruby Ghost API - current_row= %row% "}
-  #Nova inst�ncia de TextIn
-  # text=TextIn.new(:x => 12, :text => "Text in x=12")
-  #Avaliando o texto
-  # text=TextIn.new(:x => 12, :text => "Text in x=12 and current_row = %row%")
-  #Usando x e y 
-  # text=TextIn.new(:x => 6, :y=> 25, :text => "My Report with RubyGhost")
+#TextIn is a helper to combine the cursor positioning and text output into one step.
+class RGhost::TextIn < RGhost::PsObject
+  include RGhost::RubyToPs
+  DEFAULT_OPTIONS={:x=> :limit_left,:y=> :current_row, :tag => :default_font, :write => "Ruby Ghost API - current_row = %row% "}
+  #===Options
+  #* <tt>:x and :y</tt> - Initial position.
+  #* <tt>:tag or :with</tt> - Use predefined tag.
+  #* <tt>:color</tt> - Override color of the tag.
+  #* <tt>:text or :write</tt> - The text.
+  #===Examples
+  # doc=RGhost::Document.new
+  # doc.text_in :x => 3, :y => 4, :write => "Foo Bar Baz", :tag => :h1
+  #====Rotating
+  # doc.newpath do
+  #  translate :x => 3, :y=> 4
+  #   rotate 45
+  #   text_in :x => 0, :y => 0, :write => "Foo Bar Baz1", :tag => :font2
+  # end
+  #====Eval postscript internal
+  #TextIn will eval postscript internal variables you pass in between % signs. Sounds complex, huh?  Let's see an example:
+  # doc.text_in :x=> 3.5, :y=> 5.5, :text => "this is %row% row and current page %current_page%"
   def initialize(options={})
     
     @options=DEFAULT_OPTIONS.dup.merge(options)
   end
   
   def ps
-    text=PsObject.new
-    text.set Cursor.moveto(@options)
-    text.raw string_eval(@options[:text])
+    text=RGhost::PsObject.new
+    text.set RGhost::Cursor.moveto(@options)
+    #text.raw "currentfont"
+    #text.raw "currentrgbcolor"
+    text.raw RGhost::Color.create(@options[:color])  if @options[:color]
+    f="_#{@options[:with] || @options[:tag] || :default_font}"
+    text.raw f
+    #text.call @options[:with] || @options[:tag]  || :default_font
+    
+    text.raw string_eval(@options[:write] || @options[:text])
+    #text.raw "setrgbcolor"
+    #text.raw "setfont"
+    text.graphic_scope
     #text.set PsObject.new(@options[:text])
-    text
+   
+   
     
     
   end

data/lib/rghost/textarea.rb

@@ -2,114 +2,87 @@ require "ps_object"
 require "units"
 require "font"
 require "ruby_to_ps"
+require 'parse_text'
+#TextArea wraps the text so as the it fits in a box of a given width. Wrapping happens at whitespace characters without hyphenation.
+#Additionally you can make use of predefined tag and the special tag <br/> to break row. 
+#The alignment can be left, right and centered.
+#
+#PS: It not jumps pages.
 
-#�rea de texto com quebra de linha autom�tica(whitespace wrap) e tags de tipo de fonte.
-class TextArea < PsObject
-  include RubyToPs
+class RGhost::TextArea < RGhost::PsObject
+  include RGhost::RubyToPs
+  include RGhost::ParseText
+  
   DEFAULT_OPTIONS={
     :width => :area_x,
     :row_height => :row_height,
-    :x => :limit_left,
-    :y => :current_row,
-    :normal => :font_normal,
-    :bold => :font_bold,
-    :italic => :font_italic,
-    :bold_italic => :font_bold_italic
+    :x=> :limit_left,
+    :y=> :current_row,
+    :text_align => :left
+   
   }
-  #Nova inst�ncia de TextArea. 
-  #As seguintes tags s�o aceitas
-  # <b>Texto negrito</b>            # usa a fonte definida na op��o :bold
-  # <i>Texto it�lico</i>            # usa a fonte definida na op��o :italic
-  # <bi>Text negrito e it�lico</bi> # usa a fonte definida na op��o :bold_italic
-  # <br>                            # quebra de linha
-  #Para texto fora de tag a fonte :normal ser� usada.
-  #TextArea com 5 unidades de largura
-  # text="<i>Anonymous</i> will <b>never</b> ask you <br>for sensitive personal information via an email."
-  # ta=TextArea.new(text,:width => 5)
-  #TextArea personalizando fontes
-  # doc=Document.new
-  # doc.define(:title_font) do
-  #   set Font.new(:name => "Times", :size => 24)  
-  # end
-  # doc.define(:my_italic) do
-  #   set Font.new(:name => "HelveticaOblique", :size => 10)  
-  # end
-  # text="<b>My Report</b><br><br>You will notice a new <i>Services</i> tab on your project"
-  # ta=TextArea.new(text, :x=> 6, :y=> 20, :bold => :title_font, :italic => :my_italic)
-  # doc.set ta
-  # doc.render :pdf
+
+  #===Options
+  #* <tt>:x and :y</tt> - Initial position.
+  #* <tt>:row_height</tt> - Row height :)
+  #* <tt>:with</tt> - Max wide of the text
+  #* <tt>:text_align</tt> - Align of the text in the virtual box using :left, :right and :center.
+  #===Examples
+  # doc=RGhost::Document.new
+  # my_text="<font1>foo, bar, baz</font1><font2>qux, quux</font2>, corge, grault, garply, waldo, <font3>fred, plugh,</font3> xyzzy,<br/> thud, bing"
+  # doc.text_area my_text
   # 
-  def initialize(text,options={})
+  #link:images/text_area01.png 
+  # 
+  # doc.text_area my_text, :width =>3
+  #
+  #link:images/text_area02.png 
+  #
+  # doc.text_area my_text, :width =>3, :text_align => :center
+  #
+  #link:images/text_area03.png 
+  #
+  # doc.text_area my_text, :width =>3, :text_align => :right
+  #
+  #link:images/text_area04.png 
+  #
+  # doc.text_area my_text, :width =>3, :text_align => :right, :x => 3
+  #
+  #link:images/text_area05.png 
+  #
+  # doc.text_area my_text, :width =>3, :text_align => :right, :x => 3, :row_height => 0.6
+  #
+  #link:images/text_area06.png 
+  
+  def initialize(text,options={},tag_parse=true)
     super("")
-    @text=ps_escape(text)
+    @text=text
+    @tag_parse=tag_parse
+    options||={}
     @options=DEFAULT_OPTIONS.dup.merge(options)
     
-    
   end
 
   def ps
-   ls=Units::parse( @options[:row_height] ) 
-   w=Units::parse( @options[:width] )
-   x=Units::parse( @options[:x] )
-   y=Units::parse( @options[:y] )
-  
-<<TEXT_AREA_HEAD  
-/textbox {
-  /line_space {  #{ls} } def
-  /lm 0 def
-  /bm 0 def
-  /rm #{w} def 
-  /tm 0 def 
-  lm tm moveto
-} def
-/newline {
-  tm line_space sub
-	/tm exch def
-	lm tm moveto
-} def
-textarea_defaults
-  gsave
-    #{x} #{y} translate
-	  textbox
-	  #{@options[:normal]}
-    #{text_to_ps(@text)}
-	grestore
-TEXT_AREA_HEAD
-
-  end
-  
-  private
-  
-  def text_to_ps(text)
-    text.gsub!(/<br\/?>/,"<br></br>")
-    text="<b></b>"+text
-    t=text.scan(/(<\w{1,2}>[^<]*<\/\w{1,2}>)([^<>]*)/).flatten
-    t.shift
+    bw=RGhost::Units::parse(@options[:width])
+    ta=@options[:text_align]
+    rh=RGhost::Units::parse(@options[:row_height])
     
-    formated_text=""
-    
-    t.flatten.each do |line|
-      exp=expand_str(line)
-      case exp
-        when /^<b>/: formated_text << "#{@options[:bold]} (#{exp.gsub(/<\/?b>/,'')})S \n"
-        when /^<i>/: formated_text << "#{@options[:italic]} (#{exp.gsub(/<\/?i>/,'')})S \n"
-        when /^<bi>/: formated_text << "#{@options[:bold_italic]} (#{exp.gsub(/<\/?bi>/,'')})S \n"
-        when /^<br><\/br>/: formated_text << " L  \n"
-        when /^\s?$/:        
-        else formated_text << "#{@options[:normal]} (#{exp})S\n"
-      end
-      
+    graph=RGhost::Graphic.new do
+      set RGhost::Variable.new(':bw',bw)
+      set RGhost::Variable.new('text_align',"/#{ta}")
+      #      set Variable.new(':rp',rp)
+      set RGhost::Variable.new(':rh',rh)
     end
- 
-    formated_text
-  end 
-  
-  def expand_str(s)
-    ("#{s} " unless s =~ /\s$/) || s
+    graph.set RGhost::Cursor.translate(@options) 
+    graph.set RGhost::Cursor.moveto(:x => 0, :y =>0) 
+    #graph.raw ":text_area #{text_to_ps} :text_proc"
+    graph.raw text_to_ps
+    graph
+    #final_text=text_to_ps
+    
   end
   
+ 
 end
 
-
-#puts TextArea.new
-#puts text_to_ps(texto) 

data/lib/rghost/units.rb

@@ -1,81 +1,82 @@
 require "function"
 require "ps_object"
-#Modulo de unidades de medida
-module Units
-  #Ponto em Postscript
-  class Unit < PsObject
+#The postscript default unit is the 1/72th inch. RGhost uses the centimeters (cm) as it's default, mainly for positioning coordinates and numeric object sizes (if the size is a String, it won't be parsed to the default unit). This setting can be changed setting the value of RGhost::Config::GS[:unit] before the document is created using any of the Units child classes. 
+#===Example:
+#
+#====Setting to inches.
+# RGhost::Config::GS[:unit]=Units::Inch
+# doc.moveto :x => 1, :y => 2  #=> 1 inch x 2 inches 
+#====Explicitly setting to Cm.
+# doc.moveto :x => '1 cm' , :y => '2 cm'
+#====Using the Postscript unit 
+# doc.moveto :x => '100' , :y => '200'
+module RGhost::Units
+
+  class Unit < RGhost::PsObject
   	
-  	attr_accessor :value
+    attr_accessor :value
   
-  	def initialize(value=0)
-  		@value=value
-  	end
+    def initialize(value=0)
+      @value=value
+    end
   
-  	def ps
+    def ps
   	
-  		"#{@value} #{self.class.to_s.gsub('Units::','').downcase} "
-  	end
+      "#{@value} #{self.class.to_s.gsub('RGhost::Units::','').downcase} "
+    end
   
-  	def Unit.define
-  			""
-  	end
+    def Unit.define
+      ""
+    end
   end
   #n/72 * 2.545
   class Cm < Unit
   	
-  	def Cm.define
-  	  Function.new("cm","72 div 2.545 mul")
+    def Cm.define
+      Function.new("cm","72 div 2.545 mul")
   		
-  	end
+    end
   
   end
   #n*72
   class Inch < Unit
   
-  	def Inch.define
-  		Function.new("inch","72 mul")
-  	end
+    def Inch.define
+      RGhost::Function.new("inch","72 mul")
+    end
   
   end
 
   class PSUnit < Unit
   
     def ps
-        "#{@value} "
+      "#{@value} "
     end
   
   end
   
 
   
-  #Parse da unidade padr�o
+  #Parses units
   # Units::DEFAULT=Utits::Cm
-  # Units.parse(2)         # "2 cm"
-  # Units.parse(:row)      # "row"
-  # Units.parse("3 inch")  # "3 inch"
-  # Units.parse("2")       # "2"
-  #Usando medida americana
+  # Units.parse(2)                #=> "2 cm"
+  # Units.parse(:current_row)     #=> "current_row"
+  # Units.parse("3 inch")         #=> "3 inch"
+  # Units.parse("2")              #=> "2"
+  # 
+  #Using US metric
   #  Units::DEFAULT=Utits::Inch
-  #  Units.parse(2)         # "2 inch"
-  #  Units.parse(:row)      # "row"
-  #  Units.parse("3 cm")    # "3 cm"
-  #  Units.parse("5")       # "5"
-  def Units.parse(value)
+  #  Units.parse(2)               #=> "2 inch"
+  #  Units.parse(:current_row)    #=> "current_row"
+  #  Units.parse("3 cm")          #=> "3 cm"
+  #  Units.parse("5")             #=> "5"
+  def self.parse(value)
     if value.is_a? Numeric
-      RubyGhostConfig::GS[:unit].new(value)
+      RGhost::Config::GS[:unit].new(value)
     else
-      PsObject.new(value)
+      RGhost::PsObject.new(value)
     end
   end
 end
-#c=Cm.new(3)
-#puts c.ps
-#puts Cm.define
-# 
-# u=Unit.new(3)
-# puts u.to_ps+c.to_ps
-# 
-# i=Inch.new(9)
-# puts i.to_ps
-# puts Inch.define
+
 

data/lib/rghost/variable.rb

@@ -1,9 +1,9 @@
 require "ps_object"
-#Cria uma vari�vel em Postscript
-class Variable < PsObject
+#Creates Postscript variable
+class RGhost::Variable < RGhost::PsObject
   
-  #Nova inst�ncia de Variable
-  #  v=Variable.new(:mytext, "(text text text text text )")
+  #===Example
+  #  v=Variable.new(:mytext, Show.new("Fooo Barrr") )
   #  doc.set v 
   def initialize(name,value)
     super("/#{name} #{value} def")

data/lib/rghost/vertical_line.rb

@@ -2,27 +2,35 @@ require "ps_object"
 require "units"
 require "load"
 
-#Cria uma linha vertical iniciando da faixa corrente
-#
-class VerticalLine < PsObject
-  
-  #Nova inst�ncia de VerticalLine.
-  #Desenha linha onde :start_in => posi��o y e :size => o tamanho 
-  # VerticalLine.new(:start_in => 3, :size => 4)  
-  def initialize(start_in=:limit_left,size=:area_y)
-    
-      start_in=Units::parse(start_in)
-      size=Units::parse(size)
-    
-    super("#{start_in} #{size} vertical_line")
-    
+#Creates vertical line starting from current row. 
+class RGhost::VerticalLine < RGhost::PsObject
+  DEFAULT_OPTIONS={
+    :start_in=>:limit_left,:size=>:area_y,
+    :border => RGhost::Border::DEFAULT_OPTIONS
+  }
+  #Draws a vertical line where :start_in => y position and :size => size of line.
+  #===Example
+  # doc=Document.new
+  # doc.vertical_line :start_in => 1, :size => 2, :border => {:color => :red}
+  def initialize(options=RGhost::Border::DEFAULT_OPTIONS)
+    super(""){}
+    options=DEFAULT_OPTIONS.dup.merge(options)
+    start_in= RGhost::Units::parse(options[:start_in] || :limit_left)
+    size= RGhost::Units::parse(options[:size]|| :area_y)
+    g=RGhost::Graphic.new
+    g.set RGhost::Border.new(options[:border]) if options[:border]
+    g.raw "#{start_in} #{size} vertical_line "
+    set g
   end
-  #Desenha uma linha vertical do tamanho de :row_height do documento na posi��o :y corrente
+  #Draws a vertical line with size or :row_height of the document.
   #  doc=Document.new
-  #  doc.set VerticalLine.row
-  def VerticalLine.row
-    PsObject.new(" vlrf")
-  
+  #  doc.vertical_line_row
+  def self.row(border=RGhost::Border::DEFAULT_OPTIONS)
+    
+    g=RGhost::Graphic.new
+    g.set RGhost::Border.new(border)
+    g.raw :vlrf
+    g
   end
   
 end

data/lib/rghost/virtual_pages.rb

@@ -0,0 +1,42 @@
+#Defines virtual pages for the Document by method virtual_pages
+class RGhost::VirtualPages < RGhost::PsObject
+  
+  DEFAULT_OPTIONS={:width => 5, :margin_left => 0}
+  include RGhost::RubyToPs
+  def initialize(&block)
+    super(''){}
+    @pages=[]
+    instance_eval(&block) if block
+  
+  end
+
+  def new_page(options=RGhost::VirtualPages::DEFAULT_OPTIONS)
+    options.merge(RGhost::VirtualPages::DEFAULT_OPTIONS)
+    
+    @pages << options
+  end
+  
+  def ps
+    first=true
+    all_pages=@pages.map do |p| 
+      w=RGhost::Units::parse(p[:width]) 
+      if first
+        first=false
+        "[#{w}]"
+      else
+        m=RGhost::Units::parse(p[:margin_left])
+        
+        "[#{w} #{m}]"
+        
+      end
+      #"[#{m} #{w}]"
+    end
+    o=RGhost::PsObject.new
+    o.set RGhost::Variable.new(:has_vp?, true)
+    o.raw "/vp_params [ #{all_pages.join('')} ] def "
+    o.call :vp_proc
+    o
+    
+  end
+
+end