Path: utzoo!utgpu!jarvis.csri.toronto.edu!mailrus!cs.utexas.edu!tut.cis.ohio-state.edu!purdue!decwrl!reid
From: reid@decwrl.dec.com (Brian Reid)
Newsgroups: news.misc
Subject: USENET PostScript map m.maps.hdr
Keywords: m.maps.hdr
Message-ID: <322@apostrophe.dec.com>
Date: 1 Dec 89 18:05:25 GMT
Sender: reid@decwrl.dec.com
Organization: DEC Western Research Laboratory
Lines: 141
Approved: reid@decwrl.dec.com

:       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) Fri Dec  1 10:00:13 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
/Red {1 0 0 setrgbcolor} bind def
/Grn {0 1 0 setrgbcolor} bind def
/Blu {0 0 1 setrgbcolor} bind def
/Blk {0 setgray} bind def
/Mgt {1 0 1 setrgbcolor} bind def
/Cyn {0 1 1 setrgbcolor} bind def
/Yel {1 1 0 setrgbcolor} 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


Brought to you by Super Global Mega Corp .com