#!/bin/csh

#  Draw basemap
#  ------------
pscoast -Jm5.14265731388715 -R-121.2964424/-120.2464016/35.9832224/37.1982626 \
-Ba1.0f10mwSnE \
-W3/0/0/0 -Na/1 -S153/255/255 \
-Df -Ir/1/114/187/243 \
-Lf-121.0031/36.19861589/36.19861589/20 \
-G230/225/200 -P -K >! benit.ps

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

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

#  Calif faults
#  ------------
psxy /attic/mapdata/Jennings_faults.car \
-: -Jm -R -MS -W3/255/102/102 -O -K \
>> benit.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 \
>> benit.ps
-120.643555	36.369733	0.00	0.00	0.00	0.00	0.0000	benit benito  
-120.980903	36.416706	0.00	0.00	0.00	0.00	0.0000	benit bitter  
-120.872219	36.544712	0.00	0.00	0.00	0.00	0.0000	benit bonito  
-121.063100	36.609552	0.00	0.00	0.00	0.00	0.0000	benit call    
-120.780625	36.413364	0.00	0.00	0.00	0.00	0.0000	benit cane    
-120.479744	36.445493	0.00	0.00	0.00	0.00	0.0000	benit ciervo  
-120.578936	36.473470	0.00	0.00	0.00	0.00	0.0000	benit ciervomt
-120.494144	36.589004	0.00	0.00	0.00	0.00	0.0000	benit douglas 
-120.728008	36.503461	0.00	0.00	0.00	0.00	0.0000	benit grisusgs
-120.823638	36.314597	0.00	0.00	0.00	0.00	0.0000	benit hepsedam
-120.845139	36.866888	0.00	0.00	0.00	0.00	0.0000	benit laguna  
-120.893346	36.453047	0.00	0.00	0.00	0.00	0.0000	benit ley     
-120.922128	36.794478	0.00	0.00	0.00	0.00	0.0000	benit ortigapk
-120.738423	36.697975	0.00	0.00	0.00	0.00	0.0000	benit panoche 
-120.566667	36.691667	0.00	0.00	0.00	0.00	0.0000	benit rebar   
-120.932712	36.685252	0.00	0.00	0.00	0.00	0.0000	benit red     
-120.674539	36.778272	0.00	0.00	0.00	0.00	0.0000	benit russell 
-120.999431	36.537343	0.00	0.00	0.00	0.00	0.0000	benit smoker  
-120.566746	36.691668	0.00	0.00	0.00	0.00	0.0000	benit stubble2
-120.664324	36.611178	0.00	0.00	0.00	0.00	0.0000	benit tum     
EOT

#  Station dots
#  ------------
psxy << EOT -: -R -W5/51/51/255 -G255/255/255 \
-Jm -Sc0.07 -O -K \
>> benit.ps
36.369733	-120.643555
36.416706	-120.980903
36.544712	-120.872219
36.609552	-121.063100
36.413364	-120.780625
36.445493	-120.479744
36.473470	-120.578936
36.589004	-120.494144
36.503461	-120.728008
36.314597	-120.823638
36.866888	-120.845139
36.453047	-120.893346
36.794478	-120.922128
36.697975	-120.738423
36.691667	-120.566667
36.685252	-120.932712
36.778272	-120.674539
36.537343	-120.999431
36.691668	-120.566746
36.611178	-120.664324
EOT

#  Geodolite Lines
#  ---------------
psxy << EOT -: -R -W5/255/51/51 -MS \
-Jm -O \
>> benit.ps
SEGMENT
36.369733   -120.643555   benit benito  
36.413364   -120.780625   benit cane    
SEGMENT
36.369733   -120.643555   benit benito  
36.445493   -120.479744   benit ciervo  
SEGMENT
36.369733   -120.643555   benit benito  
36.473470   -120.578936   benit ciervomt
SEGMENT
36.369733   -120.643555   benit benito  
36.503461   -120.728008   benit grisusgs
SEGMENT
36.369733   -120.643555   benit benito  
36.314597   -120.823638   benit hepsedam
SEGMENT
36.416706   -120.980903   benit bitter  
36.453047   -120.893346   benit ley     
SEGMENT
36.416706   -120.980903   benit bitter  
36.537343   -120.999431   benit smoker  
SEGMENT
36.544712   -120.872219   benit bonito  
36.503461   -120.728008   benit grisusgs
SEGMENT
36.544712   -120.872219   benit bonito  
36.453047   -120.893346   benit ley     
SEGMENT
36.544712   -120.872219   benit bonito  
36.685252   -120.932712   benit red     
SEGMENT
36.544712   -120.872219   benit bonito  
36.537343   -120.999431   benit smoker  
SEGMENT
36.544712   -120.872219   benit bonito  
36.611178   -120.664324   benit tum     
SEGMENT
36.609552   -121.063100   benit call    
36.685252   -120.932712   benit red     
SEGMENT
36.609552   -121.063100   benit call    
36.537343   -120.999431   benit smoker  
SEGMENT
36.413364   -120.780625   benit cane    
36.503461   -120.728008   benit grisusgs
SEGMENT
36.413364   -120.780625   benit cane    
36.314597   -120.823638   benit hepsedam
SEGMENT
36.413364   -120.780625   benit cane    
36.453047   -120.893346   benit ley     
SEGMENT
36.445493   -120.479744   benit ciervo  
36.473470   -120.578936   benit ciervomt
SEGMENT
36.473470   -120.578936   benit ciervomt
36.503461   -120.728008   benit grisusgs
SEGMENT
36.473470   -120.578936   benit ciervomt
36.691668   -120.566746   benit stubble2
SEGMENT
36.473470   -120.578936   benit ciervomt
36.611178   -120.664324   benit tum     
SEGMENT
36.503461   -120.728008   benit grisusgs
36.453047   -120.893346   benit ley     
SEGMENT
36.503461   -120.728008   benit grisusgs
36.611178   -120.664324   benit tum     
SEGMENT
36.314597   -120.823638   benit hepsedam
36.453047   -120.893346   benit ley     
SEGMENT
36.866888   -120.845139   benit laguna  
36.794478   -120.922128   benit ortigapk
SEGMENT
36.866888   -120.845139   benit laguna  
36.691668   -120.566746   benit stubble2
SEGMENT
36.453047   -120.893346   benit ley     
36.537343   -120.999431   benit smoker  
SEGMENT
36.794478   -120.922128   benit ortigapk
36.697975   -120.738423   benit panoche 
SEGMENT
36.794478   -120.922128   benit ortigapk
36.685252   -120.932712   benit red     
SEGMENT
36.697975   -120.738423   benit panoche 
36.691667   -120.566667   benit rebar   
SEGMENT
36.697975   -120.738423   benit panoche 
36.685252   -120.932712   benit red     
SEGMENT
36.697975   -120.738423   benit panoche 
36.611178   -120.664324   benit tum     
SEGMENT
36.685252   -120.932712   benit red     
36.537343   -120.999431   benit smoker  
SEGMENT
36.685252   -120.932712   benit red     
36.611178   -120.664324   benit tum     
SEGMENT
36.691668   -120.566746   benit stubble2
36.611178   -120.664324   benit tum     
SEGMENT
EOT