# Eukleides version 0.4.0
# Eukleides to PS converter
# Copyright Christian Obrecht 2000-2001

eukleides -v
file=`expr $1 : '\(.*\).euk' '|' $1`
echo "\input pst-eps" > $file.tex
echo "\input pst-plot" >> $file.tex
echo "\TeXtoEPS" >> $file.tex
eukleides $1 >> $file.tex
echo "\endTeXtoEPS" >> $file.tex
echo "\nopagenumbers" >> $file.tex
echo "\end" >> $file.tex
echo
tex $file.tex
echo
dvips -f $file.dvi > $file.ps
rm $file.tex $file.dvi $file.log
