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