pic: use troff drawing commands for filling objects
[troff.git] / home / ps / fatcourier.ps
blob11d718814223ccd1fc215edfc5480027e2c22988
2 % Fat versions of the stroked Courier and Courier-Oblique - from Johnathan Shopiro.
3 % Can be selectively pulled in using the -C option that's available with all the
4 % PostScript translators or permanently added to any of the prologues. Helps on
5 % Linotronic typesetters, where Courier and Courier-Oblique are too light!
8 /newdict /Courier findfont length 1 add dict def
9 /Courier findfont {
10         1 index /FID ne
11                 {newdict 3 1 roll put}
12                 {pop pop}
13         ifelse
14 } forall
15 newdict /StrokeWidth 60 put
16 /Courier newdict definefont pop
18 /newdict /Courier-Oblique findfont length 1 add dict def
19 /Courier-Oblique findfont {
20         1 index /FID ne
21                 {newdict 3 1 roll put}
22                 {pop pop}
23         ifelse
24 } forall
25 newdict /StrokeWidth 60 put
26 /Courier-Oblique newdict definefont pop