rubypost 0.0.7 → 0.0.8

data/lib/options.rb

@@ -1,177 +1,177 @@
-
-module RubyPost
-
-  #return the string s wrapped in btex etex
-  def latex(s)
-    'btex ' + s + ' etex'
-  end
-
-  #options for rubypost drawables.  These wrap metapose commands 
-  #such as 'withpen', 'scaled' and etc
-  class Option < Object
-  end
-
-  #Can insert pure metapost option commands here.
-  class CustomOption < Option
-    def initialize
-      @command = String.new
-    end
-  
-    def initialize(c=Sting.new)
-      @command = c
-    end
-  
-    def compile
-      @command.compile
-    end
-  
-  end
-
-  #wrapper for the metapost withcolor command
-  #Except colour is now spelt correctly.
-  class Colour < Option
-  
-    attr :r
-    attr :g
-    attr :b
-  
-    def initialize(r=0,g=0,b=0)
-      @r = r
-      @g = g
-      @b = b
-    end
-  
-    def compile
-      'withcolor' + '(' + @r.to_s + ',' + @g.to_s + ',' + @b.to_s + ')'
-    end
-  
-  end
-
-  #incorrectly spelt Colour alias
-  class Color < Colour
-  end
-
-
-  #wraps the metapost withpen command
-  class Pen < Option
-  
-    attr_writer :pen_type, :scale
-  
-    def initialize(pt='pencircle', scale  = 1)
-      @pen_type = pt
-      @scale = scale
-    end
-  
-    def compile
-      'withpen ' + @pen_type + ' scaled ' + @scale.compile
-    end
-  
-  end
-
-  #base class for options related to paths
-  class PathOption < Option
-  end
-
-  #dased path
-  #there are a plethora of dashing options.  Only implemented
-  #evenly at present.
-  class Dashed < PathOption
-  
-    def initialize(t='evenly')
-      @type = t
-    end
-  
-    #evenly dashed line
-    def evenly
-      @type = 'evenly'
-      self
-    end
-  
-    #dahed line with dots inbetween dashes
-    def withdots
-      @type = 'withdots'
-      self
-    end
-  
-    #set the type with the metapost command s.
-    def type(s)
-      @type = s
-      self
-    end
-  
-    def compile
-      'dashed ' + @type
-    end
-  
-  end
-
-  #Wrapped the scaled metapost command.
-  #Resizes the drawable.
-  class Scale < Option
-  
-    attr_writer :scale
-  
-    def initialize(scale=1)
-      @scale = scale
-    end
-  
-    def compile
-      'scaled ' + @scale.compile
-    end
-  
-  end
-
-  #Scale alias
-  class Scaled < Scale
-  end
-
-  #Wraps the rotated metapost command
-  class Rotate < Option
-  
-    attr_writer :degrees
-  
-    def initialize(degrees=0)
-      @degrees = degrees
-    end
-  
-    #set the angle in radiians
-    def radians=(rads)
-      @degrees = 180.0*rads/Math::PI
-      self
-    end
-  
-    def compile
-      'rotated ' + @degrees.to_s
-    end
-  
-  end
-
-  #Rotate alias
-  class Rotated < Rotate
-  end
-
-  #Wraps the metapose shifted command. <br>
-  #The translation @t is specifed by a Pair
-  class Translate < Option
-  
-    attr_writer :t
-  
-    def initialize(p=Pair.new)
-      @t = p
-    end
-  
-    def compile
-      'shifted ' + @t.compile
-    end
-  
-  end
-
-  #Translate alias
-  class Shifted < Translate
-  end
-  
-  #Translate alias
-  class Shift < Translate
-  end
-
+
+module RubyPost
+
+  #return the string s wrapped in btex etex
+  def latex(s)
+    'btex ' + s + ' etex'
+  end
+
+  #options for rubypost drawables.  These wrap metapose commands 
+  #such as 'withpen', 'scaled' and etc
+  class Option < Object
+  end
+
+  #Can insert pure metapost option commands here.
+  class CustomOption < Option
+    def initialize
+      @command = String.new
+    end
+  
+    def initialize(c=Sting.new)
+      @command = c
+    end
+  
+    def compile
+      @command.compile
+    end
+  
+  end
+
+  #wrapper for the metapost withcolor command
+  #Except colour is now spelt correctly.
+  class Colour < Option
+  
+    attr :r
+    attr :g
+    attr :b
+  
+    def initialize(r=0,g=0,b=0)
+      @r = r
+      @g = g
+      @b = b
+    end
+  
+    def compile
+      'withcolor' + '(' + @r.to_s + ',' + @g.to_s + ',' + @b.to_s + ')'
+    end
+  
+  end
+
+  #incorrectly spelt Colour alias
+  class Color < Colour
+  end
+
+
+  #wraps the metapost withpen command
+  class Pen < Option
+  
+    attr_writer :pen_type, :scale
+  
+    def initialize(pt='pencircle', scale  = 1)
+      @pen_type = pt
+      @scale = scale
+    end
+  
+    def compile
+      'withpen ' + @pen_type + ' scaled ' + @scale.compile
+    end
+  
+  end
+
+  #base class for options related to paths
+  class PathOption < Option
+  end
+
+  #dased path
+  #there are a plethora of dashing options.  Only implemented
+  #evenly at present.
+  class Dashed < PathOption
+  
+    def initialize(t='evenly')
+      @type = t
+    end
+  
+    #evenly dashed line
+    def evenly
+      @type = 'evenly'
+      self
+    end
+  
+    #dahed line with dots inbetween dashes
+    def withdots
+      @type = 'withdots'
+      self
+    end
+  
+    #set the type with the metapost command s.
+    def type(s)
+      @type = s
+      self
+    end
+  
+    def compile
+      'dashed ' + @type
+    end
+  
+  end
+
+  #Wrapped the scaled metapost command.
+  #Resizes the drawable.
+  class Scale < Option
+  
+    attr_writer :scale
+  
+    def initialize(scale=1)
+      @scale = scale
+    end
+  
+    def compile
+      'scaled ' + @scale.compile
+    end
+  
+  end
+
+  #Scale alias
+  class Scaled < Scale
+  end
+
+  #Wraps the rotated metapost command
+  class Rotate < Option
+  
+    attr_writer :degrees
+  
+    def initialize(degrees=0)
+      @degrees = degrees
+    end
+  
+    #set the angle in radiians
+    def radians=(rads)
+      @degrees = 180.0*rads/Math::PI
+      self
+    end
+  
+    def compile
+      'rotated ' + @degrees.to_s
+    end
+  
+  end
+
+  #Rotate alias
+  class Rotated < Rotate
+  end
+
+  #Wraps the metapose shifted command. <br>
+  #The translation @t is specifed by a Pair
+  class Translate < Option
+  
+    attr_writer :t
+  
+    def initialize(p=Pair.new)
+      @t = p
+    end
+  
+    def compile
+      'shifted ' + @t.compile
+    end
+  
+  end
+
+  #Translate alias
+  class Shifted < Translate
+  end
+  
+  #Translate alias
+  class Shift < Translate
+  end
+
 end

