local/transcript/src/psgrind.c
/* dump the fonts to the PS file for setup */
dump the fonts to the PS file for setup
dump the fonts to the PS file for setup
private DumpFonts () {
    register struct font   *f;
    ForAllFonts (f) {
        fprintf(OutFile,"%d %d /%s\n",f-&fonts[0],f->dsize*UperPt,f->name);
    }
    fprintf(OutFile, "%d SetUpFonts\n", nf);
}
private DumpFonts ( ) { register struct font * f ; ForAllFonts ( f ) { fprintf ( OutFile , " \n " , f - & fonts [ 0 ] , f -> dsize * UperPt , f -> name ) ; } fprintf ( OutFile , " \n " , nf ) ; }
dump the fonts to the PS file for setup
dump the fonts to the PS file for setup