rubypost 0.0.5 → 0.0.6

data/lib/simpleplot.rb

@@ -0,0 +1,234 @@
+
+module RubyPost
+
+
+  class SimplePlot < Picture
+
+    #initialise with height and width in centemeters
+    def initialize(width, height)
+      super()
+      @plot_array = Array.new
+      @height = height
+      @width = width
+      #axes set by default
+      setaxes(-1,1,-1,1)
+      @xtickstr = "\n"
+      @ytickstr = "\n"
+      @xlabel = "\n"
+      @ylabel = "\n"
+    end
+
+    #the scale factors are decided by the very last plot you add
+    #you can adjust it with the axes command
+    def add_plot(plot)
+      @plot_array.push(plot)
+      setaxesfor(plot)
+    end
+
+    def setaxesfor(plot)
+      puts plot.xmin
+      puts plot.ymax
+      setaxes(plot.xmin, plot.xmax, plot.ymin, plot.ymax)
+    end
+
+    def setaxes(xmin, xmax, ymin, ymax)
+      @xmax = xmax
+      @xmin = xmin
+      @ymax = ymax
+      @ymin = ymin
+
+      @xscale = @width.to_f/(xmax - xmin)
+      @yscale = @height.to_f/(ymax - ymin)
+    end
+
+    #set xtick marks, a is an array of tick position and label is the
+    #text for each tick. func describes whether a tick should be put on
+    #the top or the bottom.  func(x) should return positive for on the bottom
+    #and negative for on the top.
+    def xticks(x, label=nil, func = lambda {|v| 1} )
+      if(label==nil) then label = x.map{|v| latex(v.to_s) } end
+      lplace = x.map{ |v| if(func.call(v) < 0) then 'urt' else 'lrt' end }
+      @xtickstr = ''
+      x.each_index{ |i|
+        @xtickstr = @xtickstr + 'draw ((0,-0.1cm)--(0,0.1cm)) shifted (' + (x[i]*@xscale).to_s + "cm, 0);\n"
+        @xtickstr = @xtickstr + 'label.' + lplace[i].to_s + '(' + label[i] + ' ,(' + (x[i]*@xscale).to_s + "cm, 0));\n"
+      }
+    end
+
+    #set ytick marks, a is an array of tick position and laebl is the text
+    def yticks(y, label=nil )
+      if(label==nil) then label = y.map{|v| latex(v.to_s) } end
+      @ytickstr = ''
+      y.each_index{ |i|
+        @ytickstr = @ytickstr + 'draw ((-0.1.cm,0)--(0.1cm,0)) shifted (0,' + (y[i]*@yscale).to_s + "cm);\n"
+        @ytickstr = @ytickstr + 'label.rt(' + label[i] + ' ,(0,' + (y[i]*@yscale).to_s + "cm));\n"
+      }
+    end
+
+    def xlabel(t)
+      @xlabel = 'label.top(' + t + ', (' + (@xscale*@xmax + 0.6).to_s + "cm,0));\n"
+    end
+
+    def ylabel(t)
+      @ylabel = 'label.rt(' + t + ', (0, ' + (@yscale*@ymax + 0.6).to_s + "cm));\n"
+    end
+
+    def precompile
+      str = "picture " + @name + ";\n"
+
+      #draw the axes
+      str = str + "\n%draw the axes\n"
+      str = str + 'draw ((' + (@xscale*@xmax + 0.6).to_s + 'cm,0)--('+ (@xscale*@xmin - 0.3).to_s + "cm,0));\n"
+      str = str + 'draw ((0, ' + (@yscale*@ymin - 0.3).to_s + 'cm)--(0, ' + (@yscale*@ymax + 0.6).to_s + "cm));\n"
+
+      str = str + "\n%draw xticks\n"
+      str = str + @xtickstr
+      str = str + "\n%draw yticks\n"
+      str = str + @ytickstr
+      str = str + "\n%draw xticks\n"
+      str = str + @xlabel
+      str = str + "\n%draw yticks\n"
+      str = str + @ylabel
+
+
+      #draw each plot componenet.
+      @plot_array.each{|p| 
+        puts p.class
+        puts p.ymax
+        str = str + p.compilewithscale(@xscale, @yscale) }
+
+      str = str + @name + " := currentpicture; currentpicture := " + @@org_picture + ";\n"
+    end
+
+  end
+
+  class AbstractPlot < BaseDrawCommand
+
+    attr_writer :x, :y
+
+    def initialize()
+      super()
+    end
+
+    def xmax
+      @x.max
+    end
+
+    def xmin
+      @x.min
+    end
+
+    def ymax
+      @y.max
+    end
+
+    def ymin
+      @y.min
+    end
+
+  end
+  
+  class LinePlot < AbstractPlot
+
+    #Intitalise with two arrays of the same size.
+    def initialize(x, y)
+      super()
+      @x = x
+      @y = y
+    end
+    
+    def compile
+      @p = Path.new
+      @x.each_index{ |i| @p.add_pair(Pair.new(@x[i].cm, @y[i].cm)) }
+      'draw ' + @p.compile + ' ' + compile_options + ";\n"
+    end
+
+    def compilewithscale(xscale, yscale)
+      @p = Path.new
+      @x.each_index{ |i| @p.add_pair(Pair.new((@x[i]*xscale).cm, (@y[i]*yscale).cm)) }
+      'draw ' + @p.compile + ' ' + compile_options + ";\n"
+    end
+
+  end
+
+  class CurvedPlot < AbstractPlot
+
+    #Intitalise with two arrays of the same size.
+    def initialize(x, y)
+      super()
+      @x = x
+      @y = y
+    end
+
+    def compile
+      @p = Path.new.curved
+      @x.each_index{ |i| @p.add_pair(Pair.new(@x[i].cm, @y[i].cm)) }
+      'draw ' + @p.compile + ' ' + compile_options + ";\n"
+    end
+
+    def compilewithscale(xscale, yscale)
+      @p = Path.new.curved
+      @x.each_index{ |i| @p.add_pair(Pair.new((@x[i]*xscale).cm, (@y[i]*yscale).cm)) }
+      'draw ' + @p.compile + ' ' + compile_options + ";\n"
+    end
+
+  end
+
+  class ImpulsePlot < AbstractPlot
+
+    #Intitalise with two arrays of the same size.
+    def initialize(x, y)
+      super()
+      @x = x
+      @y = y
+    end
+
+    def compile
+      str = ''
+      @x.each_index{ |i| 
+        str = str + 'drawarrow (' + @x[i].to_s + 'cm, 0)--(' + @x[i].to_s + 'cm, ' + @y[i].to_s + 'cm) ' + compile_options + ";\n"
+      }
+      return str
+    end
+
+    def compilewithscale(xscale, yscale)
+      str = ''
+      @x.each_index{ |i|
+        str = str + 'drawarrow (' + (@x[i]*xscale).to_s + 'cm, 0)--(' + (@x[i]*xscale).to_s + 'cm, ' + (@y[i]*yscale).to_s + 'cm) ' + compile_options + ";\n"
+      }
+      return str
+    end
+
+  end
+
+  class StemPlot < AbstractPlot
+
+    #Intitalise with two arrays of the same size.
+    def initialize(x, y)
+      super()
+      @x = x
+      @y = y
+    end
+
+    def compile
+      str = ''
+      @x.each_index{ |i|
+        str = str + 'draw (' + @x[i].to_s + 'cm, 0)--(' + @x[i].to_s + 'cm, ' + @y[i].to_s + 'cm) ' + compile_options + ";\n"
+        str = str + 'fill fullcircle scaled (0.1cm) shifted (' + @x[i].to_s + 'cm, ' + @y[i].to_s + 'cm) ' + compile_options + ";\n"
+      }
+      return str
+    end
+
+    def compilewithscale(xscale, yscale)
+      str = ''
+      @x.each_index{ |i|
+        str = str + 'draw (' + (@x[i]*xscale).to_s + 'cm, 0)--(' + (@x[i]*xscale).to_s + 'cm, ' + (@y[i]*yscale).to_s + 'cm) ' + compile_options + ";\n"
+        str = str + 'fill fullcircle scaled (0.1cm) shifted (' + (@x[i]*xscale).to_s + 'cm, ' + (@y[i]*yscale).to_s + 'cm) ' + compile_options + ";\n"
+      }
+      return str
+    end
+
+  end
+
+
+end

