#!/bin/csh

#  Draw basemap
#  ------------
pscoast -Jm2.8762654569307 -R-119.5139822/-117.2610608/34.0579474/35.7279586 \
-Ba1.0f10mwSnE \
-W3/0/0/0 -Na/1 -S153/255/255 \
-Df -Ir/1/114/187/243 \
-Lf-118.953333/34.35399484/34.35399484/50 \
-G230/225/200 -P -K >! tehac.ps

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

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

#  Calif faults
#  ------------
psxy /attic/mapdata/Jennings_faults.car \
-: -Jm -R -MS -W3/255/102/102 -O -K \
>> tehac.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 \
>> tehac.ps
-118.219205	34.776796	0.00	0.00	0.00	0.00	0.0000	tehac avenue  
-118.094263	35.272501	0.00	0.00	0.00	0.00	0.0000	tehac bald    
-117.761710	34.528531	0.00	0.00	0.00	0.00	0.0000	tehac black bu
-118.552459	34.818343	0.00	0.00	0.00	0.00	0.0000	tehac bull    
-118.142516	34.631300	0.00	0.00	0.00	0.00	0.0000	tehac denis   
-118.614284	34.934540	0.00	0.00	0.00	0.00	0.0000	tehac diorite 
-118.485833	35.033333	0.00	0.00	0.00	0.00	0.0000	tehac doub rm1
-118.406478	34.749113	0.00	0.00	0.00	0.00	0.0000	tehac fairmont
-118.702165	34.959181	0.00	0.00	0.00	0.00	0.0000	tehac gneiss  
-118.323279	34.644189	0.00	0.00	0.00	0.00	0.0000	tehac leona   
-118.323056	34.644167	0.00	0.00	0.00	0.00	0.0000	tehac leonarm3
-117.937537	34.513405	0.00	0.00	0.00	0.00	0.0000	tehac lit rock
-118.293646	35.120779	0.00	0.00	0.00	0.00	0.0000	tehac pajuela 
-118.355126	34.560978	0.00	0.00	0.00	0.00	0.0000	tehac pelona  
-118.903545	34.903038	0.00	0.00	0.00	0.00	0.0000	tehac police  
-118.903333	34.902778	0.00	0.00	0.00	0.00	0.0000	tehac policeec
-118.213644	34.606635	0.00	0.00	0.00	0.00	0.0000	tehac rit rid 
-118.560278	34.693056	0.00	0.00	0.00	0.00	0.0000	tehac saw ecc 
-118.560474	34.693159	0.00	0.00	0.00	0.00	0.0000	tehac sawmill 
-118.187928	34.982536	0.00	0.00	0.00	0.00	0.0000	tehac soledad 
-118.980833	34.842222	0.00	0.00	0.00	0.00	0.0000	tehac tecuyrm1
-118.821389	35.123611	0.00	0.00	0.00	0.00	0.0000	tehac tej32rm2
-118.821630	35.123824	0.00	0.00	0.00	0.00	0.0000	tehac tejon 32
-118.814619	34.803635	0.00	0.00	0.00	0.00	0.0000	tehac tejon 41
-118.147287	34.530634	0.00	0.00	0.00	0.00	0.0000	tehac tenhi   
-118.418153	34.862713	0.00	0.00	0.00	0.00	0.0000	tehac thumb   
-117.897733	34.631158	0.00	0.00	0.00	0.00	0.0000	tehac tom     
-117.897778	34.631111	0.00	0.00	0.00	0.00	0.0000	tehac tom rm3 
-118.931389	35.223056	0.00	0.00	0.00	0.00	0.0000	tehac weed rm1
-119.013333	35.010556	0.00	0.00	0.00	0.00	0.0000	tehac wh2 rm3 
-119.013331	35.010618	0.00	0.00	0.00	0.00	0.0000	tehac wheeler2
EOT

#  Station dots
#  ------------
psxy << EOT -: -R -W5/51/51/255 -G255/255/255 \
-Jm -Sc0.07 -O -K \
>> tehac.ps
34.776796	-118.219205
35.272501	-118.094263
34.528531	-117.761710
34.818343	-118.552459
34.631300	-118.142516
34.934540	-118.614284
35.033333	-118.485833
34.749113	-118.406478
34.959181	-118.702165
34.644189	-118.323279
34.644167	-118.323056
34.513405	-117.937537
35.120779	-118.293646
34.560978	-118.355126
34.903038	-118.903545
34.902778	-118.903333
34.606635	-118.213644
34.693056	-118.560278
34.693159	-118.560474
34.982536	-118.187928
34.842222	-118.980833
35.123611	-118.821389
35.123824	-118.821630
34.803635	-118.814619
34.530634	-118.147287
34.862713	-118.418153
34.631158	-117.897733
34.631111	-117.897778
35.223056	-118.931389
35.010556	-119.013333
35.010618	-119.013331
EOT

