| 2 |
- |
1 |
@echo off
|
|
|
2 |
@rem $Id: pftogsf.bat,v 1.4 2002/02/21 21:49:28 giles Exp $
|
|
|
3 |
|
|
|
4 |
rem ******************************
|
|
|
5 |
rem * Convert .pf? files to .gsf *
|
|
|
6 |
rem ******************************
|
|
|
7 |
|
|
|
8 |
call gssetgs.bat
|
|
|
9 |
echo (wrfont.ps) run (unprot.ps) run unprot >_temp_.ps
|
|
|
10 |
echo systemdict /definefont. /definefont load put >>_temp_.ps
|
|
|
11 |
echo systemdict /definefont { userdict /LFN 3 index put definefont. } bind put >>_temp_.ps
|
|
|
12 |
echo ARGUMENTS 0 get (r) file .loadfont LFN findfont setfont prunefont reprot >>_temp_.ps
|
|
|
13 |
echo ARGUMENTS 1 get (w) file dup writefont closefile quit >>_temp_.ps
|
|
|
14 |
rem for %%f in (cyr cyri) do %GSC% -q -dNODISPLAY -dWRITESYSTEMDICT -- _temp_.ps fonts\pfa\%%f.pfa fonts\%%f.gsf
|
|
|
15 |
rem for %%f in (ncrr ncrb ncrri ncrbi) do %GSC% -q -dNODISPLAY -dWRITESYSTEMDICT -- _temp_.ps fonts\pfa\%%f.pfa fonts\%%f.gsf
|
|
|
16 |
rem for %%f in (bchr bchb bchri bchbi) do %GSC% -q -dNODISPLAY -dWRITESYSTEMDICT -- _temp_.ps fonts\pfa\%%f.pfa fonts\%%f.gsf
|
|
|
17 |
rem for %%f in (putr putb putri putbi) do %GSC% -q -dNODISPLAY -dWRITESYSTEMDICT -- _temp_.ps fonts\pfa\%%f.pfa fonts\%%f.gsf
|
|
|
18 |
rem for %%f in (n019003l n021003l u003043t u004006t) do %GSC% -q -dNODISPLAY -dWRITESYSTEMDICT -- _temp_.ps fonts\%%f.gsf %%f.gsf
|
|
|
19 |
for %%f in (hig_____ kak_____) do %GSC% -q -dNODISPLAY -dWRITESYSTEMDICT -- _temp_.ps fonts\pfb\%%f.pfb %%f.gsf
|
|
|
20 |
rem %GSC% -q -dNODISPLAY -dWRITESYSTEMDICT -- _temp_.ps allfonts\baxter.pfb baxter.gsf
|