#!/bin/csh

#  Draw basemap
#  ------------
pscoast -Jm85.4678718499842 -R-123.4512774/-123.3817776/38.6907772/38.7133888 \
-Ba0.02f0mwSnE \
-W3/0/0/0 -Na/1 -S153/255/255 \
-Df -Ir/1/114/187/243 \
-Lf-123.425833/38.69478562/38.69478562/2 \
-G230/225/200 -P -K >! black.ps

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

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

#  Calif faults
#  ------------
psxy /attic/mapdata/Jennings_faults.car \
-: -Jm -R -MS -W3/255/102/102 -O -K \
>> black.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 \
>> black.ps
-123.425833	38.699444	0.00	0.00	0.00	0.00	0.0000	black court   
-123.397222	38.696944	0.00	0.00	0.00	0.00	0.0000	black miller  
-123.435833	38.707222	0.00	0.00	0.00	0.00	0.0000	black timber  
EOT

#  Station dots
#  ------------
psxy << EOT -: -R -W5/51/51/255 -G255/255/255 \
-Jm -Sc0.07 -O -K \
>> black.ps
38.699444	-123.425833
38.696944	-123.397222
38.707222	-123.435833
EOT

#  Geodolite Lines
#  ---------------
psxy << EOT -: -R -W5/255/51/51 -MS \
-Jm -O \
>> black.ps
SEGMENT
38.699444   -123.425833   black court   
38.696944   -123.397222   black miller  
SEGMENT
38.699444   -123.425833   black court   
38.707222   -123.435833   black timber  
SEGMENT
38.696944   -123.397222   black miller  
38.707222   -123.435833   black timber  
SEGMENT
EOT