kamal-railsbench 0.9.9.pre

data/script/perf_diff

@@ -0,0 +1,48 @@
+#!/usr/bin/env ruby
+
+if ARGV.length < 4 || ARGV.first == 'help'
+  $stderr.puts 'usage: perf_diff iterations common-options options1 options4 [conf-name1] [conf-name2]'
+  $stderr.puts 'example: perf_diff 100 "-bm=all"  "-log" "-nocache" c1 c2'
+  exit 1
+end
+
+bindir = File.dirname(__FILE__)
+require "#{bindir}/../lib/railsbench/perf_utils"
+
+determine_rails_root_or_die!
+
+iterations = ARGV[0]
+common = ARGV[1]
+options1 = ARGV[2]
+options2 = ARGV[3]
+
+benchmark = "default"
+benchmark = $1 if common =~ /-bm=([^ ]+)/
+
+file1 = benchmark_file_name(benchmark, ARGV[4], 1)
+perf_run("perf_diff", iterations, "#{common} #{options1}", file1)
+puts;puts
+
+file2 = benchmark_file_name(benchmark, ARGV[5], 2)
+perf_run("perf_diff", iterations, "#{common} #{options2}", file2)
+puts;puts
+
+system("ruby #{bindir}/perf_comp #{file1} #{file2}")
+
+__END__
+
+#  Copyright (C) 2005-2008  Stefan Kaes
+#
+#  This program is free software; you can redistribute it and/or modify
+#  it under the terms of the GNU General Public License as published by
+#  the Free Software Foundation; either version 2 of the License, or
+#  (at your option) any later version.
+#
+#  This program is distributed in the hope that it will be useful,
+#  but WITHOUT ANY WARRANTY; without even the implied warranty of
+#  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+#  GNU General Public License for more details.
+#
+#  You should have received a copy of the GNU General Public License
+#  along with this program; if not, write to the Free Software
+#  Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA

data/script/perf_diff_gc

@@ -0,0 +1,53 @@
+#!/usr/bin/env ruby
+
+if ARGV.length < 4 || ARGV.first == 'help'
+  $stderr.puts 'usage: perf_diff_gc iterations options1 options2 [conf-name1] [conf-name2]'
+  $stderr.puts 'example: perf_diff_gc 100 "-bm=default" "-log" "-nocache" c1 c2'
+  exit 1
+end
+
+bindir = File.dirname(__FILE__)
+require "#{bindir}/../lib/railsbench/perf_utils"
+
+determine_rails_root_or_die!
+
+iterations = ARGV[0]
+common = ARGV[1]
+options1 = ARGV[2]
+options2 = ARGV[3]
+
+benchmark = "default"
+benchmark = $1 if common =~ /-bm=([^ ]+)/
+
+file1 = benchmark_file_name(benchmark, ARGV[4], 1, :gc)
+perf_run_gc("perf_run_gc", iterations, "#{common} #{options1}", file1)
+
+puts;puts
+
+file2 = benchmark_file_name(benchmark, ARGV[5], 2, :gc)
+perf_run_gc("perf_run_gc", iterations, "#{common} #{options2}", file2)
+
+puts;puts
+
+puts "benchmark comparison data"
+puts
+
+system("ruby #{bindir}/perf_comp_gc #{file1} #{file2}")
+
+__END__
+
+#  Copyright (C) 2005-2008  Stefan Kaes
+#
+#  This program is free software; you can redistribute it and/or modify
+#  it under the terms of the GNU General Public License as published by
+#  the Free Software Foundation; either version 2 of the License, or
+#  (at your option) any later version.
+#
+#  This program is distributed in the hope that it will be useful,
+#  but WITHOUT ANY WARRANTY; without even the implied warranty of
+#  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+#  GNU General Public License for more details.
+#
+#  You should have received a copy of the GNU General Public License
+#  along with this program; if not, write to the Free Software
+#  Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA

data/script/perf_html

