#!/bin/csh

#  Draw basemap
#  ------------
pscoast -Jm5.4777845404746 -R-149.346213/-148.163253/63.1553856/63.7873554 \
-Ba1.0f10mwSnE \
-W3/0/0/0 -Na/1 -S153/255/255 \
-Df -Ir/1/114/187/243 \
-Lf-149.023333/63.26741661/63.26741661/20 \
-G230/225/200 -P -K >! windy.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 \
>> windy.ps
-148.426133	63.454066	0.00	0.00	0.00	0.00	0.0000	windy brusk   
-148.947323	63.388726	0.00	0.00	0.00	0.00	0.0000	windy cant    
-148.818849	63.405616	0.00	0.00	0.00	0.00	0.0000	windy cantwell
-148.983333	63.435833	0.00	0.00	0.00	0.00	0.0000	windy cantwrm2
-148.726511	63.580725	0.00	0.00	0.00	0.00	0.0000	windy carlo   
-148.869756	63.528021	0.00	0.00	0.00	0.00	0.0000	windy cleft   
-149.019167	63.327750	0.00	0.00	0.00	0.00	0.0000	windy cran rm2
-149.019171	63.327741	0.00	0.00	0.00	0.00	0.0000	windy cranberr
-148.774131	63.459419	0.00	0.00	0.00	0.00	0.0000	windy hiway   
-149.083333	63.432608	0.00	0.00	0.00	0.00	0.0000	windy knoll   
-148.915703	63.422464	0.00	0.00	0.00	0.00	0.0000	windy lgo 21  
-148.915703	63.422464	0.00	0.00	0.00	0.00	0.0000	windy lgo 22  
-148.933333	63.447103	0.00	0.00	0.00	0.00	0.0000	windy lgo 31  
-148.778636	63.434347	0.00	0.00	0.00	0.00	0.0000	windy reindeer
-148.928250	63.615000	0.00	0.00	0.00	0.00	0.0000	windy riley   
-148.893822	63.473189	0.00	0.00	0.00	0.00	0.0000	windy sanchez 
-148.716788	63.478155	0.00	0.00	0.00	0.00	0.0000	windy slime   
-149.071557	63.380786	0.00	0.00	0.00	0.00	0.0000	windy summit  
-148.529519	63.357489	0.00	0.00	0.00	0.00	0.0000	windy talus   
EOT

#  Station dots
#  ------------
psxy << EOT -: -R -W5/51/51/255 -G255/255/255 \
-Jm -Sc0.07 -O -K \
>> windy.ps
63.454066	-148.426133
63.388726	-148.947323
63.405616	-148.818849
63.435833	-148.983333
63.580725	-148.726511
63.528021	-148.869756
63.327750	-149.019167
63.327741	-149.019171
63.459419	-148.774131
63.432608	-149.083333
63.422464	-148.915703
63.422464	-148.915703
63.447103	-148.933333
63.434347	-148.778636
63.615000	-148.928250
63.473189	-148.893822
63.478155	-148.716788
63.380786	-149.071557
63.357489	-148.529519
EOT

