#!/bin/csh
#  Draw basemap
#  ------------
pscoast -Jm2.39040650190567 -R-161.375721/-158.664885/54.3303766/56.1060714 \
-Ba1.0f10mwSnE \
-W3/0/0/0 -Na/1 -S153/255/255 \
-Df -Ir/1/114/187/243 \
-Lf-160.713313/54.64515886/54.64515886/50 \
-G230/225/200 -P -K >! shuma.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 \
>> shuma.ps
-160.773313	55.455429	0.00	0.00	0.00	0.00	0.0000	shuma alik    
-160.086778	55.323394	0.00	0.00	0.00	0.00	0.0000	shuma andronic
-159.742928	54.829203	0.00	0.00	0.00	0.00	0.0000	shuma bird    
-159.582690	54.814657	0.00	0.00	0.00	0.00	0.0000	shuma chernab 
-160.728379	55.308993	0.00	0.00	0.00	0.00	0.0000	shuma fourth  
-159.586811	55.162357	0.00	0.00	0.00	0.00	0.0000	shuma insula  
-160.052515	55.510359	0.00	0.00	0.00	0.00	0.0000	shuma karpa   
-160.366775	55.273776	0.00	0.00	0.00	0.00	0.0000	shuma koppe   
-160.295919	55.403824	0.00	0.00	0.00	0.00	0.0000	shuma korovin 
-159.403590	55.007270	0.00	0.00	0.00	0.00	0.0000	shuma little  
-160.462764	55.550584	0.00	0.00	0.00	0.00	0.0000	shuma lumber  
-160.225656	54.876366	0.00	0.00	0.00	0.00	0.0000	shuma mount   
-159.922297	55.161851	0.00	0.00	0.00	0.00	0.0000	shuma nag     
-160.394970	55.621791	0.00	0.00	0.00	0.00	0.0000	shuma renshaw 
-160.475504	55.352320	0.00	0.00	0.00	0.00	0.0000	shuma sandpths
-159.267293	54.896668	0.00	0.00	0.00	0.00	0.0000	shuma simeon  
-160.522227	55.477753	0.00	0.00	0.00	0.00	0.0000	shuma swede   
-159.835854	55.033611	0.00	0.00	0.00	0.00	0.0000	shuma turner  
-159.868459	55.248269	0.00	0.00	0.00	0.00	0.0000	shuma wedge   
-160.123350	55.097687	0.00	0.00	0.00	0.00	0.0000	shuma wooly   
EOT
#  Station dots
#  ------------
psxy << EOT -: -R -W5/51/51/255 -G255/255/255 \
-Jm -Sc0.07 -O -K \
>> shuma.ps
55.455429	-160.773313
55.323394	-160.086778
54.829203	-159.742928
54.814657	-159.582690
55.308993	-160.728379
55.162357	-159.586811
55.510359	-160.052515
55.273776	-160.366775
55.403824	-160.295919
55.007270	-159.403590
55.550584	-160.462764
54.876366	-160.225656
55.161851	-159.922297
55.621791	-160.394970
55.352320	-160.475504
54.896668	-159.267293
55.477753	-160.522227
55.033611	-159.835854
55.248269	-159.868459
55.097687	-160.123350
EOT
#  Geodolite Lines
#  ---------------
psxy << EOT -: -R -W5/255/51/51 -MS \
-Jm -O \
>> shuma.ps
SEGMENT
55.455429   -160.773313   shuma alik    
55.308993   -160.728379   shuma fourth  
SEGMENT
55.455429   -160.773313   shuma alik    
55.477753   -160.522227   shuma swede   
SEGMENT
55.323394   -160.086778   shuma andronic
55.510359   -160.052515   shuma karpa   
SEGMENT
55.323394   -160.086778   shuma andronic
55.273776   -160.366775   shuma koppe   
SEGMENT
55.323394   -160.086778   shuma andronic
55.403824   -160.295919   shuma korovin 
SEGMENT
55.323394   -160.086778   shuma andronic
55.161851   -159.922297   shuma nag     
SEGMENT
55.323394   -160.086778   shuma andronic
55.248269   -159.868459   shuma wedge   
SEGMENT
54.829203   -159.742928   shuma bird    
54.814657   -159.582690   shuma chernab 
SEGMENT
54.829203   -159.742928   shuma bird    
55.007270   -159.403590   shuma little  
SEGMENT
54.829203   -159.742928   shuma bird    
55.033611   -159.835854   shuma turner  
SEGMENT
54.814657   -159.582690   shuma chernab 
55.007270   -159.403590   shuma little  
SEGMENT
54.814657   -159.582690   shuma chernab 
54.896668   -159.267293   shuma simeon  
SEGMENT
55.308993   -160.728379   shuma fourth  
55.273776   -160.366775   shuma koppe   
SEGMENT
55.308993   -160.728379   shuma fourth  
55.352320   -160.475504   shuma sandpths
SEGMENT
55.308993   -160.728379   shuma fourth  
55.477753   -160.522227   shuma swede   
SEGMENT
55.162357   -159.586811   shuma insula  
55.007270   -159.403590   shuma little  
SEGMENT
55.162357   -159.586811   shuma insula  
55.161851   -159.922297   shuma nag     
SEGMENT
55.162357   -159.586811   shuma insula  
55.033611   -159.835854   shuma turner  
SEGMENT
55.162357   -159.586811   shuma insula  
55.248269   -159.868459   shuma wedge   
SEGMENT
55.510359   -160.052515   shuma karpa   
55.403824   -160.295919   shuma korovin 
SEGMENT
55.510359   -160.052515   shuma karpa   
55.550584   -160.462764   shuma lumber  
SEGMENT
55.510359   -160.052515   shuma karpa   
55.621791   -160.394970   shuma renshaw 
SEGMENT
55.510359   -160.052515   shuma karpa   
55.477753   -160.522227   shuma swede   
SEGMENT
55.510359   -160.052515   shuma karpa   
55.248269   -159.868459   shuma wedge   
SEGMENT
55.273776   -160.366775   shuma koppe   
55.403824   -160.295919   shuma korovin 
SEGMENT
55.273776   -160.366775   shuma koppe   
55.161851   -159.922297   shuma nag     
SEGMENT
55.273776   -160.366775   shuma koppe   
55.477753   -160.522227   shuma swede   
SEGMENT
55.273776   -160.366775   shuma koppe   
55.248269   -159.868459   shuma wedge   
SEGMENT
55.273776   -160.366775   shuma koppe   
55.097687   -160.123350   shuma wooly   
SEGMENT
55.403824   -160.295919   shuma korovin 
55.550584   -160.462764   shuma lumber  
SEGMENT
55.403824   -160.295919   shuma korovin 
55.621791   -160.394970   shuma renshaw 
SEGMENT
55.403824   -160.295919   shuma korovin 
55.477753   -160.522227   shuma swede   
SEGMENT
55.007270   -159.403590   shuma little  
54.896668   -159.267293   shuma simeon  
SEGMENT
55.007270   -159.403590   shuma little  
55.033611   -159.835854   shuma turner  
SEGMENT
55.550584   -160.462764   shuma lumber  
55.621791   -160.394970   shuma renshaw 
SEGMENT
55.550584   -160.462764   shuma lumber  
55.477753   -160.522227   shuma swede   
SEGMENT
55.161851   -159.922297   shuma nag     
55.033611   -159.835854   shuma turner  
SEGMENT
55.161851   -159.922297   shuma nag     
55.248269   -159.868459   shuma wedge   
SEGMENT
55.161851   -159.922297   shuma nag     
55.097687   -160.123350   shuma wooly   
SEGMENT
55.352320   -160.475504   shuma sandpths
55.477753   -160.522227   shuma swede   
SEGMENT
55.033611   -159.835854   shuma turner  
55.097687   -160.123350   shuma wooly   
SEGMENT
EOT