data/lib/redefine_float_to_s_for_metapost.rb

@@ -1,11 +1,20 @@
-
-#metapost cannot handle expoential notation for float
-#strings.  This redefines the Float#to_s so that it is
-#compatible with metapost.
-class Float
-  alias_method :orig_to_s, :to_s
-  def to_s
-    roundedfloat = (10000.0*self).round/10000.0
-    sprintf("%.#{5}f", roundedfloat)
-  end
-end
+
+#metapost cannot handle expoential notation for float
+#strings.  This redefines the Float#to_s so that it is
+#compatible with metapost.
+class Float
+  alias_method :orig_to_s, :to_s
+  def to_s
+    sprintf("%.#{5}f", self)
+  end
+end
+
+#metapost cannot handle the way ruby prints Rational.
+#This redefines the Rational#to_s so that it is
+#compatible with metapost.
+class Rational
+  alias_method :orig_to_s, :to_s
+  def to_s
+    sprintf("%.#{5}f", self.to_f)
+  end
+end

data/lib/revert_float_to_s.rb

@@ -1,6 +1,13 @@
-#puts Float#to_s back to it's original state
-class Float
-  def to_s
-    orig_to_s
-  end
-end
+#puts Float#to_s back to it's original state
+class Float
+  def to_s
+    orig_to_s
+  end
+end
+
+#puts Rational#to_s back to it's original state
+class Rational
+  def to_s
+    orig_to_s
+  end
+end

