#!/bin/csh

#  Draw basemap
#  ------------
pscoast -Jm2.33037039683876 -R-119.5006066/-117.1833784/36.672046/39.228534 \
-Ba1.0f10mwSnE \
-W3/0/0/0 -Na/1 -S153/255/255 \
-Df -Ir/1/114/187/243 \
-Lf-118.925667/37.1252416/37.1252416/50 \
-G230/225/200 -P -K >! excel.ps

#  Calif hiways
#  ------------
psxy /attic/mapdata/ca_hiwys.main.asc \
-: -Jm -R -MS -W3/102/102/102 -O -K \
>> excel.ps

#  Nevada faults
#  -------------
psxy /attic/mapdata/nevada.car \
-: -Jm -R -MS -W3/255/102/102 -O -K \
>> excel.ps

#  Calif faults
#  ------------
psxy /attic/mapdata/Jennings_faults.car \
-: -Jm -R -MS -W3/255/102/102 -O -K \
>> excel.ps

#  Velocity vectors
#  ----------------
psvelomeca << EOT -R \
-W1/255/0/63 -G70/100/190 \
-Se0.0333333333333333/.95/0 -B  \
-Jm -A0.01/0.12/0.03 -O -K \
>> excel.ps
-118.578774	37.700582	0.00	0.00	0.00	0.00	0.0000	excel banner  
-118.382493	37.847231	0.00	0.00	0.00	0.00	0.0000	excel bound   
-118.350348	37.846164	0.00	0.00	0.00	0.00	0.0000	excel boundary
-117.698318	38.328215	0.00	0.00	0.00	0.00	0.0000	excel brandon 
-118.102393	38.150168	0.00	0.00	0.00	0.00	0.0000	excel candelar
-118.549493	37.578523	0.00	0.00	0.00	0.00	0.0000	excel casa dia
-117.822526	38.531310	0.00	0.00	0.00	0.00	0.0000	excel cedar   
-118.315400	37.533136	0.00	0.00	0.00	0.00	0.0000	excel chalfant
-118.453528	38.193306	0.00	0.00	0.00	0.00	0.0000	excel collins 
-118.253527	37.391793	0.00	0.00	0.00	0.00	0.0000	excel dan     
-118.985667	37.623333	0.00	0.00	0.00	0.00	0.0000	excel duke    
-118.505768	38.267935	0.00	0.00	0.00	0.00	0.0000	excel excel   
-118.428433	37.711333	0.00	0.00	0.00	0.00	0.0000	excel falls 2 
-118.428333	37.711111	0.00	0.00	0.00	0.00	0.0000	excel fallsrm1
-118.707549	37.774997	0.00	0.00	0.00	0.00	0.0000	excel glass   
-118.707549	37.774997	0.00	0.00	0.00	0.00	0.0000	excel glass 3 
-118.707444	37.774972	0.00	0.00	0.00	0.00	0.0000	excel glassrm1
-118.707454	37.774974	0.00	0.00	0.00	0.00	0.0000	excel glassrm2
-118.816778	38.279931	0.00	0.00	0.00	0.00	0.0000	excel hicks   
-118.808146	37.979196	0.00	0.00	0.00	0.00	0.0000	excel horse   
-118.818667	37.659000	0.00	0.00	0.00	0.00	0.0000	excel hot     
-118.541149	38.033981	0.00	0.00	0.00	0.00	0.0000	excel huntoon 
-118.975500	37.654500	0.00	0.00	0.00	0.00	0.0000	excel knolls  
-118.879167	37.713667	0.00	0.00	0.00	0.00	0.0000	excel krakatoa
-118.879167	37.713667	0.00	0.00	0.00	0.00	0.0000	excel krakperm
-118.890432	37.580373	0.00	0.00	0.00	0.00	0.0000	excel laurel  
-118.453787	38.192939	0.00	0.00	0.00	0.00	0.0000	excel lone    
-118.453545	38.193409	0.00	0.00	0.00	0.00	0.0000	excel lone ecc
-118.307380	38.456494	0.00	0.00	0.00	0.00	0.0000	excel mable   
-118.190482	38.065214	0.00	0.00	0.00	0.00	0.0000	excel miller  
-118.914000	37.612500	0.00	0.00	0.00	0.00	0.0000	excel miner   
-118.258700	38.279701	0.00	0.00	0.00	0.00	0.0000	excel moho 2  
-118.446101	38.403920	0.00	0.00	0.00	0.00	0.0000	excel oro     
-117.973110	38.343023	0.00	0.00	0.00	0.00	0.0000	excel pilot   
-117.973056	38.342778	0.00	0.00	0.00	0.00	0.0000	excel pilotrm2
-118.945500	37.625333	0.00	0.00	0.00	0.00	0.0000	excel sherperm
-118.683727	37.502751	0.00	0.00	0.00	0.00	0.0000	excel sherwin 
-118.860500	37.619500	0.00	0.00	0.00	0.00	0.0000	excel tilla   
-118.860500	37.619500	0.00	0.00	0.00	0.00	0.0000	excel tillperm
-118.527223	37.369270	0.00	0.00	0.00	0.00	0.0000	excel tungsten
EOT

