Module: GraphKit::Writer

Included in:

GraphKit, MultiKit

Defined in:

lib/graphkit/gnuplot.rb

Instance Method Summary

• #gnuplot_write(file_name, options = {}) ⇒ Object

Instance Method Details

#gnuplot_write(file_name, options = {}) ⇒ Object

# File 'lib/graphkit/gnuplot.rb', line 485

def gnuplot_write(file_name, options={})
  #logf :gnuplot_write
  old_gp_term = gp.term
  old_gp_output = gp.output
  if file_name
    gp.output = file_name
    unless gp.term or options[:terminal]
      case File.extname(file_name)
      when '.pdf'
        gp.term = 'pdf size 20cm,15cm'
      when '.ps'
        gp.term = 'post color'
      when '.eps'
        unless options[:latex]
          gp.term = %[post eps color enhanced size  #{options[:size] or "3.5in,2.33in"}]
        else
          gp.term ||= "epslatex color dashed size #{options[:size] or "3.5in,#{options[:height] or "2.0in"}"} colortext standalone 8"
          (gp.term += " header '#{options[:preamble].inspect.gsub(/\\\n/, "\\\\\\n")}'"; options.delete(:preamble)) if options[:preamble]
        end
      when '.jpg'
        gp.term = "jpeg size  #{options[:size] or "3.5in,2.33in"}"
      when '.png'
        gp.term = "png size  #{options[:size] or "640,480"}"
      when '.gif'
        gp.term = "gif size  #{options[:size] or "640,480"}"
      
      end
    end
  end
  
  gp.output = file_name.sub(/\.eps/, '.tex') if options[:latex]
  options.delete(:size)
  gnuplot(options)
  if options[:latex]
      name = file_name.sub(/\.eps$/, '')
      raise "No file output by gnuplot" unless FileTest.exist? name + '.tex'
      raise 'latex failed' unless system "latex #{name}.tex --interaction nonstopmode --halt-on-error -q"
      raise 'dvips failed' unless system "dvips #{name}.dvi"
      FileUtils.rm "#{name}.eps" if FileTest.exist? "#{name}.eps"
      raise 'ps2eps failed' unless system "ps2eps #{name}.ps"
  end
#     ep file_name
   gp.term = old_gp_term
  gp.output = old_gp_output
  return File.basename(file_name, File.extname(file_name))
end