@@ -0,0 +1,103 @@
+#!/usr/bin/env ruby
+
+unless ARGV.include?('-nocss')
+puts <<'END'
+<style type="text/css">
+<!--
+.perf_header, .perf_data, .perf_name { font-size:70%; padding-left:5px; padding-right:5px; }
+.perf_header { text-align:center; vertical-align:top; font-weight:bold;}
+.i { font-style:italic; }
+.b { font-weight:bold; }
+.c1 { background:#fff3df; }
+.c2 { background:#dfedff; }
+.factor { background:#efe0ef; }
+.factor_red_alert { background:#CC303B; }
+.factor_red { background:#FF6060; }
+.factor_reddish { background:#FFA766; }
+.factor_green_alert { background:#0B8900; }
+.factor_green { background:#6AB788; }
+.factor_greenish { background:#7FFFB0; }
+.name { background:#dfdfdf; }
+.perf_name   { text-align:left;   }
+.perf_data   { text-align:right;  }
+-->
+</style>
+END
+end
+
+def factor_class(v)
+  return 'factor' unless ARGV.include?('-colorize')
+  if v <= 0.85
+    'factor_red_alert'
+  elsif v <= 0.90
+    'factor_red'
+  elsif v <= 0.95
+    'factor_reddish'
+  elsif v >= 1.15
+    'factor_green_alert'
+  elsif v >= 1.10
+    'factor_green'
+  elsif v >= 1.05
+    'factor_greenish'
+  else
+    'factor'
+  end
+end
+
+unless ARGV.include?('-notable')
+  puts "<table cellspacing=1px>"
+  $stdin.each_line do |l|
+    case l
+      when /^garbage collection/
+      unless ARGV.include?('-gc')
+        puts "</table>"
+        exit
+      end
+      puts "<tr></tr><tr></tr>"
+      puts "<tr>"
+      puts "<th class='perf_header name' style='text-align:left'>GC statistics</th>"
+      puts "<th class='perf_header c1'>c1 total</th><th class='perf_header c2'>c2 total</th>"
+      puts "<th class='perf_header c1'>c1 #gc</th><th class='perf_header c2'>c2 #gc</th>"
+      puts "<th class='perf_header c1'>c1 gc%</th><th class='perf_header c2'>c2 #gc%</th>"
+      puts "<th class='perf_header factor'>c1/c2</th>"
+      puts "</tr>"
+      when /^page/
+      puts "<tr>"
+      puts "<th class='perf_header name' style='text-align:left;'>page</th>"
+      puts "<th class='perf_header c1'>c1 total</th><th class='perf_header c2'>c2 total</th>"
+      puts "<th class='perf_header c1'>c1 r/s</th><th class='perf_header c2'>c2 r/s</th>"
+      puts "<th class='perf_header c1'>c1 ms/r</th><th class='perf_header c2'>c2 ms/r</th>"
+      puts "<th class='perf_header factor'>c1/c2</th>"
+      puts "</tr>"
+    end
+    case l
+    when %r{^([A-Za-z0-9./?=_ ]+)\s+([\d.]+)\s+([\d.]+)\s+([\d.]+)\s+([\d.]+)\s+([\d.]+)\s+([\d.]+)\s+([\d.]+)\s+$}
+      puts "<tr>"
+      puts "<td class='perf_name name#{" i" if $1.strip == "all requests"}'>#{$1}</td>"
+      puts "<td class='perf_data c1'>#{$2}</td><td class='perf_data c2'>#{$3}</td>"
+      puts "<td class='perf_data c1'>#{$4}</td><td class='perf_data c2'>#{$5}</td>"
+      puts "<td class='perf_data c1'>#{$6}</td><td class='perf_data c2'>#{$7}</td>"
+      puts "<td class='perf_data #{factor_class($8.to_f)}'>#{$8}</td>"
+      puts "</tr>"
+    end
+  end
+  puts "</table>"
+end
+
+__END__
+
+#    Copyright (C) 2005-2008  Stefan Kaes
+#
+#    This program is free software; you can redistribute it and/or modify
+#    it under the terms of the GNU General Public License as published by
+#    the Free Software Foundation; either version 2 of the License, or
+#    (at your option) any later version.
+#
+#    This program is distributed in the hope that it will be useful,
+#    but WITHOUT ANY WARRANTY; without even the implied warranty of
+#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+#    GNU General Public License for more details.
+#
+#    You should have received a copy of the GNU General Public License
+#    along with this program; if not, write to the Free Software
+#    Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA

data/script/perf_plot

@@ -0,0 +1,225 @@
+#!/usr/bin/env ruby
+
+require 'rubygems'
+
+require 'optparse'
+require 'ostruct'
+
+$:.unshift(File.expand_path(File.dirname(__FILE__) + '/../lib'))
+require 'railsbench/perf_info'
+
+# parse options
+o = OpenStruct.new
+o.selection = []
+o.title = "Performance Graph"
+o.files = []
+o.names = []
+o.labels = []
+o.graph_type = :line
+o.graph_width = '800x600'
+o.font_size = 14
+o.output_file = nil
+o.colors = nil
+o.theme = nil
+o.engine = :gruff
+
+parser = OptionParser.new do |opts|
+  opts.banner = "Usage: perf_plot [options] file1 file2 ..."
+
+  opts.separator ""
+  opts.separator "Options:"
+
+  opts.on("-t", "--title T",
+          "Specify the title for your plot") do |t|
+    o.title = t
+  end
+
+  opts.on("--only LIST", Array,
+          "Restrict plot to a subset of the benchmarks") do |t|
+    o.selection = t.map{|s| s.to_i}
+  end
+
+  opts.on("--line",
+          "Plot a line graph") do |t|
+    o.graph_type = :line
+  end
+
+  opts.on("--bar",
+          "Plot a bar graph") do |t|
+    o.graph_type = :bar
+  end
+
+  opts.on("-w", "--width W", Integer,
+          "Width of the plot (pixels)") do |w|
+    o.graph_width = w
+  end
+
+  opts.on("-g", "--geometry WxH", /\d+x\d+/,
+          "Specify plot dimensions (pixels)") do |d|
+    o.graph_width = d
+  end
+
+  opts.on("-c", "--colors LIST", Array,
+          "Use specified colors for lines/bars") do |t|
+    o.colors = t
+  end
+
+  opts.on("--theme NAME",
+          "Use specified theme") do |t|
+    o.theme = t
+  end
+
+  opts.on("-e", "--engine ENGINE", [:gruff, :gnuplot],
+          "Select plotting engine: (gruff, gnuplot)") do |e|
+    o.engine = e
+  end
+
+  opts.on("-n", "--names LIST", Array,
+          "Use specified names for the legend") do |t|
+    o.names = t
+  end
+
+  opts.on("-l", "--labels LIST", Array,
+          "Use specified labels instead of benchmark names") do |t|
+    o.labels = t
+  end
+
+  opts.on("-o", "--out FILE",
+          "Specify output file") do |f|
+    o.output_file = f
+  end
+
+  opts.on("-f", "--font-size N", Integer,
+          "Overall font size to use in the plot (points)") do |n|
+    o.font_size = n
+  end
+
+  opts.on_tail("-h", "--help", "Show this message") do
+    puts opts
+    exit
+  end
+end
+
+# option compatibility with older versions
+args=[]
+ARGV.each do |arg|
+  arg = arg.sub("font_size", "font-size") if arg =~ /^-font_size/
+  arg = "-" + arg if arg =~ /^-(title|width|out|geometry|font-size|names|labels|colors|line|bar|only)/
+  args << arg
+end
+
+parser.parse!(args)
+
+o.output_file ||= o.engine == :gruff ? "graph.png" : "graph.pdf"
+
+args.each do |arg|
+  o.files << File.open_or_die(arg)
+  o.names[o.files.length-1] ||= File.basename(arg).sub(/\.txt$/, '').sub(/^\d\d-\d\d\.[^\.]+./, '')
+end
+
+o.files.length > 0 or die(parser.banner)
+
+class Plotter
+  attr_reader :o
+  def initialize(options)
+    @o = options
+    setup
+  end
+
+  def setup
+    pi = nil
+    @perf_data = []
+    o.files.each do |file|
+      pi = PerfInfo.new(file)
+      iter = pi.iterations
+      urls = pi.requests_per_key
+      @perf_data << pi.keys.map{ |key| iter*urls/pi.timings_mean(key) }
+      file.close
+    end
+    o.selection = (1..(@perf_data.last.length)).to_a if o.selection.empty?
+    if o.labels.empty?
+      o.labels = pi.keys.restrict_to(o.selection.map{|i| i-1})
+    end
+    @perf_data = @perf_data.map{|d| d.restrict_to(o.selection.map{|i| i-1})}
+  end
+
+  def plot_with_gruff
+    require 'gruff'
+
+    g = o.graph_type == :line ? Gruff::Line.new(o.graph_width) : Gruff::Bar.new(o.graph_width)
+    g.send "theme_#{o.theme}" if o.theme
+
+    # on OS X, ImagMagick can't find it's default font (arial) sometimes, so specify some font
+    #g.font = 'Arial-Normal' if RUBY_PLATFORM =~ /darwin/
+    g.font = 'Helvetica' if RUBY_PLATFORM =~ /darwin/
+
+    g.replace_colors(o.colors) if o.colors
+    g.title = o.title
+    g.sort = false
+    g.legend_font_size = o.font_size
+    g.legend_box_size = o.font_size
+    g.marker_font_size = o.font_size
+    g.minimum_value = 0
+    g.maximum_value = @perf_data.flatten.max.ceil
+    g.labels = o.labels.index_map
+    @perf_data.each_with_index{|d,i| g.data(o.names[i], d)}
+    g.write(o.output_file)
+  end
+
+  def plot_with_gnuplot
+    require 'gnuplot'
+    Gnuplot.open(false) do |gnuplot|
+      Gnuplot::Plot.new(gnuplot) do |plot|
+        plot.terminal "pdf noenhanced color fname 'Helvetica' fsize 5"
+        plot.output o.output_file
+        plot.xlabel "Benchmarks"
+        plot.ylabel "Requests per second"
+        plot.yrange "[0:*]"
+        plot.title  o.title
+        plot.style  "fill solid 1.0 noborder"
+        plot.style  "data #{o.graph_type == :line ? "linespoints" : "histogram"}"
+        plot.style  "histogram cluster gap 1"
+        plot.xtics  "nomirror rotate by -45"
+        label_specs = []
+        o.labels.each_with_index{ |l,i| label_specs << "\"#{l}\" #{i}" }
+        plot.xtics  "(#{label_specs.join(', ')})"
+        plot.key    "outside reverse"
+        #plot.boxwidth "0.95"
+        plot.grid "nopolar"
+        plot.grid "noxtics nomxtics ytics nomytics noztics nomztics nox2tics nomx2tics noy2tics nomy2tics nocbtics nomcbtics"
+        plot.grid "back linetype 0 linewidth 0.7"
+
+        @perf_data.each_with_index do |d,i|
+          plot.data << Gnuplot::DataSet.new([[o.names[i]] + d]) do |ds|
+            ds.using = "1 title 1"
+          end
+        end
+      end
+    end
+  end
+
+  def plot
+    send "plot_with_#{o.engine}"
+  end
+end
+
+Plotter.new(o).plot
+
+
+__END__
+
+#    Copyright (C) 2005-2008  Stefan Kaes
+#
+#    This program is free software; you can redistribute it and/or modify
+#    it under the terms of the GNU General Public License as published by
+#    the Free Software Foundation; either version 2 of the License, or
+#    (at your option) any later version.
+#
+#    This program is distributed in the hope that it will be useful,
+#    but WITHOUT ANY WARRANTY; without even the implied warranty of
+#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+#    GNU General Public License for more details.
+#
+#    You should have received a copy of the GNU General Public License
+#    along with this program; if not, write to the Free Software
+#    Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA

data/script/perf_plot_gc

@@ -0,0 +1,254 @@
+#!/usr/bin/env ruby
+
+require 'rubygems'
+require 'optparse'
+require 'ostruct'
+
+$:.unshift(File.expand_path(File.dirname(__FILE__) + '/../lib'))
+require 'railsbench/gc_info'
+
+# parse options
+o = OpenStruct.new
+o.title = "GC Data Plot"
+o.graph_width = '1400x1050'
+o.font_size = 10
+o.ignored_object_types = []
+o.output_file = nil
+o.plot_live = true
+o.plot_freed = true
+o.plot_type = :both
+o.engine = :gruff
+
+parser = OptionParser.new do |opts|
+  opts.banner = "Usage: perf_plot_gc [options] file1 file2 ..."
+
+  opts.separator ""
+  opts.separator "Options:"
+
+  opts.on("-t", "--title T",
+          "Specify the title for your plot") do |t|
+    o.title = t
+  end
+
+  opts.on("-i", "--ignore LIST", Array,
+          "Specify the object types to ignore") do |i|
+    o.ignored_object_types = i.map{|t| t.upcase}
+  end
+
+  opts.on("-d", "--type TYPE", [:freed, :live, :both],
+          "Select data points to plot: (live, freed, both)") do |dp|
+    o.plot_type = dp
+    o.plot_freed = o.plot_live = false
+    case dp
+    when :live  then o.plot_live = true
+    when :freed then o.plot_freed = true
+    when :both  then o.plot_freed = true; o.plot_live = true
+    end
+  end
+
+  opts.on("-e", "--engine ENGINE", [:gruff, :gnuplot],
+          "Select plotting engine: (gruff, gnuplot)") do |e|
+    o.engine = e
+  end
+
+  opts.on("-f", "--font-size N", Integer,
+          "Overall font size to use in the plot (points)") do |n|
+    o.font_size = n
+  end
+
+  opts.on("-w", "--width W", Integer,
+          "Width of the plot (pixels)") do |w|
+    o.graph_width = w
+  end
+
+  opts.on("-g", "--geometry WxH", /\d+x\d+/,
+          "Specify plot dimensions (pixels)") do |d|
+    o.graph_width = d
+  end
+
+  opts.on("-o", "--out FILE",
+          "Specify output file") do |f|
+    o.output_file = f
+  end
+
+  opts.on_tail("-h", "--help", "Show this message") do
+    puts opts
+    exit
+  end
+end
+
+# option compatibility with older versions
+args=[]
+ARGV.each do |arg|
+  arg = arg.sub("font_size", "font-size") if arg =~ /^-font_size/
+  arg = "-" + arg if arg =~ /^-(title|width|out|geometry|font-size|ignore)/
+  args << arg
+end
+
+parser.parse!(args)
+
+o.output_file ||=  if o.engine == :gruff
+                     "graph.png"
+                   elsif RUBY_PLATFORM =~ /darwin/
+                     "graph.pdf"
+                   else
+                     "graph.ps"
+                   end
+o.files = []
+o.names = []
+args.each do |arg|
+  o.files << File.open_or_die(arg)
+  o.names[o.files.length-1] ||= File.basename(arg)
+end
+
+o.files.length > 0 or die(parser.banner)
+
+o.gcis = []
+o.files.each do |file|
+  o.gcis << GCInfo.new(file)
+  file.close
+end
+
+# o.object_types = %w(NODE STRING ARRAY HASH SCOPE VARMAP CLASS ICLASS REGEXP FLOAT MATCH FILE DATA MODULE OBJECT)
+o.colors = %w(ff0000 00c000 0080ff c000ff 00eeee c04000 ee0000 2020c0 ffc020 008040 a080ff 804000 ff80ff 00c060 006080 c06080 008000 40ff80 306080 806000).map{|c| "#" + c}
+o.object_types = GCInfo.object_types(o.gcis)
+o.gc_count_max = o.gcis.map{|gci| gci.collections}.max
+o.gc_max_processed = o.gcis.map{|gci| gci.processed_max}.max
+o.gc_max_freed = o.gcis.map{|gci| gci.freed_max}.max
+o.gc_max_live = o.gcis.map{|gci| gci.live_max}.max
+
+o.title << " ["
+o.title << "freed" if o.plot_freed
+o.title << "," if o.plot_freed && o.plot_live
+o.title << "live" if o.plot_live
+o.title << "]"
+o.title << " (ignoring #{o.ignored_object_types.join(', ')})" unless o.ignored_object_types.empty?
+
+# for very large logs, we need to ignore some entries
+N = o.gc_count_max < 100 ? 1 : o.gc_count_max / 99
+
+class Plotter
+  attr_reader :o
+  def initialize(options)
+    @o = options
+  end
+
+  def plot_with_gruff
+    require 'gruff'
+
+    g = Gruff::StackedBar.new(o.graph_width)
+
+    # on OS X, ImageMagick can't find it's default font (arial) sometimes, so specify some font
+    # g.font = 'Arial-Normal' if RUBY_PLATFORM =~ /darwin/
+    g.font = 'Helvetica-Narrow' if RUBY_PLATFORM =~ /darwin/
+
+    %w(#FF0000 #00FF00 #0000FF #D2FF77 #FF68C0 #D1FDFF #FFF0BD #15FFDC
+    ).each do |color|
+      g.add_color(color)
+    end
+
+    g.title = o.title
+    g.sort = false
+    g.title_font_size = o.font_size+2
+    g.legend_font_size = o.font_size-2
+    g.legend_box_size = o.font_size-2
+    g.marker_font_size = o.font_size-2
+    if o.ignored_object_types.empty?
+      g.minimum_value = 0
+      maximums = []
+      maximums << o.gc_max_live if o.plot_live
+      maximums << o.gc_max_freed if o.plot_freed
+      g.maximum_value = maximums.max
+    end
+    label_step = 0
+    label_step += 1 if o.plot_live
+    label_step += 1 if o.plot_freed
+    g.labels = Hash[* (0...o.gc_count_max).map{|i| [label_step*i*o.files.length, i.to_s]}.flatten ]
+    # puts g.labels.inspect
+    # puts object_types.inspect
+    puts "ignoring #{o.ignored_object_types.join(', ')}" unless o.ignored_object_types.empty?
+
+    (o.object_types + %w(FREELIST)).each do |ot|
+      data = prepare_data(ot)
+      # puts "#{ot}: #{data.inspect}"
+      g.data(ot, data)
+    end
+
+    g.write(o.output_file)
+  end
+
+  def prepare_data(ot)
+    return if o.ignored_object_types.include?(ot)
+    data = []
+    o.gc_count_max.times do |gc_index|
+      next unless 0 == gc_index.modulo(N)
+      for gci in o.gcis
+        map_at_this_gc = gci.freed_objects[gc_index].merge('FREELIST' => gci.freelist[gc_index])
+        data << ((map_at_this_gc && map_at_this_gc[ot]) || 0) if o.plot_freed
+        map_at_this_gc = gci.live_objects[gc_index]
+        data << ((map_at_this_gc && map_at_this_gc[ot]) || 0) if o.plot_live
+      end
+    end
+    data
+  end
+
+  def plot_with_gnuplot
+    require 'gnuplot'
+    # there's a separate gnuplot binary which can read from stdin, but the gem doesn't know this
+    ENV['RB_GNUPLOT'] ||= 'pgnuplot.exe' if RUBY_PLATFORM =~ /mswin/
+    plot = Gnuplot::Plot.new
+    if o.output_file =~ /\.pdf$/
+      plot.terminal "pdf enhanced color font 'Helvetica,4'"
+    else
+      plot.terminal "postscript enhanced color font 'Helvetica,4'"
+    end
+    plot.output     o.output_file
+    plot.xlabel     "Collections"
+    plot.ylabel     "Objects"
+    plot.title      o.title
+    plot.style      "fill solid 1.0 noborder"
+    plot.style      "data histogram"
+    plot.style      "histogram rowstacked"
+    plot.xtics      "out nomirror"
+    plot.xrange     "[-1:#{(o.gc_count_max/N)*((o.plot_type == :both) ? 2 : 1)}]"
+    plot.key        "outside invert reverse"
+    plot.boxwidth   "0.8"
+    plot.grid       "nopolar"
+    plot.grid       "noxtics nomxtics ytics nomytics noztics nomztics nox2tics nomx2tics noy2tics nomy2tics nocbtics nomcbtics"
+    plot.grid       "back linetype 0 linewidth 0.7"
+
+    (o.object_types + %w(FREELIST)).each_with_index do |ot, i|
+      next unless data = prepare_data(ot)
+      plot.data << Gnuplot::DataSet.new([[ot.downcase] + data]) do |ds|
+        ds.using = "1 title 1 lc rgb '#{ot == 'FREELIST' ? '#666666' : o.colors[i]}'"
+      end
+    end
+
+    cmds = plot.to_gplot # puts cmds
+    Gnuplot.open(false){|gnuplot| gnuplot << cmds}
+  end
+
+  def plot
+    send "plot_with_#{o.engine}"
+  end
+end
+
+Plotter.new(o).plot
+
+__END__
+
+#    Copyright (C) 2005-2008  Stefan Kaes
+#
+#    This program is free software; you can redistribute it and/or modify
+#    it under the terms of the GNU General Public License as published by
+#    the Free Software Foundation; either version 2 of the License, or
+#    (at your option) any later version.
+#
+#    This program is distributed in the hope that it will be useful,
+#    but WITHOUT ANY WARRANTY; without even the implied warranty of
+#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+#    GNU General Public License for more details.
+#
+#    You should have received a copy of the GNU General Public License
+#    along with this program; if not, write to the Free Software
+#    Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA