patwood@unirot.UUCP (Patrick Wood) (04/25/87)
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