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     ! 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.