reid@decwrl.dec.com (Brian Reid) (07/01/89)
: This is a shell archive.
: Remove everything above this line and
: run the following text with /bin/sh to create:
: m.maps.hdr
echo shar: extracting m.maps.hdr
cat << 'SHAR_EOF' > m.maps.hdr
%!
% netmap-1.6
% Created by decwrl!reid (Brian Reid) Sat Jul 1 07:46:42 1989
/Pwid 612 def % page width
/Pht 792 def % page height
/Margin 23 def % border margin
/Clw 15 def % max-traffic line width
Pht 792 gt
{statusdict /11x17tray known {
statusdict begin 11x17tray end
}{
statusdict /setpageparams known {
11 72 mul 17 72 mul 36 1 % w h offs. orientation
statusdict begin setpageparams end
}{
11 17 div dup scale % for laserwriter
} ifelse
} ifelse
} if
/TitleSize 10 def
/SubtitleSize 7.5 def
/CaptionSize 8 def
/GridLblSize 5 def
/CityDotFontSize 12 def
/CaptionFont /Helvetica findfont def
/TitleFont /Helvetica-Bold findfont def
/CityDotFont /Courier findfont def
/HostNameFont /Courier findfont def
/ArrowFont /Symbol findfont def
/Nlw 0.25 def /Mlw 0.5 def /Wlw 1 def /Xlw 1.5 def /Zlw 2.5 def
/DMX matrix defaultmatrix def
/MMX matrix def
/DAR [1] def
/DSR [5 1 1 1 1 1] def
/CF {scalefont setfont} bind def
/CL {curveto stroke} bind def
/DV {scf div} bind def
/L /lineto load def
/LX {currentpoint exch pop lineto} bind def
/LY {currentpoint pop exch lineto} bind def
/MP {moveto gsave currentpoint translate} bind def
/MB {lineto stroke grestore} bind def
/MI {currentpoint stroke newpath moveto} bind def
/MT /moveto load def
/NP /newpath load def
/PL {lineto stroke} bind def
/R /rlineto load def
/ST {stroke grestore} bind def
/SCF {DV scalefont setfont} bind def
/SDW {DV setlinewidth DAR 0 setdash} bind def
/SFW {DV setlinewidth DSR 0 setdash} bind def
/SLW {[] 0 setdash DV setlinewidth} bind def
/SPW {Clw mul [] 0 setdash DV setlinewidth 1 setlinecap} bind def
/X {0 rlineto} bind def
/Y {0 exch rlineto} bind def
/ntbl [ [/M /x /w /v /X /X /Z]
[/y /s /m /U /i /J /X]
[/z /q /h /u /e /n /V]
[/A /W /l /X /r /E /T]
[/B /p /g /d /f /o /S]
[/C /t /k /D /j /K /Q]
[/F /G /H /I /N /O /P] ] def
0 1 6 {/rx exch def 0 1 6 {/cx exch def ntbl rx get cx get dup
/X ne {[ cx 3 sub 3 rx sub /rlineto load] cvx bind def} {pop} ifelse
} for } for
/GMCT {gsave moveto currentpoint transform
DMX setmatrix itransform translate CaptionFont
GridLblSize CF} bind def
/RSG {rotate 0 0.5 rmoveto show grestore} bind def
/GMT {gsave transform 0 0 moveto 1 scf div dup scale} bind def
/BA {gsave translate rotate 1 DV dup scale newpath 0.2 setlinewidth
dup newpath dup 4 mul exch moveto 0 0 lineto dup 4 mul exch neg lineto
closepath fill grestore} bind def
/WA {gsave translate rotate 1 setgray 1 DV dup scale newpath 0.2 setlinewidth
5 2 moveto 0 0 lineto 5 -2 lineto 0 0 moveto 10 0 lineto
1 setgray stroke grestore} bind def
/SWA {gsave translate rotate 1 DV dup scale 0.2 setlinewidth 0.6 dup scale
5 2 moveto 0 0 lineto 5 -2 lineto 0 0 moveto 10 0 lineto
1 setgray stroke grestore} bind def
/HST {gsave translate rotate 0 0 moveto 0 0 CxD DV 0 360 newpath arc
gsave 1 setgray fill grestore .25 SLW stroke
dup length dup /HSTln exch def 4 le
{dup stringwidth pop -2 div -1.5 DV moveto show}
{/HSTln HSTln 1 add 2 div cvi def
dup 0 HSTln getinterval dup stringwidth pop -2 div 0.5 DV moveto show
dup length HSTln sub HSTln exch getinterval
dup stringwidth pop -2 div -3.7 DV moveto show
} ifelse
grestore} bind def
/HTT {gsave translate gsave rotate 0 0 moveto 0 0 CxD DV 0 360 newpath arc
gsave 1 setgray fill grestore .25 SLW stroke
dup stringwidth pop -2 div -1.5 DV moveto show
grestore rotate moveto HFn setfont show
grestore} bind def
/Hd {/HDyy exch def /HDxx exch def HDxx HDyy
gsave translate CityDotFontSize DV dup -.3 mul exch -.3058 mul
exch moveto (\267) show grestore} bind def
/Hr {HDxx HDyy moveto rmoveto currentpoint Hd} bind def
/Hx {0 exch Hr} bind def
/Id {gsave translate gsave CityDotFontSize DV dup -.3 mul exch -.3058 mul
exch moveto (\267) show grestore
rotate moveto HFn setfont show
grestore} bind def
/HF {HostNameFont [4 DV 0 0 6 DV 0 0] makefont} def
/IF {HostNameFont [4.5 DV 0 0 7 DV 0 0] makefont} def
/Mpath {newpath 0 0 moveto Pwid Margin 2 mul sub 0 rlineto
0 Pht Margin 3 mul sub rlineto Pwid Margin 2 mul sub neg 0 rlineto
closepath} bind def
/lctr {gsave zf setfont 10 mul 0 exch rmoveto dup
stringwidth pop -2 div 0 rmoveto show grestore} bind def
/ldsp {/dr exch def gsave zf setfont dup stringwidth pop dr mul 0 rmoveto
show grestore} bind def
/T1 {gsave MMX setmatrix
0 -3 TitleSize sub MT TitleFont TitleSize CF show
grestore} bind def
/T2 {gsave MMX setmatrix
0 -5 TitleSize sub SubtitleSize sub MT TitleFont SubtitleSize CF show
grestore} bind def
/MLB {290 -4 MT CaptionFont CaptionSize CF CaptionSize 1 add
mul neg 0 exch rmoveto show} bind def
/HSH {HSHx HSHy MT show /HSHy HSHy HSHdy sub def} def
/HSHmt {/HSHy exch def /HSHx exch def} def
/HSHdxy {/HSHdy exch def /HSHdx exch def} def
/INIT {Margin dup 2 mul translate
MMX currentmatrix pop
Mpath 1 setlinewidth stroke} def
%%Endprofile
SHAR_EOF