#!/usr/local/bin/perl

require "getopts.pl";
&Getopts("s:c:T"); # s:scale c:color T:transparent off

$opt_c="| giftrans -g '#000000=$opt_c'" if ($opt_c);
print STDERR "opt_c:$opt_c\n";

$transp="-t";
$transp="" if $opt_T;
$scale="-s 3";
$scale="-s $opt_s" if ($opt_s);

$fbase="/tmp/texmath$$";
open(F, ">$fbase.tex");
print F "\\documentclass[12pt]{jarticle}\n";
print F "\\usepackage{latexsym}\n";
print F "\\usepackage{bm}\n";
print F "\n";
print F "\\begin{document}\n";
print F "\\thispagestyle{empty}\n";
print F "\\large\\[\n";
while (<>) {print F $_;}
print F "\\]\n";
print F "\\end{document}\n";
close F;

system("cd /tmp/; platex $fbase > /dev/null");
system("dvips -D600 $fbase | pstogif $transp -c $scale $opt_c");
system("rm -f /tmp/$fbase*");