#  Station dots
#  ------------
psxy << EOT -: -R -W5/51/51/255 -G255/255/255 \
-Jm -Sc0.07 -O -K \
>> excel.ps
37.700582	-118.578774
37.847231	-118.382493
37.846164	-118.350348
38.328215	-117.698318
38.150168	-118.102393
37.578523	-118.549493
38.531310	-117.822526
37.533136	-118.315400
38.193306	-118.453528
37.391793	-118.253527
37.623333	-118.985667
38.267935	-118.505768
37.711333	-118.428433
37.711111	-118.428333
37.774997	-118.707549
37.774997	-118.707549
37.774972	-118.707444
37.774974	-118.707454
38.279931	-118.816778
37.979196	-118.808146
37.659000	-118.818667
38.033981	-118.541149
37.654500	-118.975500
37.713667	-118.879167
37.713667	-118.879167
37.580373	-118.890432
38.192939	-118.453787
38.193409	-118.453545
38.456494	-118.307380
38.065214	-118.190482
37.612500	-118.914000
38.279701	-118.258700
38.403920	-118.446101
38.343023	-117.973110
38.342778	-117.973056
37.625333	-118.945500
37.502751	-118.683727
37.619500	-118.860500
37.619500	-118.860500
37.369270	-118.527223
EOT

