#!/bin/ksh
cat composite.ps ogonki.enc latin2.enc \
    Courier*-Ogonki.ps Times*-Ogonki.ps >test.ps

for i in Courier*-Ogonki.ps Times*-Ogonki.ps ; do
  name=${i%\.ps}
  cat >>test.ps <<EOF
/$name findfont 
dup length 1 add dict dup /newfont exch def 
begin
  {1 index /FID ne
    {def}
    {pop pop} ifelse
  } bind forall
end
newfont /Encoding ISOLatin2Encoding put
/$name newfont definefont pop
EOF
done

cat allchars.ps >> test.ps

