🚀 go-pugleaf

The following are downloadable versions of the Helvetica Narrow fonts
available on the LaserWriter Plus.  These are for use on a LaserWriter
that doesn't have these fonts.  Note that they are simply constructed
from the standard Helvetica faces.

Pat Wood
Editor, The PostScript Language Journal
bellcore!phw5!phw
-----------------------------cut here-------------------------------
# To recover, type "sh archive"
echo restoring HNarrow.pro
sed 's/^X//' > HNarrow.pro <<\XxXxXxXxXx-EOF-XxXxXxXxXx
X% Helvetica-Narrow (based on Helvetica)
X
X/makeHNarrowdict 2 dict def
XmakeHNarrowdict begin
X	/basefontdict /Helvetica findfont def
X	/outfontdict basefontdict maxlength dict def
X
X	basefontdict {
X		exch dup /FID ne
X			{exch outfontdict 3 1 roll put}
X			{pop pop}
X		ifelse
X	} forall
X	outfontdict /FontName /Helvetica-Narrow put
X	outfontdict /FontMatrix [.00082 0 0 .001 0 0] put
X	/Helvetica-Narrow outfontdict definefont pop
Xend
XxXxXxXxXx-EOF-XxXxXxXxXx
echo restoring HNarrowB.pro
sed 's/^X//' > HNarrowB.pro <<\XxXxXxXxXx-EOF-XxXxXxXxXx
X% Helvetica-Narrow-Bold (based on Helvetica-Bold)
X
X/makeHNarrowdict 2 dict def
XmakeHNarrowdict begin
X	/basefontdict /Helvetica-Bold findfont def
X	/outfontdict basefontdict maxlength dict def
X
X	basefontdict {
X		exch dup /FID ne
X			{exch outfontdict 3 1 roll put}
X			{pop pop}
X		ifelse
X	} forall
X	outfontdict /FontName /Helvetica-Narrow-Bold put
X	outfontdict /FontMatrix [.00082 0 0 .001 0 0] put
X	/Helvetica-Narrow-Bold outfontdict definefont pop
Xend
XxXxXxXxXx-EOF-XxXxXxXxXx
echo restoring HNarrowBO.pro
sed 's/^X//' > HNarrowBO.pro <<\XxXxXxXxXx-EOF-XxXxXxXxXx
X% Helvetica-Narrow-BoldOblique (based on Helvetica-BoldOblique)
X
X/makeHNarrowdict 2 dict def
XmakeHNarrowdict begin
X	/basefontdict /Helvetica-BoldOblique findfont def
X	/outfontdict basefontdict maxlength dict def
X
X	basefontdict {
X		exch dup /FID ne
X			{exch outfontdict 3 1 roll put}
X			{pop pop}
X		ifelse
X	} forall
X	outfontdict /FontName /Helvetica-Narrow-BoldOblique put
X	outfontdict /FontMatrix [.00082 0 .000212557 .001 0 0] put
X	/Helvetica-Narrow-BoldOblique outfontdict definefont pop
Xend
XxXxXxXxXx-EOF-XxXxXxXxXx
echo restoring HNarrowO.pro
sed 's/^X//' > HNarrowO.pro <<\XxXxXxXxXx-EOF-XxXxXxXxXx
X% Helvetica-Narrow-Oblique (based on Helvetica-Oblique)
X
X/makeHNarrowdict 2 dict def
XmakeHNarrowdict begin
X	/basefontdict /Helvetica-Oblique findfont def
X	/outfontdict basefontdict maxlength dict def
X
X	basefontdict {
X		exch dup /FID ne
X			{exch outfontdict 3 1 roll put}
X			{pop pop}
X		ifelse
X	} forall
X	outfontdict /FontName /Helvetica-Narrow-Oblique put
X	outfontdict /FontMatrix [.00082 0 .000212557 .001 0 0] put
X	/Helvetica-Narrow-Oblique outfontdict definefont pop
Xend
XxXxXxXxXx-EOF-XxXxXxXxXx