#  Geodolite Lines
#  ---------------
psxy << EOT -: -R -W5/255/51/51 -MS \
-Jm -O \
>> excel.ps
SEGMENT
37.700582   -118.578774   excel banner  
37.847231   -118.382493   excel bound   
SEGMENT
37.700582   -118.578774   excel banner  
37.578523   -118.549493   excel casa dia
SEGMENT
37.700582   -118.578774   excel banner  
37.533136   -118.315400   excel chalfant
SEGMENT
37.700582   -118.578774   excel banner  
37.711333   -118.428433   excel falls 2 
SEGMENT
37.700582   -118.578774   excel banner  
37.711111   -118.428333   excel fallsrm1
SEGMENT
37.700582   -118.578774   excel banner  
38.033981   -118.541149   excel huntoon 
SEGMENT
37.847231   -118.382493   excel bound   
37.774997   -118.707549   excel glass   
SEGMENT
37.847231   -118.382493   excel bound   
37.774974   -118.707454   excel glassrm2
SEGMENT
37.847231   -118.382493   excel bound   
38.033981   -118.541149   excel huntoon 
SEGMENT
37.847231   -118.382493   excel bound   
38.065214   -118.190482   excel miller  
SEGMENT
37.846164   -118.350348   excel boundary
37.774997   -118.707549   excel glass   
SEGMENT
37.846164   -118.350348   excel boundary
37.774974   -118.707454   excel glassrm2
SEGMENT
37.846164   -118.350348   excel boundary
38.033981   -118.541149   excel huntoon 
SEGMENT
38.328215   -117.698318   excel brandon 
38.343023   -117.973110   excel pilot   
SEGMENT
38.328215   -117.698318   excel brandon 
38.342778   -117.973056   excel pilotrm2
SEGMENT
38.150168   -118.102393   excel candelar
38.279701   -118.258700   excel moho 2  
SEGMENT
38.150168   -118.102393   excel candelar
38.343023   -117.973110   excel pilot   
SEGMENT
38.150168   -118.102393   excel candelar
38.342778   -117.973056   excel pilotrm2
SEGMENT
37.578523   -118.549493   excel casa dia
37.533136   -118.315400   excel chalfant
SEGMENT
37.578523   -118.549493   excel casa dia
37.502751   -118.683727   excel sherwin 
SEGMENT
37.578523   -118.549493   excel casa dia
37.369270   -118.527223   excel tungsten
SEGMENT
38.531310   -117.822526   excel cedar   
38.343023   -117.973110   excel pilot   
SEGMENT
38.531310   -117.822526   excel cedar   
38.342778   -117.973056   excel pilotrm2
SEGMENT
37.533136   -118.315400   excel chalfant
37.391793   -118.253527   excel dan     
SEGMENT
37.533136   -118.315400   excel chalfant
37.711333   -118.428433   excel falls 2 
SEGMENT
37.533136   -118.315400   excel chalfant
37.711111   -118.428333   excel fallsrm1
SEGMENT
37.533136   -118.315400   excel chalfant
37.502751   -118.683727   excel sherwin 
SEGMENT
37.533136   -118.315400   excel chalfant
37.369270   -118.527223   excel tungsten
SEGMENT
38.193306   -118.453528   excel collins 
38.267935   -118.505768   excel excel   
SEGMENT
38.193306   -118.453528   excel collins 
38.279701   -118.258700   excel moho 2  
SEGMENT
37.391793   -118.253527   excel dan     
37.369270   -118.527223   excel tungsten
SEGMENT
38.267935   -118.505768   excel excel   
38.279931   -118.816778   excel hicks   
SEGMENT
38.267935   -118.505768   excel excel   
38.033981   -118.541149   excel huntoon 
SEGMENT
38.267935   -118.505768   excel excel   
38.192939   -118.453787   excel lone    
SEGMENT
38.267935   -118.505768   excel excel   
38.456494   -118.307380   excel mable   
SEGMENT
38.267935   -118.505768   excel excel   
38.065214   -118.190482   excel miller  
SEGMENT
38.267935   -118.505768   excel excel   
38.279701   -118.258700   excel moho 2  
SEGMENT
38.267935   -118.505768   excel excel   
38.403920   -118.446101   excel oro     
SEGMENT
37.774997   -118.707549   excel glass   
38.033981   -118.541149   excel huntoon 
SEGMENT
37.774974   -118.707454   excel glassrm2
38.033981   -118.541149   excel huntoon 
SEGMENT
38.279931   -118.816778   excel hicks   
37.979196   -118.808146   excel horse   
SEGMENT
38.279931   -118.816778   excel hicks   
38.033981   -118.541149   excel huntoon 
SEGMENT
37.979196   -118.808146   excel horse   
38.033981   -118.541149   excel huntoon 
SEGMENT
38.033981   -118.541149   excel huntoon 
38.192939   -118.453787   excel lone    
SEGMENT
38.033981   -118.541149   excel huntoon 
38.065214   -118.190482   excel miller  
SEGMENT
38.033981   -118.541149   excel huntoon 
38.279701   -118.258700   excel moho 2  
SEGMENT
38.192939   -118.453787   excel lone    
38.279701   -118.258700   excel moho 2  
SEGMENT
38.193409   -118.453545   excel lone ecc
38.279701   -118.258700   excel moho 2  
SEGMENT
38.456494   -118.307380   excel mable   
38.279701   -118.258700   excel moho 2  
SEGMENT
38.456494   -118.307380   excel mable   
38.403920   -118.446101   excel oro     
SEGMENT
38.456494   -118.307380   excel mable   
38.343023   -117.973110   excel pilot   
SEGMENT
38.456494   -118.307380   excel mable   
38.342778   -117.973056   excel pilotrm2
SEGMENT
38.065214   -118.190482   excel miller  
38.279701   -118.258700   excel moho 2  
SEGMENT
38.065214   -118.190482   excel miller  
38.343023   -117.973110   excel pilot   
SEGMENT
38.065214   -118.190482   excel miller  
38.342778   -117.973056   excel pilotrm2
SEGMENT
38.279701   -118.258700   excel moho 2  
38.403920   -118.446101   excel oro     
SEGMENT
38.279701   -118.258700   excel moho 2  
38.343023   -117.973110   excel pilot   
SEGMENT
38.279701   -118.258700   excel moho 2  
38.342778   -117.973056   excel pilotrm2
SEGMENT
37.502751   -118.683727   excel sherwin 
37.369270   -118.527223   excel tungsten
SEGMENT
EOT