Return to aps.ps CVS log

Up to [Research Unix] / researchv10no / cmd / postscript / psfiles

Annotation of researchv10no/cmd/postscript/psfiles/aps.ps, revision 1.1.1.1

1.1       root        1: %
                      2: % Tune things up so Linotronic output looks more like the APS-5. Pull this file
                      3: % into dpost output using the -C option. To get the best looking output run dpost
                      4: % with the -e2 option and use special font files that look like the APS tables but
                      5: % have character codes (ie. the fourth column in the width tables) appropriate for
                      6: % PostScript fonts. Widths in these tables must be for APS fonts!
                      7: %
                      8: % Start with fat versions of the stroked Courier and Courier-Oblique fonts - from
                      9: % Johnathan Shopiro.
                     10: %
                     11: 
                     12: /newdict /Courier findfont length dict def
                     13: /Courier findfont {
                     14:        1 index /FID ne
                     15:                {newdict 3 1 roll put}
                     16:                {pop pop}
                     17:        ifelse
                     18: } forall
                     19: newdict /StrokeWidth 65 put
                     20: /Courier newdict definefont pop
                     21: 
                     22: /newdict /Courier-Oblique findfont length dict def
                     23: /Courier-Oblique findfont {
                     24:        1 index /FID ne
                     25:                {newdict 3 1 roll put}
                     26:                {pop pop}
                     27:        ifelse
                     28: } forall
                     29: newdict /StrokeWidth 65 put
                     30: /Courier-Oblique newdict definefont pop
                     31: 
                     32: %
                     33: % Scaled down versions of the Helvetica font family.
                     34: %
                     35: 
                     36: /newdict /Helvetica findfont length dict def
                     37: /Helvetica findfont {
                     38:        1 index /FontMatrix eq {.922 .922 matrix scale matrix concatmatrix} if
                     39: 
                     40:        1 index /FID ne
                     41:                {newdict 3 1 roll put}
                     42:                {pop pop}
                     43:        ifelse
                     44: } forall
                     45: /Helvetica newdict definefont pop
                     46: 
                     47: /newdict /Helvetica-Oblique findfont length dict def
                     48: /Helvetica-Oblique findfont {
                     49:        1 index /FontMatrix eq {.922 .922 matrix scale matrix concatmatrix} if
                     50: 
                     51:        1 index /FID ne
                     52:                {newdict 3 1 roll put}
                     53:                {pop pop}
                     54:        ifelse
                     55: } forall
                     56: /Helvetica-Oblique newdict definefont pop
                     57: 
                     58: /newdict /Helvetica-Bold findfont length dict def
                     59: /Helvetica-Bold findfont {
                     60:        1 index /FontMatrix eq {.922 .922 matrix scale matrix concatmatrix} if
                     61: 
                     62:        1 index /FID ne
                     63:                {newdict 3 1 roll put}
                     64:                {pop pop}
                     65:        ifelse
                     66: } forall
                     67: /Helvetica-Bold newdict definefont pop
                     68: 
                     69: /newdict /Helvetica-BoldOblique findfont length dict def
                     70: /Helvetica-BoldOblique findfont {
                     71:        1 index /FontMatrix eq {.922 .922 matrix scale matrix concatmatrix} if
                     72: 
                     73:        1 index /FID ne
                     74:                {newdict 3 1 roll put}
                     75:                {pop pop}
                     76:        ifelse
                     77: } forall
                     78: /Helvetica-BoldOblique newdict definefont pop
                     79: 
                     80: %
                     81: % Scaled up versions of the Times font family.
                     82: %
                     83: 
                     84: /newdict /Times-Roman findfont length dict def
                     85: /Times-Roman findfont {
                     86:        1 index /FontMatrix eq {1.0225 1.0225 matrix scale matrix concatmatrix} if
                     87: 
                     88:        1 index /FID ne
                     89:                {newdict 3 1 roll put}
                     90:                {pop pop}
                     91:        ifelse
                     92: } forall
                     93: /Times-Roman newdict definefont pop
                     94: 
                     95: /newdict /Times-Italic findfont length dict def
                     96: /Times-Italic findfont {
                     97:        1 index /FontMatrix eq {1.0225 1.0225 matrix scale matrix concatmatrix} if
                     98: 
                     99:        1 index /FID ne
                    100:                {newdict 3 1 roll put}
                    101:                {pop pop}
                    102:        ifelse
                    103: } forall
                    104: /Times-Italic newdict definefont pop
                    105: 
                    106: /newdict /Times-Bold findfont length dict def
                    107: /Times-Bold findfont {
                    108:        1 index /FontMatrix eq {1.0225 1.0225 matrix scale matrix concatmatrix} if
                    109: 
                    110:        1 index /FID ne
                    111:                {newdict 3 1 roll put}
                    112:                {pop pop}
                    113:        ifelse
                    114: } forall
                    115: /Times-Bold newdict definefont pop
                    116: 
                    117: /newdict /Times-BoldItalic findfont length dict def
                    118: /Times-BoldItalic findfont {
                    119:        1 index /FontMatrix eq {1.0225 1.0225 matrix scale matrix concatmatrix} if
                    120: 
                    121:        1 index /FID ne
                    122:                {newdict 3 1 roll put}
                    123:                {pop pop}
                    124:        ifelse
                    125: } forall
                    126: /Times-BoldItalic newdict definefont pop
                    127: 

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.