From: reid@decwrl.dec.com (Brian Reid)
Newsgroups: news.lists.ps-maps
Subject: USENET PostScript map m.maps.hdr
Date: 8 Jan 1993 17:16:23 GMT
Organization: DEC Network Systems Laboratory
NNTP-Posting-Host: torrey.pa.dec.com
Keywords: arbitron, statistics, flow, m.maps.hdr
Originator: reid@torrey.pa.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
%!PS-Adobe-2.0 EPSF-1.2
%%BoundingBox: 23 23 589 769
%%Pages: 1
%%Creator: reid (Brian Reid) with netmap-2.1
%%CreationDate: Sat Jan  2 02:05:39 1993
%%DocumentFonts: Helvetica-Bold Helvetica Courier Symbol
%%EndComments
/Pwid 595 def		% page width
/Pht 792 def		% page height
/Margin 23 def		% border margin
/CaptionMargin 25 def	% caption margin (at the bottom)
/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
/Colors 20 dict def
/cdef {exch dup 3 1 roll exch def} def
/Cmap [ 0
Colors begin
/Red [1 0 0] cdef
/Green [0 1 0] cdef
/Blue [0 0 1] cdef
/White [1 1 1] cdef
/Black [0 0 0] cdef
/Magenta [1 0 1] cdef
/Cyan [0 1 1] cdef
/Yellow [1 1 0] cdef
/Orange [1 .75 0] cdef
/Purple [.75 0 1] cdef
/Chartreuse [.75 1 0] cdef
/Fuschia [1 0 .75] cdef
/Azure [0 .75 1] cdef
/Mint [0 1 .75] cdef
/Brown [.7 .5 0] cdef
end
 ] def
/CMX {0 1 2 {dup
	  4 -1 roll dup 5 1 roll exch get exch
	  3 -1 roll dup 4 1 roll exch get exch
	  dup 3 1 roll sub 5 -1 roll dup 6 1 roll
	  mul add 4 1 roll
	} for pop pop pop setrgbcolor
       } def
/BGcolor {1 setgray} def	% background color
/FGcolor {0 setgray} def	% foreground color
/MFcolor {0 setgray} def	% map feature color
/CRcolor {0 setgray} def	% circle color
/CLcolor {0 setgray} def	% circle label color
/DTcolor {0 setgray} def	% dot color
/PHcolor {0 setgray} def	% path color
/LGcolor {0 setgray} def	% legend color
/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
/SLC {Cmap exch get Colors begin load end aload pop setrgbcolor} 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 BGcolor 1 DV dup scale newpath 0.2 setlinewidth
	5 2 moveto 0 0 lineto 5 -2 lineto 0 0 moveto 10 0 lineto
	BGcolor 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
	BGcolor stroke grestore} bind def
/HST {gsave translate rotate 0 0 moveto 0 0 CxD DV 0 360 newpath arc
      gsave BGcolor fill grestore .25 SLW stroke
      dup length dup /HSTln exch def 4 le
      {dup stringwidth pop -2 div -1.5 DV moveto CLcolor 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 BGcolor fill grestore .25 SLW stroke
      dup stringwidth pop -2 div -1.5 DV moveto CLcolor 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) DTcolor 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 2 mul CaptionMargin add 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 CaptionMargin add translate 
       MMX currentmatrix pop
	Mpath 1 setlinewidth
	gsave BGcolor fill grestore FGcolor stroke} def
 %%Endprofile
SHAR_EOF