#  Geodolite Lines
#  ---------------
psxy << EOT -: -R -W5/255/51/51 -MS \
-Jm -O \
>> windy.ps
SEGMENT
63.454066   -148.426133   windy brusk   
63.405616   -148.818849   windy cantwell
SEGMENT
63.454066   -148.426133   windy brusk   
63.478155   -148.716788   windy slime   
SEGMENT
63.454066   -148.426133   windy brusk   
63.357489   -148.529519   windy talus   
SEGMENT
63.388726   -148.947323   windy cant    
63.405616   -148.818849   windy cantwell
SEGMENT
63.388726   -148.947323   windy cant    
63.327750   -149.019167   windy cran rm2
SEGMENT
63.388726   -148.947323   windy cant    
63.327741   -149.019171   windy cranberr
SEGMENT
63.388726   -148.947323   windy cant    
63.380786   -149.071557   windy summit  
SEGMENT
63.405616   -148.818849   windy cantwell
63.528021   -148.869756   windy cleft   
SEGMENT
63.405616   -148.818849   windy cantwell
63.327750   -149.019167   windy cran rm2
SEGMENT
63.405616   -148.818849   windy cantwell
63.327741   -149.019171   windy cranberr
SEGMENT
63.405616   -148.818849   windy cantwell
63.459419   -148.774131   windy hiway   
SEGMENT
63.405616   -148.818849   windy cantwell
63.422464   -148.915703   windy lgo 21  
SEGMENT
63.405616   -148.818849   windy cantwell
63.422464   -148.915703   windy lgo 22  
SEGMENT
63.405616   -148.818849   windy cantwell
63.447103   -148.933333   windy lgo 31  
SEGMENT
63.405616   -148.818849   windy cantwell
63.434347   -148.778636   windy reindeer
SEGMENT
63.405616   -148.818849   windy cantwell
63.473189   -148.893822   windy sanchez 
SEGMENT
63.405616   -148.818849   windy cantwell
63.478155   -148.716788   windy slime   
SEGMENT
63.405616   -148.818849   windy cantwell
63.380786   -149.071557   windy summit  
SEGMENT
63.405616   -148.818849   windy cantwell
63.357489   -148.529519   windy talus   
SEGMENT
63.435833   -148.983333   windy cantwrm2
63.432608   -149.083333   windy knoll   
SEGMENT
63.435833   -148.983333   windy cantwrm2
63.447103   -148.933333   windy lgo 31  
SEGMENT
63.580725   -148.726511   windy carlo   
63.528021   -148.869756   windy cleft   
SEGMENT
63.580725   -148.726511   windy carlo   
63.615000   -148.928250   windy riley   
SEGMENT
63.580725   -148.726511   windy carlo   
63.478155   -148.716788   windy slime   
SEGMENT
63.528021   -148.869756   windy cleft   
63.615000   -148.928250   windy riley   
SEGMENT
63.528021   -148.869756   windy cleft   
63.478155   -148.716788   windy slime   
SEGMENT
63.528021   -148.869756   windy cleft   
63.380786   -149.071557   windy summit  
SEGMENT
63.327750   -149.019167   windy cran rm2
63.478155   -148.716788   windy slime   
SEGMENT
63.327750   -149.019167   windy cran rm2
63.380786   -149.071557   windy summit  
SEGMENT
63.327741   -149.019171   windy cranberr
63.478155   -148.716788   windy slime   
SEGMENT
63.327741   -149.019171   windy cranberr
63.380786   -149.071557   windy summit  
SEGMENT
63.459419   -148.774131   windy hiway   
63.422464   -148.915703   windy lgo 21  
SEGMENT
63.459419   -148.774131   windy hiway   
63.447103   -148.933333   windy lgo 31  
SEGMENT
63.459419   -148.774131   windy hiway   
63.434347   -148.778636   windy reindeer
SEGMENT
63.432608   -149.083333   windy knoll   
63.447103   -148.933333   windy lgo 31  
SEGMENT
63.422464   -148.915703   windy lgo 21  
63.447103   -148.933333   windy lgo 31  
SEGMENT
63.422464   -148.915703   windy lgo 21  
63.434347   -148.778636   windy reindeer
SEGMENT
63.422464   -148.915703   windy lgo 21  
63.478155   -148.716788   windy slime   
SEGMENT
63.422464   -148.915703   windy lgo 22  
63.434347   -148.778636   windy reindeer
SEGMENT
63.447103   -148.933333   windy lgo 31  
63.434347   -148.778636   windy reindeer
SEGMENT
63.615000   -148.928250   windy riley   
63.478155   -148.716788   windy slime   
SEGMENT
63.478155   -148.716788   windy slime   
63.380786   -149.071557   windy summit  
SEGMENT
63.478155   -148.716788   windy slime   
63.357489   -148.529519   windy talus   
SEGMENT
EOT