#  Geodolite Lines
#  ---------------
psxy << EOT -: -R -W5/255/51/51 -MS \
-Jm -O \
>> tehac.ps
SEGMENT
34.776796   -118.219205   tehac avenue  
34.749113   -118.406478   tehac fairmont
SEGMENT
34.776796   -118.219205   tehac avenue  
34.644189   -118.323279   tehac leona   
SEGMENT
34.776796   -118.219205   tehac avenue  
34.644167   -118.323056   tehac leonarm3
SEGMENT
34.776796   -118.219205   tehac avenue  
34.560978   -118.355126   tehac pelona  
SEGMENT
34.776796   -118.219205   tehac avenue  
34.606635   -118.213644   tehac rit rid 
SEGMENT
34.776796   -118.219205   tehac avenue  
34.982536   -118.187928   tehac soledad 
SEGMENT
34.776796   -118.219205   tehac avenue  
34.862713   -118.418153   tehac thumb   
SEGMENT
35.272501   -118.094263   tehac bald    
34.982536   -118.187928   tehac soledad 
SEGMENT
34.528531   -117.761710   tehac black bu
34.513405   -117.937537   tehac lit rock
SEGMENT
34.818343   -118.552459   tehac bull    
34.934540   -118.614284   tehac diorite 
SEGMENT
34.818343   -118.552459   tehac bull    
34.749113   -118.406478   tehac fairmont
SEGMENT
34.631300   -118.142516   tehac denis   
34.631158   -117.897733   tehac tom     
SEGMENT
34.631300   -118.142516   tehac denis   
34.631111   -117.897778   tehac tom rm3 
SEGMENT
34.934540   -118.614284   tehac diorite 
34.749113   -118.406478   tehac fairmont
SEGMENT
34.934540   -118.614284   tehac diorite 
34.959181   -118.702165   tehac gneiss  
SEGMENT
34.934540   -118.614284   tehac diorite 
34.903038   -118.903545   tehac police  
SEGMENT
34.934540   -118.614284   tehac diorite 
34.902778   -118.903333   tehac policeec
SEGMENT
34.934540   -118.614284   tehac diorite 
34.693056   -118.560278   tehac saw ecc 
SEGMENT
34.934540   -118.614284   tehac diorite 
34.693159   -118.560474   tehac sawmill 
SEGMENT
34.934540   -118.614284   tehac diorite 
34.803635   -118.814619   tehac tejon 41
SEGMENT
34.934540   -118.614284   tehac diorite 
34.862713   -118.418153   tehac thumb   
SEGMENT
35.033333   -118.485833   tehac doub rm1
34.982536   -118.187928   tehac soledad 
SEGMENT
34.749113   -118.406478   tehac fairmont
34.560978   -118.355126   tehac pelona  
SEGMENT
34.749113   -118.406478   tehac fairmont
34.693056   -118.560278   tehac saw ecc 
SEGMENT
34.749113   -118.406478   tehac fairmont
34.693159   -118.560474   tehac sawmill 
SEGMENT
34.749113   -118.406478   tehac fairmont
34.982536   -118.187928   tehac soledad 
SEGMENT
34.749113   -118.406478   tehac fairmont
34.862713   -118.418153   tehac thumb   
SEGMENT
34.959181   -118.702165   tehac gneiss  
34.903038   -118.903545   tehac police  
SEGMENT
34.959181   -118.702165   tehac gneiss  
34.902778   -118.903333   tehac policeec
SEGMENT
34.959181   -118.702165   tehac gneiss  
35.123611   -118.821389   tehac tej32rm2
SEGMENT
34.959181   -118.702165   tehac gneiss  
35.010556   -119.013333   tehac wh2 rm3 
SEGMENT
34.959181   -118.702165   tehac gneiss  
35.010618   -119.013331   tehac wheeler2
SEGMENT
35.120779   -118.293646   tehac pajuela 
34.982536   -118.187928   tehac soledad 
SEGMENT
34.560978   -118.355126   tehac pelona  
34.693056   -118.560278   tehac saw ecc 
SEGMENT
34.903038   -118.903545   tehac police  
34.842222   -118.980833   tehac tecuyrm1
SEGMENT
34.903038   -118.903545   tehac police  
34.803635   -118.814619   tehac tejon 41
SEGMENT
34.903038   -118.903545   tehac police  
35.010556   -119.013333   tehac wh2 rm3 
SEGMENT
34.903038   -118.903545   tehac police  
35.010618   -119.013331   tehac wheeler2
SEGMENT
34.902778   -118.903333   tehac policeec
34.803635   -118.814619   tehac tejon 41
SEGMENT
34.693056   -118.560278   tehac saw ecc 
34.803635   -118.814619   tehac tejon 41
SEGMENT
34.693056   -118.560278   tehac saw ecc 
34.862713   -118.418153   tehac thumb   
SEGMENT
34.693159   -118.560474   tehac sawmill 
34.803635   -118.814619   tehac tejon 41
SEGMENT
34.693159   -118.560474   tehac sawmill 
34.862713   -118.418153   tehac thumb   
SEGMENT
34.982536   -118.187928   tehac soledad 
34.862713   -118.418153   tehac thumb   
SEGMENT
34.842222   -118.980833   tehac tecuyrm1
34.803635   -118.814619   tehac tejon 41
SEGMENT
35.123611   -118.821389   tehac tej32rm2
35.223056   -118.931389   tehac weed rm1
SEGMENT
35.123611   -118.821389   tehac tej32rm2
35.010556   -119.013333   tehac wh2 rm3 
SEGMENT
35.123611   -118.821389   tehac tej32rm2
35.010618   -119.013331   tehac wheeler2
SEGMENT
35.123824   -118.821630   tehac tejon 32
35.223056   -118.931389   tehac weed rm1
SEGMENT
35.123824   -118.821630   tehac tejon 32
35.010618   -119.013331   tehac wheeler2
SEGMENT
EOT