data/tests/test_graph.rb

@@ -34,5 +34,4 @@ 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,8 +4,7 @@ require '../lib/objects'
 require '../lib/drawable'
 require '../lib/draw'
 require '../lib/options'
-require '../lib/label'
-require '../lib/graph'
+#require '../lib/graph'
 
 include RubyPost
 

data/tests/test_picture.rb

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

data/tests/test_simpleplot.rb

@@ -0,0 +1,49 @@
+#require 'rubypost'
+
+require '../lib/objects'
+require '../lib/drawable'
+require '../lib/draw'
+require '../lib/options'
+require '../lib/simpleplot'
+#require '../lib/graph'
+
+include RubyPost
+
+#note, can't use underscores in filenames if you are going
+#to use File#view.  tex mproof breaks
+file = RubyPost::File.new('testsimpleplot')
+
+x = (-3..3).to_a
+y = x.map { |v| v**2 }
+
+lplot = CurvedPlot.new(x,y).add_option(Colour.new(1.0,0,0))
+splot = LinePlot.new(x,y).add_option(Colour.new(1.0,0,0))
+iplot = ImpulsePlot.new(x,y).add_option(Colour.new(0,1.0,0))
+stemplot = StemPlot.new(x,y).add_option(Colour.new(0,0,1.0))
+
+#draw a curved path
+fig1 = Figure.new
+file.add_figure(fig1)
+fig1.add_drawable(lplot)
+
+
+simpplot = SimplePlot.new(10, 5)
+simpplot.add_plot(lplot)
+simpplot.add_plot(splot)
+simpplot.add_plot(iplot)
+simpplot.add_plot(stemplot)
+simpplot.xticks(x)
+simpplot.yticks([3,6,9])
+simpplot.xlabel(latex('t'))
+simpplot.ylabel(latex('X(t)'))
+
+
+#draw a curved path
+fig2 = Figure.new
+file.add_figure(fig2)
+fig2.add_drawable(Draw.new(simpplot))
+
+
+puts file.compile_to_string
+file.compile
+#file.view