data/lib/rubypost.rb

@@ -1,8 +1,7 @@
-#load the rest of rubypost
-require 'objects'
-require 'drawable'
-require 'draw'
-require 'options'
-require 'label'
-require 'graph'
-require 'simpleplot'
+#load the rest of rubypost
+require 'objects'
+require 'drawable'
+require 'draw'
+require 'options'
+require 'label'
+require 'graph'

data/tests/mproof.log

@@ -0,0 +1,28 @@
+This is TeX, Version 3.1415926 (TeX Live 2013/Debian) (format=tex 2014.1.26)  26 APR 2014 07:41
+**mproof testsquare.1 testsquare.2
+(/usr/share/texlive/texmf-dist/tex/generic/metapost/mproof.tex
+(/usr/share/texlive/texmf-dist/tex/generic/epsf/epsf.tex
+This is `epsf.tex' v2.7.4 <14 February 2011>
+\epsffilein=\read0
+\epsfframemargin=\dimen16
+\epsfframethickness=\dimen17
+\epsfrsize=\dimen18
+\epsftmp=\dimen19
+\epsftsize=\dimen20
+\epsfxsize=\dimen21
+\epsfysize=\dimen22
+\pspoints=\dimen23
+)
+\m=\count26
+\n=\count27
+)
+(testsquare.1
+testsquare.1: BoundingBox: llx = -142 lly = -142 urx = 142 ury = 142 
+testsquare.1: scaled width = 285.0617pt scaled height = 285.0617pt
+)
+(testsquare.2
+testsquare.2: BoundingBox: llx = -100 lly = -100 urx = 100 ury = 100 
+testsquare.2: scaled width = 200.74768pt scaled height = 200.74768pt
+)
+[1]
+Output written on mproof.dvi (1 page, 520 bytes).

data/tests/test_graph.rb

@@ -34,4 +34,5 @@ gd.add_label(GraphLabel.new(latex("data label"), 5).right)
 puts file.compile_to_string
 file.compile('testgraph')
 
+file.dvi_viewer = 'evince'
 file.view

data/tests/test_path.rb

@@ -4,7 +4,8 @@ require '../lib/objects'
 require '../lib/drawable'
 require '../lib/draw'
 require '../lib/options'
-#require '../lib/graph'
+require '../lib/label'
+require '../lib/graph'
 
 include RubyPost
 

data/tests/test_picture.rb

@@ -4,6 +4,7 @@ require '../lib/objects'
 require '../lib/drawable'
 require '../lib/draw'
 require '../lib/options'
+require '../lib/label'
 require '../lib/graph'
 
 include RubyPost

data/tests/test_square.rb

@@ -4,6 +4,7 @@ require '../lib/objects'
 require '../lib/drawable'
 require '../lib/draw'
 require '../lib/options'
+require '../lib/label'
 require '../lib/graph'
 
 include RubyPost

data/tests/testsquare.1

@@ -0,0 +1,36 @@
+%!PS-Adobe-3.0 EPSF-3.0
+%%BoundingBox: -142 -142 142 142 
+%%HiResBoundingBox: -141.73225 -141.73225 141.73225 141.73225 
+%%Creator: MetaPost 1.803
+%%CreationDate: 2014.04.26:0741
+%%Pages: 1
+%%DocumentResources: procset mpost-minimal
+%%DocumentSuppliedResources: procset mpost-minimal
+%%EndComments
+%%BeginProlog
+%%BeginResource: procset mpost-minimal
+/bd{bind def}bind def/fshow {exch findfont exch scalefont setfont show}bd
+/fcp{findfont dup length dict begin{1 index/FID ne{def}{pop pop}ifelse}forall}bd
+/fmc{FontMatrix dup length array copy dup dup}bd/fmd{/FontMatrix exch def}bd
+/Amul{4 -1 roll exch mul 1000 div}bd/ExtendFont{fmc 0 get Amul 0 exch put fmd}bd
+/ScaleFont{dup fmc 0 get Amul 0 exch put dup dup 3 get Amul 3 exch put fmd}bd
+/SlantFont{fmc 2 get dup 0 eq{pop 1}if Amul FontMatrix 0 get mul 2 exch put fmd}bd
+%%EndResource
+%%EndProlog
+%%BeginSetup
+%%EndSetup
+%%Page: 1 1
+ 0.8 0.8 0.8 setrgbcolor
+newpath -141.73225 -141.73225 moveto
+-141.73225 -47.24553 -141.73225 47.24553 -141.73225 141.73225 curveto
+-47.24553 141.73225 47.24553 141.73225 141.73225 141.73225 curveto
+141.73225 47.24553 141.73225 -47.24553 141.73225 -141.73225 curveto
+47.24553 -141.73225 -47.24553 -141.73225 -141.73225 -141.73225 curveto closepath fill
+ 0 0 0 setrgbcolor
+newpath -42.51968 -42.51968 moveto
+-42.51968 42.51968 lineto
+42.51968 42.51968 lineto
+42.51968 -42.51968 lineto
+ closepath fill
+showpage
+%%EOF

data/tests/testsquare.2

@@ -0,0 +1,42 @@
+%!PS-Adobe-3.0 EPSF-3.0
+%%BoundingBox: -100 -100 100 100 
+%%HiResBoundingBox: -99.21259 -99.21259 99.21259 99.21259 
+%%Creator: MetaPost 1.803
+%%CreationDate: 2014.04.26:0741
+%%Pages: 1
+%%DocumentResources: procset mpost-minimal
+%%DocumentSuppliedResources: procset mpost-minimal
+%%EndComments
+%%BeginProlog
+%%BeginResource: procset mpost-minimal
+/bd{bind def}bind def/fshow {exch findfont exch scalefont setfont show}bd
+/fcp{findfont dup length dict begin{1 index/FID ne{def}{pop pop}ifelse}forall}bd
+/fmc{FontMatrix dup length array copy dup dup}bd/fmd{/FontMatrix exch def}bd
+/Amul{4 -1 roll exch mul 1000 div}bd/ExtendFont{fmc 0 get Amul 0 exch put fmd}bd
+/ScaleFont{dup fmc 0 get Amul 0 exch put dup dup 3 get Amul 3 exch put fmd}bd
+/SlantFont{fmc 2 get dup 0 eq{pop 1}if Amul FontMatrix 0 get mul 2 exch put fmd}bd
+%%EndResource
+%%EndProlog
+%%BeginSetup
+%%EndSetup
+%%Page: 1 1
+gsave newpath -99.21259 -99.21259 moveto
+-99.21259 -33.07187 -99.21259 33.07187 -99.21259 99.21259 curveto
+-33.07187 99.21259 33.07187 99.21259 99.21259 99.21259 curveto
+99.21259 33.07187 99.21259 -33.07187 99.21259 -99.21259 curveto
+33.07187 -99.21259 -33.07187 -99.21259 -99.21259 -99.21259 curveto closepath clip
+ 0.8 0.8 0.8 setrgbcolor
+newpath -141.73225 -141.73225 moveto
+-141.73225 -47.24553 -141.73225 47.24553 -141.73225 141.73225 curveto
+-47.24553 141.73225 47.24553 141.73225 141.73225 141.73225 curveto
+141.73225 47.24553 141.73225 -47.24553 141.73225 -141.73225 curveto
+47.24553 -141.73225 -47.24553 -141.73225 -141.73225 -141.73225 curveto closepath fill
+ 0 0 0 setrgbcolor
+newpath -42.51968 -42.51968 moveto
+-42.51968 42.51968 lineto
+42.51968 42.51968 lineto
+42.51968 -42.51968 lineto
+ closepath fill
+grestore
+showpage
+%%EOF

data/tests/testsquare.3

@@ -0,0 +1,30 @@
+%!PS-Adobe-3.0 EPSF-3.0
+%%BoundingBox: -15 -15 15 15 
+%%HiResBoundingBox: -14.17323 -14.17323 14.17323 14.17323 
+%%Creator: MetaPost 1.803
+%%CreationDate: 2014.04.26:0740
+%%Pages: 1
+%%DocumentResources: procset mpost-minimal
+%%DocumentSuppliedResources: procset mpost-minimal
+%%EndComments
+%%BeginProlog
+%%BeginResource: procset mpost-minimal
+/bd{bind def}bind def/fshow {exch findfont exch scalefont setfont show}bd
+/fcp{findfont dup length dict begin{1 index/FID ne{def}{pop pop}ifelse}forall}bd
+/fmc{FontMatrix dup length array copy dup dup}bd/fmd{/FontMatrix exch def}bd
+/Amul{4 -1 roll exch mul 1000 div}bd/ExtendFont{fmc 0 get Amul 0 exch put fmd}bd
+/ScaleFont{dup fmc 0 get Amul 0 exch put dup dup 3 get Amul 3 exch put fmd}bd
+/SlantFont{fmc 2 get dup 0 eq{pop 1}if Amul FontMatrix 0 get mul 2 exch put fmd}bd
+%%EndResource
+%%EndProlog
+%%BeginSetup
+%%EndSetup
+%%Page: 1 1
+ 0 1 0 setrgbcolor
+newpath -14.17323 -14.17323 moveto
+-14.17323 14.17323 lineto
+14.17323 14.17323 lineto
+14.17323 -14.17323 lineto
+ closepath fill
+showpage
+%%EOF

data/tests/testsquare.log

@@ -0,0 +1,6 @@
+This is MetaPost, version 1.803 (kpathsea version 6.1.1)  26 APR 2014 07:41
+**testsquare.mp
+(mpost.mp (/usr/share/texlive/texmf-dist/metapost/base/plain.mp
+Preloading the plain mem file, version 1.004) ) (./testsquare.mp [1] [2] )
+2 output files written: testsquare.1 .. testsquare.2
+

data/tests/testsquare.mp

@@ -0,0 +1,20 @@
+prologues := 2;
+picture ORIGINAL_PICTURE;
+ORIGINAL_PICTURE := currentpicture;
+beginfig(1);
+fill ((-0.5, -0.5)--(-0.5, 0.5)--(0.5, 0.5)--(0.5, -0.5)--cycle)  scaled 10cm withcolor(0.8,0.8,0.8);
+
+fill ((-0.5, -0.5)--(-0.5, 0.5)--(0.5, 0.5)--(0.5, -0.5)--cycle)  scaled 3cm withcolor(0,0,0);
+
+endfig;
+
+beginfig(2);
+fill ((-0.5, -0.5)--(-0.5, 0.5)--(0.5, 0.5)--(0.5, -0.5)--cycle)  scaled 10cm withcolor(0.8,0.8,0.8);
+
+fill ((-0.5, -0.5)--(-0.5, 0.5)--(0.5, 0.5)--(0.5, -0.5)--cycle)  scaled 3cm withcolor(0,0,0);
+
+clip currentpicture to ((-0.5, -0.5)--(-0.5, 0.5)--(0.5, 0.5)--(0.5, -0.5)--cycle)  scaled 7cm;
+
+endfig;
+
+end;