@echo off
rem show font text sample and character sets
rem point size is automatically adjusted to number of fonts (1..4)
rem additionally required programs:
rem   the PostScript file pfshow.ps
rem   ghostscript
rem   a program to convert .pfb to .pfa hex representation (here t1ascii)

if not "%1"=="-" goto weiter
set dumvar=
set del=rem
shift
:weiter
if not "%1"=="" goto los
echo Parameter: font-files (.pfb), max. 4
goto end

:los
rem copy %GS_LIB%\pfshow.ps %TEMP%\pfshow$$.ps
echo 40 730 sethome 40 setfontsize 1000 setrightborder > %TEMP%\pfshow$$.ps
rem with one line less, appropriate sizes are 45/28/18/13
if not "%2"=="" echo 25 setfontsize >> %TEMP%\pfshow$$.ps
if not "%3"=="" echo 16 setfontsize >> %TEMP%\pfshow$$.ps
if not "%4"=="" echo 11 setfontsize >> %TEMP%\pfshow$$.ps
:next
if "%1"=="-a" goto arial
if exist %1.pfa type %1.pfa >> %TEMP%\pfshow$$.ps
if exist %1.pfb D:\fonts\progs\t1utils\t1ascii %1.pfb >> %TEMP%\pfshow$$.ps
if exist %1 D:\fonts\progs\t1utils\t1ascii %1 >> %TEMP%\pfshow$$.ps
goto append
:arial
D:\fonts\progs\t1utils\t1ascii D:\fonts\profi\_a______.pfb >> %TEMP%\pfshow$$.ps
:append
echo                                    appendnewfont >> %TEMP%\pfshow$$.ps
shift
if not "%1"=="" goto next
echo showallfonts showpage quit >> %TEMP%\pfshow$$.ps

gs -q %GSOPT% pfshow.ps %TEMP%\pfshow$$.ps
%del% del %TEMP%\pfshow$$.ps
:end