data/tests/test_square.rb

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

data/tests/testsimpleplot-1.mps

@@ -0,0 +1,33 @@
+%!PS-Adobe-3.0 EPSF-3.0
+%%BoundingBox: -86 -1 86 256 
+%%HiResBoundingBox: -85.28935 -0.25 85.28935 255.36806 
+%%Creator: MetaPost 1.208
+%%CreationDate: 2010.08.02:2217
+%%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
+ 1 0 0 setrgbcolor 0 0.5 dtransform truncate idtransform setlinewidth pop
+ [] 0 setdash 1 setlinecap 1 setlinejoin 10 setmiterlimit
+newpath -85.03935 255.11806 moveto
+-79.06273 207.2454 -69.58858 159.87465 -56.6929 113.3858 curveto
+-48.70035 84.57266 -39.40112 56.13019 -28.34645 28.34645 curveto
+-22.77745 14.34987 -14.41289 0 0 0 curveto
+14.41289 0 22.77745 14.34987 28.34645 28.34645 curveto
+39.40111 56.13019 48.70035 84.57266 56.6929 113.3858 curveto
+69.58858 159.87465 79.06273 207.2454 85.03935 255.11806 curveto stroke
+showpage
+%%EOF

data/tests/testsimpleplot-2.mps

@@ -0,0 +1,238 @@
+%!PS-Adobe-3.0 EPSF-3.0
+%%BoundingBox: -151 -9 161 164 
+%%HiResBoundingBox: -150.48628 -8.75403 160.67749 163.72165 
+%%Creator: MetaPost 1.208
+%%CreationDate: 2010.08.02:2217
+%%Pages: 1
+%%DocumentResources: procset mpost-minimal
+%%+ font CMR10
+%%DocumentSuppliedResources: procset mpost-minimal
+%%DocumentNeededResources: font CMR10
+%%IncludeResource: font CMR10
+%%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
+ /cmr10 /CMR10 def
+%%EndSetup
+%%Page: 1 1
+ 0 0 0 setrgbcolor 0 0.5 dtransform truncate idtransform setlinewidth pop
+ [] 0 setdash 1 setlinecap 1 setlinejoin 10 setmiterlimit
+newpath 158.7403 0 moveto
+-150.23628 0 lineto stroke
+ 0.5 0 dtransform exch truncate exch idtransform pop setlinewidth
+newpath 0 -8.50403 moveto
+0 158.7403 lineto stroke
+newpath -141.73225 -2.83482 moveto
+-141.73225 2.83482 lineto stroke
+-139.63226 -8.52039 moveto
+(-3) cmr10 9.96265 fshow
+newpath -94.48802 -2.83482 moveto
+-94.48802 2.83482 lineto stroke
+-92.38803 -8.52039 moveto
+(-2) cmr10 9.96265 fshow
+newpath -47.24423 -2.83482 moveto
+-47.24423 2.83482 lineto stroke
+-45.14424 -8.52039 moveto
+(-1) cmr10 9.96265 fshow
+newpath 0 -2.83482 moveto
+0 2.83482 lineto stroke
+2.09999 -8.52039 moveto
+(0) cmr10 9.96265 fshow
+newpath 47.24423 -2.83482 moveto
+47.24423 2.83482 lineto stroke
+49.34422 -8.52039 moveto
+(1) cmr10 9.96265 fshow
+newpath 94.48802 -2.83482 moveto
+94.48802 2.83482 lineto stroke
+96.58801 -8.52039 moveto
+(2) cmr10 9.96265 fshow
+newpath 141.73225 -2.83482 moveto
+141.73225 2.83482 lineto stroke
+143.83224 -8.52039 moveto
+(3) cmr10 9.96265 fshow
+ 0 0.5 dtransform truncate idtransform setlinewidth pop
+newpath -2.83482 47.24423 moveto
+2.83482 47.24423 lineto stroke
+3 44.03403 moveto
+(3) cmr10 9.96265 fshow
+newpath -2.83482 94.48802 moveto
+2.83482 94.48802 lineto stroke
+3 91.27782 moveto
+(6) cmr10 9.96265 fshow
+newpath -2.83482 141.73225 moveto
+2.83482 141.73225 lineto stroke
+3 138.52205 moveto
+(9) cmr10 9.96265 fshow
+156.80309 3 moveto
+(t) cmr10 9.96265 fshow
+3 156.24965 moveto
+(X\(t\)) cmr10 9.96265 fshow
+ 1 0 0 setrgbcolor
+newpath -141.73225 141.73225 moveto
+-128.78806 113.90198 -112.95288 87.51018 -94.48802 62.99231 curveto
+-80.99356 45.0742 -65.99892 28.09071 -47.24423 15.74808 curveto
+-33.07912 6.42587 -16.96332 0 0 0 curveto
+16.96332 0 33.07912 6.42587 47.24423 15.74808 curveto
+65.99892 28.09071 80.99356 45.0742 94.48802 62.99231 curveto
+112.95288 87.51018 128.78804 113.90198 141.73225 141.73225 curveto stroke
+newpath -141.73225 141.73225 moveto
+-94.48802 62.99231 lineto
+-47.24423 15.74808 lineto
+0 0 lineto
+47.24423 15.74808 lineto
+94.48802 62.99231 lineto
+141.73225 141.73225 lineto stroke
+ 0 1 0 setrgbcolor 0.5
+ 0 dtransform exch truncate exch idtransform pop setlinewidth
+newpath -141.73225 0 moveto
+-141.73225 141.73225 lineto stroke
+ 0 0.5 dtransform truncate idtransform setlinewidth pop
+newpath -140.20113 138.03589 moveto
+-141.73225 141.73225 lineto
+-143.26338 138.03589 lineto
+ closepath
+gsave fill grestore stroke
+ 0.5 0 dtransform exch truncate exch idtransform pop setlinewidth
+newpath -94.48802 0 moveto
+-94.48802 62.99231 lineto stroke
+ 0 0.5 dtransform truncate idtransform setlinewidth pop
+newpath -92.95709 59.2964 moveto
+-94.48802 62.99231 lineto
+-96.01895 59.2964 lineto
+ closepath
+gsave fill grestore stroke
+ 0.5 0 dtransform exch truncate exch idtransform pop setlinewidth
+newpath -47.24423 0 moveto
+-47.24423 15.74808 lineto stroke
+ 0 0.5 dtransform truncate idtransform setlinewidth pop
+newpath -45.71347 12.0526 moveto
+-47.24423 15.74808 lineto
+-48.775 12.0526 lineto
+ closepath
+gsave fill grestore stroke
+newpath 0 0 moveto
+0 0 lineto stroke
+newpath 0 0 moveto
+ closepath
+gsave fill grestore stroke
+ 0.5 0 dtransform exch truncate exch idtransform pop setlinewidth
+newpath 47.24423 0 moveto
+47.24423 15.74808 lineto stroke
+ 0 0.5 dtransform truncate idtransform setlinewidth pop
+newpath 48.775 12.0526 moveto
+47.24423 15.74808 lineto
+45.71347 12.0526 lineto
+ closepath
+gsave fill grestore stroke
+ 0.5 0 dtransform exch truncate exch idtransform pop setlinewidth
+newpath 94.48802 0 moveto
+94.48802 62.99231 lineto stroke
+ 0 0.5 dtransform truncate idtransform setlinewidth pop
+newpath 96.01895 59.2964 moveto
+94.48802 62.99231 lineto
+92.95709 59.2964 lineto
+ closepath
+gsave fill grestore stroke
+ 0.5 0 dtransform exch truncate exch idtransform pop setlinewidth
+newpath 141.73225 0 moveto
+141.73225 141.73225 lineto stroke
+ 0 0.5 dtransform truncate idtransform setlinewidth pop
+newpath 143.26338 138.03589 moveto
+141.73225 141.73225 lineto
+140.20113 138.03589 lineto
+ closepath
+gsave fill grestore stroke
+ 0 0 1 setrgbcolor 0.5
+ 0 dtransform exch truncate exch idtransform pop setlinewidth
+newpath -141.73225 0 moveto
+-141.73225 141.73225 lineto stroke
+newpath -140.31483 141.73225 moveto
+-140.31483 142.10818 -140.4642 142.46869 -140.73001 142.7345 curveto
+-140.99582 143.0003 -141.35632 143.14967 -141.73225 143.14967 curveto
+-142.10818 143.14967 -142.46869 143.0003 -142.7345 142.7345 curveto
+-143.0003 142.46869 -143.14967 142.10818 -143.14967 141.73225 curveto
+-143.14967 141.35632 -143.0003 140.99582 -142.7345 140.73001 curveto
+-142.46869 140.4642 -142.10818 140.31483 -141.73225 140.31483 curveto
+-141.35632 140.31483 -140.99582 140.4642 -140.73001 140.73001 curveto
+-140.4642 140.99582 -140.31483 141.35632 -140.31483 141.73225 curveto closepath
+ fill
+newpath -94.48802 0 moveto
+-94.48802 62.99231 lineto stroke
+newpath -93.0706 62.99231 moveto
+-93.0706 63.36824 -93.21997 63.72874 -93.48578 63.99455 curveto
+-93.75159 64.26036 -94.11209 64.40973 -94.48802 64.40973 curveto
+-94.86395 64.40973 -95.22446 64.26036 -95.49026 63.99455 curveto
+-95.75607 63.72874 -95.90544 63.36824 -95.90544 62.99231 curveto
+-95.90544 62.61638 -95.75607 62.25587 -95.49026 61.99007 curveto
+-95.22446 61.72426 -94.86395 61.57489 -94.48802 61.57489 curveto
+-94.11209 61.57489 -93.75159 61.72426 -93.48578 61.99007 curveto
+-93.21997 62.25587 -93.0706 62.61638 -93.0706 62.99231 curveto closepath fill
+newpath -47.24423 0 moveto
+-47.24423 15.74808 lineto stroke
+newpath -45.82681 15.74808 moveto
+-45.82681 16.12401 -45.97618 16.48451 -46.24199 16.75032 curveto
+-46.5078 17.01613 -46.8683 17.1655 -47.24423 17.1655 curveto
+-47.62016 17.1655 -47.98067 17.01613 -48.24648 16.75032 curveto
+-48.51228 16.48451 -48.66165 16.12401 -48.66165 15.74808 curveto
+-48.66165 15.37215 -48.51228 15.01164 -48.24648 14.74583 curveto
+-47.98067 14.48003 -47.62016 14.33066 -47.24423 14.33066 curveto
+-46.8683 14.33066 -46.5078 14.48003 -46.24199 14.74583 curveto
+-45.97618 15.01164 -45.82681 15.37215 -45.82681 15.74808 curveto closepath fill
+ 0 0.5 dtransform truncate idtransform setlinewidth pop
+newpath 0 0 moveto
+0 0 lineto stroke
+newpath 1.41742 0 moveto
+1.41742 0.37593 1.26805 0.73643 1.00224 1.00224 curveto
+0.73643 1.26805 0.37593 1.41742 0 1.41742 curveto
+-0.37593 1.41742 -0.73643 1.26805 -1.00224 1.00224 curveto
+-1.26805 0.73643 -1.41742 0.37593 -1.41742 0 curveto
+-1.41742 -0.37593 -1.26805 -0.73643 -1.00224 -1.00224 curveto
+-0.73643 -1.26805 -0.37593 -1.41742 0 -1.41742 curveto
+0.37593 -1.41742 0.73643 -1.26805 1.00224 -1.00224 curveto
+1.26805 -0.73643 1.41742 -0.37593 1.41742 0 curveto closepath fill
+ 0.5 0 dtransform exch truncate exch idtransform pop setlinewidth
+newpath 47.24423 0 moveto
+47.24423 15.74808 lineto stroke
+newpath 48.66165 15.74808 moveto
+48.66165 16.12401 48.51228 16.48451 48.24648 16.75032 curveto
+47.98067 17.01613 47.62016 17.1655 47.24423 17.1655 curveto
+46.8683 17.1655 46.5078 17.01613 46.24199 16.75032 curveto
+45.97618 16.48451 45.82681 16.12401 45.82681 15.74808 curveto
+45.82681 15.37215 45.97618 15.01164 46.24199 14.74583 curveto
+46.5078 14.48003 46.8683 14.33066 47.24423 14.33066 curveto
+47.62016 14.33066 47.98067 14.48003 48.24648 14.74583 curveto
+48.51228 15.01164 48.66165 15.37215 48.66165 15.74808 curveto closepath fill
+newpath 94.48802 0 moveto
+94.48802 62.99231 lineto stroke
+newpath 95.90544 62.99231 moveto
+95.90544 63.36824 95.75607 63.72874 95.49026 63.99455 curveto
+95.22446 64.26036 94.86395 64.40973 94.48802 64.40973 curveto
+94.11209 64.40973 93.75159 64.26036 93.48578 63.99455 curveto
+93.21997 63.72874 93.0706 63.36824 93.0706 62.99231 curveto
+93.0706 62.61638 93.21997 62.25587 93.48578 61.99007 curveto
+93.75159 61.72426 94.11209 61.57489 94.48802 61.57489 curveto
+94.86395 61.57489 95.22446 61.72426 95.49026 61.99007 curveto
+95.75607 62.25587 95.90544 62.61638 95.90544 62.99231 curveto closepath fill
+newpath 141.73225 0 moveto
+141.73225 141.73225 lineto stroke
+newpath 143.14967 141.73225 moveto
+143.14967 142.10818 143.0003 142.46869 142.7345 142.7345 curveto
+142.46869 143.0003 142.10818 143.14967 141.73225 143.14967 curveto
+141.35632 143.14967 140.99582 143.0003 140.73001 142.7345 curveto
+140.4642 142.46869 140.31483 142.10818 140.31483 141.73225 curveto
+140.31483 141.35632 140.4642 140.99582 140.73001 140.73001 curveto
+140.99582 140.4642 141.35632 140.31483 141.73225 140.31483 curveto
+142.10818 140.31483 142.46869 140.4642 142.7345 140.73001 curveto
+143.0003 140.99582 143.14967 141.35632 143.14967 141.73225 curveto closepath
+ fill
+showpage
+%%EOF

