# Euklides version 0.3.4
# Euklides to PS converter
# Copyright Christian Obrecht 2000-2001

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