# Eukleides version 0.9.0
# Eukleides to EPS converter
# Copyright Christian Obrecht 2000-2002

eukleides -v
file=`expr $1 : '\(.*\).euk' '|' $1`
echo "\input pst-eps\input pst-plot\TeXtoEPS" > $file.tex \
&& eukleides $1 >> $file.tex \
&& echo "\endTeXtoEPS\nopagenumbers\end" >> $file.tex \
&& tex --interaction=nonstopmode $file.tex > /dev/null \
&& dvips -q -f -E $file.dvi > $file.eps
if [ $file.tex -nt $file.eps ]
then echo "Error: please check '"$file.log"' and '"$file.tex"'." > /dev/stderr
else rm -f $file.tex $file.dvi $file.log
fi
