#!/usr/local/bin/perl
# Author: 
#   Bill Christmas
#   Centre for Vision, Speech and Signal Processing
#   University of Surrey

use Cwd;

die 
  "Synopsis:\n"
. "   $0 '<latex_string>' [<eps_prefix>]\n"
. "       - creates a .eps from a command-line Latex expression\n\n"
. "E.g. to create a file \"fred.eps\" containing a simple integration:\n"
. "   $0 'For example:\\\\\$\\int_0^{2\\pi} cos(x)dx\$' fred\n\n"
. "If eps_prefix is omitted, output is displayed on the screen\n"
if @ARGV == 0 || $ARGV[0] eq "-help";

$here = cwd;
$string = $ARGV[0];
$file_op = (@ARGV == 2);
$file = $ARGV[1] if ($file_op);
$tmpdir = "/tmp/$ENV{USER}/latex2eps/477#e";
system "mkdir -p $tmpdir";
chdir "$tmpdir";
system "latex '\\documentclass[12pt]{article} \\usepackage{color} \\pagestyle{empty} \\begin{document} \\setlength{\\parindent}{0em} $string \\end{document}'";
if ($file_op) {
  system "dvips article -E -o $here/$file.eps";
  print "Creating output file $file.eps\n";
}
else {system "dvips article -f -E | gv -scale 1 -antialias -";}