#!/usr/bin/perl 
# Converts a LaTeX file of TeX formulas to png's
# Assumes that after the \begin{document}
# we have %formula: formulaname  .....  %endformula
# This script ferrets the individual formulas out and makes them
# into png's
# Usage:  maketexpng < formulafile.tex
# Requires: latex, perl and convert
# Image conversion program: check the path
$convert = "/usr/local/bin/convert";

while( $_ = <STDIN>){

# Search for %formula:
    if(s/%formula: //) {
	$nextline = $_;
	$nextline =~ s/\s//g;
        $texfile = "$nextline.tex";
        $dvifile = "$nextline.dvi";
        $psfile =  "$nextline.eps";
        $pngfile =  "$nextline.png";
	open(FORMULA,">$texfile");
	print FORMULA "\\documentclass{article}\n";
	print FORMULA "\\pagestyle{empty}\n";
	print FORMULA "\\begin{document}\n";
        while( !($nextline=~ /%endformula/) )
	{ $nextline = <STDIN>;
	  print FORMULA "$nextline"; }
	print FORMULA "\\end{document}\n";
	close(FORMULA);
        system("latex $texfile");
        system("dvips -E $dvifile -o $psfile");
        system("$convert -density 300x300 -transparent \"#FFFFFF\" $psfile $pngfile");
        system("rm $dvifile $psfile");
    }

}
# End of foreach loop.

# Job completed successfully.
# print("\nAll done.  Thanks!\n"); 
exit(0);