.key NAME/A,DEST/A,hbasedpi/A,vbasedpi/A,magstep
.bra {
.ket }
cd tex:ps
echo "Creating PK file..."
IF EXISTS {NAME}.pfb
  ps2pk -v -eEC.enc -X{hbasedpi} -Y{vbasedpi} {NAME}.pfb tex:pk/{DEST}/{hbasedpi}/{DESTNAME}.{hbasedpi}pk
ELSE
  IF EXISTS {NAME}.pfa
    ps2pk -eEC.enc -X{hbasedpi} -Y{vbasedpi} {NAME}.pfa tex:pk/{DEST}/{hbasedpi}/{DESTNAME}.{hbasedpi}pk
  ELSE
    echo "Font not found! Exiting.."
    QUIT 20
  ENDIF
ENDIF
echo "Done."
;
; This should not be needed
;
;IF NOT EXISTS tex:fonts/r{NAME}.tfm
;  afm2tfm tex:afm/{NAME}.afm -T tex:ps/EC.enc -v tex:fonts/tfm/r{NAME}.tfm tex:fonts/tfm/{NAME}0.tfm
;  copy {NAME}.afm tex:afm/{NAME}0.afm ; Needed by fontinst.sty (ps2nfss)
;  rename {NAME}.afm tex:afm/{NAME}.afm
;ENDIF

