#!/bin/csh

#  Draw basemap
#  ------------
pscoast -Jm6.91421077741046 -R-139.1635556/-138.3825554/59.3323336/59.9196104 \
-Ba1.0f10mwSnE \
-W3/0/0/0 -Na/1 -S153/255/255 \
-Df -Ir/1/114/187/243 \
-Lf-138.93/59.43644176/59.43644176/20 \
-G230/225/200 -P -K >! fair.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 \
>> fair.ps
-138.638333	59.669444	0.00	0.00	0.00	0.00	0.0000	fair  comb    
-138.862222	59.668889	0.00	0.00	0.00	0.00	0.0000	fair  flat    
-138.943889	59.705833	0.00	0.00	0.00	0.00	0.0000	fair  hidden  
-138.861667	59.759444	0.00	0.00	0.00	0.00	0.0000	fair  mid     
-138.990000	59.566944	0.00	0.00	0.00	0.00	0.0000	fair  moser   
-138.556111	59.573056	0.00	0.00	0.00	0.00	0.0000	fair  nova    
-138.813889	59.622778	0.00	0.00	0.00	0.00	0.0000	fair  tat     
-138.731944	59.492500	0.00	0.00	0.00	0.00	0.0000	fair  yaku    
EOT

#  Station dots
#  ------------
psxy << EOT -: -R -W5/51/51/255 -G255/255/255 \
-Jm -Sc0.07 -O -K \
>> fair.ps
59.669444	-138.638333
59.668889	-138.862222
59.705833	-138.943889
59.759444	-138.861667
59.566944	-138.990000
59.573056	-138.556111
59.622778	-138.813889
59.492500	-138.731944
EOT

#  Geodolite Lines
#  ---------------
psxy << EOT -: -R -W5/255/51/51 -MS \
-Jm -O \
>> fair.ps
SEGMENT
59.669444   -138.638333   fair  comb    
59.668889   -138.862222   fair  flat    
SEGMENT
59.669444   -138.638333   fair  comb    
59.705833   -138.943889   fair  hidden  
SEGMENT
59.669444   -138.638333   fair  comb    
59.566944   -138.990000   fair  moser   
SEGMENT
59.669444   -138.638333   fair  comb    
59.622778   -138.813889   fair  tat     
SEGMENT
59.669444   -138.638333   fair  comb    
59.492500   -138.731944   fair  yaku    
SEGMENT
59.668889   -138.862222   fair  flat    
59.705833   -138.943889   fair  hidden  
SEGMENT
59.668889   -138.862222   fair  flat    
59.759444   -138.861667   fair  mid     
SEGMENT
59.668889   -138.862222   fair  flat    
59.566944   -138.990000   fair  moser   
SEGMENT
59.668889   -138.862222   fair  flat    
59.573056   -138.556111   fair  nova    
SEGMENT
59.668889   -138.862222   fair  flat    
59.622778   -138.813889   fair  tat     
SEGMENT
59.705833   -138.943889   fair  hidden  
59.759444   -138.861667   fair  mid     
SEGMENT
59.705833   -138.943889   fair  hidden  
59.566944   -138.990000   fair  moser   
SEGMENT
59.705833   -138.943889   fair  hidden  
59.573056   -138.556111   fair  nova    
SEGMENT
59.705833   -138.943889   fair  hidden  
59.622778   -138.813889   fair  tat     
SEGMENT
59.705833   -138.943889   fair  hidden  
59.492500   -138.731944   fair  yaku    
SEGMENT
59.759444   -138.861667   fair  mid     
59.566944   -138.990000   fair  moser   
SEGMENT
59.759444   -138.861667   fair  mid     
59.573056   -138.556111   fair  nova    
SEGMENT
59.759444   -138.861667   fair  mid     
59.622778   -138.813889   fair  tat     
SEGMENT
59.566944   -138.990000   fair  moser   
59.573056   -138.556111   fair  nova    
SEGMENT
59.566944   -138.990000   fair  moser   
59.622778   -138.813889   fair  tat     
SEGMENT
59.566944   -138.990000   fair  moser   
59.492500   -138.731944   fair  yaku    
SEGMENT
59.573056   -138.556111   fair  nova    
59.622778   -138.813889   fair  tat     
SEGMENT
59.573056   -138.556111   fair  nova    
59.492500   -138.731944   fair  yaku    
SEGMENT
59.622778   -138.813889   fair  tat     
59.492500   -138.731944   fair  yaku    
SEGMENT
EOT