1 b855148c 2004-05-16 devnull %
 2 b855148c 2004-05-16 devnull % Fat versions of the stroked Courier and Courier-Oblique - from Johnathan Shopiro.
 3 b855148c 2004-05-16 devnull % Can be selectively pulled in using the -C option that's available with all the
 4 b855148c 2004-05-16 devnull % PostScript translators or permanently added to any of the prologues. Helps on
 5 b855148c 2004-05-16 devnull % Linotronic typesetters, where Courier and Courier-Oblique are too light!
 6 b855148c 2004-05-16 devnull %
 7 b855148c 2004-05-16 devnull 
 8 b855148c 2004-05-16 devnull /newdict /Courier findfont length 1 add dict def
 9 b855148c 2004-05-16 devnull /Courier findfont {
10 b855148c 2004-05-16 devnull 	1 index /FID ne
11 b855148c 2004-05-16 devnull 		{newdict 3 1 roll put}
12 b855148c 2004-05-16 devnull 		{pop pop}
13 b855148c 2004-05-16 devnull 	ifelse
14 b855148c 2004-05-16 devnull } forall
15 b855148c 2004-05-16 devnull newdict /StrokeWidth 60 put
16 b855148c 2004-05-16 devnull /Courier newdict definefont pop
17 b855148c 2004-05-16 devnull 
18 b855148c 2004-05-16 devnull /newdict /Courier-Oblique findfont length 1 add dict def
19 b855148c 2004-05-16 devnull /Courier-Oblique findfont {
20 b855148c 2004-05-16 devnull 	1 index /FID ne
21 b855148c 2004-05-16 devnull 		{newdict 3 1 roll put}
22 b855148c 2004-05-16 devnull 		{pop pop}
23 b855148c 2004-05-16 devnull 	ifelse
24 b855148c 2004-05-16 devnull } forall
25 b855148c 2004-05-16 devnull newdict /StrokeWidth 60 put
26 b855148c 2004-05-16 devnull /Courier-Oblique newdict definefont pop