data/tests/testsimpleplot.log

@@ -0,0 +1,4 @@
+This is MetaPost, version 1.208 (kpathsea version 5.0.0) (mem=mpost 2010.05.14)  2 AUG 2010 22:17
+**testsimpleplot.mp
+(./testsimpleplot.mp [1{pdftex.map}] [2] )
+2 output files written: testsimpleplot-1.mps .. testsimpleplot-2.mps

data/tests/testsimpleplot.mp

@@ -0,0 +1,75 @@
+prologues := 2;
+filenametemplate "%j-%c.mps";
+picture ORIGINAL_PICTURE;
+ORIGINAL_PICTURE := currentpicture;
+picture picDblerg;
+
+%draw the axes
+draw ((5.6cm,0)--(-5.3cm,0));
+draw ((0, -0.3cm)--(0, 5.6cm));
+
+%draw xticks
+draw ((0,-0.1cm)--(0,0.1cm)) shifted (-5.0cm, 0);
+label.lrt(btex -3 etex ,(-5.0cm, 0));
+draw ((0,-0.1cm)--(0,0.1cm)) shifted (-3.33333333333333cm, 0);
+label.lrt(btex -2 etex ,(-3.33333333333333cm, 0));
+draw ((0,-0.1cm)--(0,0.1cm)) shifted (-1.66666666666667cm, 0);
+label.lrt(btex -1 etex ,(-1.66666666666667cm, 0));
+draw ((0,-0.1cm)--(0,0.1cm)) shifted (0.0cm, 0);
+label.lrt(btex 0 etex ,(0.0cm, 0));
+draw ((0,-0.1cm)--(0,0.1cm)) shifted (1.66666666666667cm, 0);
+label.lrt(btex 1 etex ,(1.66666666666667cm, 0));
+draw ((0,-0.1cm)--(0,0.1cm)) shifted (3.33333333333333cm, 0);
+label.lrt(btex 2 etex ,(3.33333333333333cm, 0));
+draw ((0,-0.1cm)--(0,0.1cm)) shifted (5.0cm, 0);
+label.lrt(btex 3 etex ,(5.0cm, 0));
+
+%draw yticks
+draw ((-0.1.cm,0)--(0.1cm,0)) shifted (0,1.66666666666667cm);
+label.rt(btex 3 etex ,(0,1.66666666666667cm));
+draw ((-0.1.cm,0)--(0.1cm,0)) shifted (0,3.33333333333333cm);
+label.rt(btex 6 etex ,(0,3.33333333333333cm));
+draw ((-0.1.cm,0)--(0.1cm,0)) shifted (0,5.0cm);
+label.rt(btex 9 etex ,(0,5.0cm));
+
+%draw xticks
+label.top(btex t etex, (5.6cm,0));
+
+%draw yticks
+label.rt(btex X(t) etex, (0, 5.6cm));
+draw ((-5.0cm, 5.0cm)..(-3.33333333333333cm, 2.22222222222222cm)..(-1.66666666666667cm, 0.555555555555556cm)..(0.0cm, 0.0cm)..(1.66666666666667cm, 0.555555555555556cm)..(3.33333333333333cm, 2.22222222222222cm)..(5.0cm, 5.0cm))  withcolor(1.0,0,0);
+draw ((-5.0cm, 5.0cm)--(-3.33333333333333cm, 2.22222222222222cm)--(-1.66666666666667cm, 0.555555555555556cm)--(0.0cm, 0.0cm)--(1.66666666666667cm, 0.555555555555556cm)--(3.33333333333333cm, 2.22222222222222cm)--(5.0cm, 5.0cm))  withcolor(1.0,0,0);
+drawarrow (-5.0cm, 0)--(-5.0cm, 5.0cm)  withcolor(0,1.0,0);
+drawarrow (-3.33333333333333cm, 0)--(-3.33333333333333cm, 2.22222222222222cm)  withcolor(0,1.0,0);
+drawarrow (-1.66666666666667cm, 0)--(-1.66666666666667cm, 0.555555555555556cm)  withcolor(0,1.0,0);
+drawarrow (0.0cm, 0)--(0.0cm, 0.0cm)  withcolor(0,1.0,0);
+drawarrow (1.66666666666667cm, 0)--(1.66666666666667cm, 0.555555555555556cm)  withcolor(0,1.0,0);
+drawarrow (3.33333333333333cm, 0)--(3.33333333333333cm, 2.22222222222222cm)  withcolor(0,1.0,0);
+drawarrow (5.0cm, 0)--(5.0cm, 5.0cm)  withcolor(0,1.0,0);
+draw (-5.0cm, 0)--(-5.0cm, 5.0cm)  withcolor(0,0,1.0);
+fill fullcircle scaled (0.1cm) shifted (-5.0cm, 5.0cm)  withcolor(0,0,1.0);
+draw (-3.33333333333333cm, 0)--(-3.33333333333333cm, 2.22222222222222cm)  withcolor(0,0,1.0);
+fill fullcircle scaled (0.1cm) shifted (-3.33333333333333cm, 2.22222222222222cm)  withcolor(0,0,1.0);
+draw (-1.66666666666667cm, 0)--(-1.66666666666667cm, 0.555555555555556cm)  withcolor(0,0,1.0);
+fill fullcircle scaled (0.1cm) shifted (-1.66666666666667cm, 0.555555555555556cm)  withcolor(0,0,1.0);
+draw (0.0cm, 0)--(0.0cm, 0.0cm)  withcolor(0,0,1.0);
+fill fullcircle scaled (0.1cm) shifted (0.0cm, 0.0cm)  withcolor(0,0,1.0);
+draw (1.66666666666667cm, 0)--(1.66666666666667cm, 0.555555555555556cm)  withcolor(0,0,1.0);
+fill fullcircle scaled (0.1cm) shifted (1.66666666666667cm, 0.555555555555556cm)  withcolor(0,0,1.0);
+draw (3.33333333333333cm, 0)--(3.33333333333333cm, 2.22222222222222cm)  withcolor(0,0,1.0);
+fill fullcircle scaled (0.1cm) shifted (3.33333333333333cm, 2.22222222222222cm)  withcolor(0,0,1.0);
+draw (5.0cm, 0)--(5.0cm, 5.0cm)  withcolor(0,0,1.0);
+fill fullcircle scaled (0.1cm) shifted (5.0cm, 5.0cm)  withcolor(0,0,1.0);
+picDblerg := currentpicture; currentpicture := ORIGINAL_PICTURE;
+
+beginfig(1);
+draw ((-3cm, 9cm)..(-2cm, 4cm)..(-1cm, 1cm)..(0cm, 0cm)..(1cm, 1cm)..(2cm, 4cm)..(3cm, 9cm))  withcolor(1.0,0,0);
+
+endfig;
+
+beginfig(2);
+draw picDblerg ;
+
+endfig;
+
+end;