#!/bin/csh

#  Draw basemap
#  ------------
gmtset ANOT_FONT Helvetica LABEL_FONT Helvetica

psbasemap -JX6/1.5 \
-R1998.5/2004/-30/30 \
-G230/225/200 -Y5.25 -P -K \
-Bf0.25a1/f10a20:"North (mm)":WeSn  \
> fts1.ps

#  Draw error bars
#  ---------------
psxy << EOT \
-JX -R -G255/0/0 -Ey0.05/0.1/159/159/159 -O \
-K >> fts1.ps
1998.6454	-24.9	7.1
1998.6481	-25.8	6.6
1998.6508	-22.7	7.2
1998.6536	-22.5	6.8
1999.6255	-15.7	7.3
2000.5510	-7.4	7.0
2000.5537	-5.5	6.8
2000.5564	-9.7	6.5
2000.5592	-5.9	6.3
2000.5619	-3.3	6.4
2000.5646	-7.6	6.6
2000.5674	-3.9	6.7
2000.5701	-10.8	6.1
2000.5729	-9.2	6.7
2000.5756	-9.0	6.1
2000.5783	-8.4	6.1
2000.5811	-6.4	6.5
2000.5838	-7.3	6.5
2003.6338	23.4	4.8
2003.6366	23.0	6.9
2003.6393	24.4	7.3
2003.6421	25.0	7.0
2003.6448	25.2	6.8
2003.6475	21.9	6.5
2003.6503	20.3	6.7
2003.6530	22.3	6.0
2003.6557	23.2	6.9
EOT


#  Draw points
#  -----------
psxy << EOT \
-JX -R -Sc0.06 -G255/0/0 -O \
-K >> fts1.ps
1998.6454	-24.9	7.1
1998.6481	-25.8	6.6
1998.6508	-22.7	7.2
1998.6536	-22.5	6.8
1999.6255	-15.7	7.3
2000.5510	-7.4	7.0
2000.5537	-5.5	6.8
2000.5564	-9.7	6.5
2000.5592	-5.9	6.3
2000.5619	-3.3	6.4
2000.5646	-7.6	6.6
2000.5674	-3.9	6.7
2000.5701	-10.8	6.1
2000.5729	-9.2	6.7
2000.5756	-9.0	6.1
2000.5783	-8.4	6.1
2000.5811	-6.4	6.5
2000.5838	-7.3	6.5
2003.6338	23.4	4.8
2003.6366	23.0	6.9
2003.6393	24.4	7.3
2003.6421	25.0	7.0
2003.6448	25.2	6.8
2003.6475	21.9	6.5
2003.6503	20.3	6.7
2003.6530	22.3	6.0
2003.6557	23.2	6.9
EOT


#  Draw best fit line
#  ------------------
psxy << EOT \
-JX -R -MS -W3/102/102/255 -O \
-K >> fts1.ps
SBreak	Segment0	Comp0
 1998.6454	 -25.1298	Segment0	Comp0
 2003.6557	  22.9903	Segment0	Comp0
EOT


#  Draw basemap
#  ------------
gmtset ANOT_FONT Helvetica LABEL_FONT Helvetica

psbasemap -JX6/1.5 \
-R1998.5/2004/-40/30 \
-G230/225/200 -Y-1.75 -P -K \
-Bf0.25a1/f10a20:"East (mm)":WeSn  \
-O >> fts1.ps

#  Draw error bars
#  ---------------
psxy << EOT \
-JX -R -G255/0/0 -Ey0.05/0.1/159/159/159 -O \
-K >> fts1.ps
1998.6454	-32.7	8.0
1998.6481	-19.7	7.2
1998.6508	-17.3	7.8
1998.6536	-30.9	7.3
1999.6255	-24.7	9.8
2000.5510	-11.1	8.7
2000.5537	-11.7	8.0
2000.5564	-9.4	7.5
2000.5592	-10.9	7.4
2000.5619	-13.1	7.4
2000.5646	-11.7	7.9
2000.5674	-11.8	7.9
2000.5701	-11.7	7.1
2000.5729	-9.8	8.0
2000.5756	-5.5	7.0
2000.5783	-10.1	7.1
2000.5811	-9.6	7.1
2000.5838	-14.1	7.3
2003.6338	21.8	5.5
2003.6366	20.5	8.9
2003.6393	21.4	9.9
2003.6421	21.8	9.3
2003.6448	21.1	7.3
2003.6475	19.8	7.0
2003.6503	20.2	7.3
2003.6530	22.4	9.0
2003.6557	19.7	9.6
EOT


#  Draw points
#  -----------
psxy << EOT \
-JX -R -Sc0.06 -G255/0/0 -O \
-K >> fts1.ps
1998.6454	-32.7	8.0
1998.6481	-19.7	7.2
1998.6508	-17.3	7.8
1998.6536	-30.9	7.3
1999.6255	-24.7	9.8
2000.5510	-11.1	8.7
2000.5537	-11.7	8.0
2000.5564	-9.4	7.5
2000.5592	-10.9	7.4
2000.5619	-13.1	7.4
2000.5646	-11.7	7.9
2000.5674	-11.8	7.9
2000.5701	-11.7	7.1
2000.5729	-9.8	8.0
2000.5756	-5.5	7.0
2000.5783	-10.1	7.1
2000.5811	-9.6	7.1
2000.5838	-14.1	7.3
2003.6338	21.8	5.5
2003.6366	20.5	8.9
2003.6393	21.4	9.9
2003.6421	21.8	9.3
2003.6448	21.1	7.3
2003.6475	19.8	7.0
2003.6503	20.2	7.3
2003.6530	22.4	9.0
2003.6557	19.7	9.6
EOT


#  Draw best fit line
#  ------------------
psxy << EOT \
-JX -R -MS -W3/102/102/255 -O \
-K >> fts1.ps
SBreak	Segment0	Comp1
 1998.6454	 -28.0327	Segment0	Comp1
 2003.6557	  20.4596	Segment0	Comp1
EOT


#  Draw basemap
#  ------------
gmtset ANOT_FONT Helvetica LABEL_FONT Helvetica

psbasemap -JX6/1.5 \
-R1998.5/2004/-20/30 \
-G230/225/200 -Y-1.75 -P -K \
-Bf0.25a1/f10a20:"Up (mm)":WeSn  \
-O >> fts1.ps

#  Draw error bars
#  ---------------
psxy << EOT \
-JX -R -G255/0/0 -Ey0.05/0.1/159/159/159 -O \
-K >> fts1.ps
1998.6454	-17.6	22.9
1998.6481	-3.8	21.9
1998.6508	-8.7	23.5
1998.6536	-11.3	21.5
1999.6255	-9.2	23.5
2000.5510	-0.1	26.4
2000.5537	-1.0	23.6
2000.5564	-11.8	22.3
2000.5592	-5.3	22.8
2000.5619	-15.0	22.6
2000.5646	-7.1	24.1
2000.5674	-12.5	24.1
2000.5701	-5.3	21.3
2000.5729	0.4	23.1
2000.5756	2.2	20.7
2000.5783	-3.0	21.0
2000.5811	5.4	21.3
2000.5838	-2.3	20.8
2003.6338	12.6	15.9
2003.6366	21.9	27.3
2003.6393	7.2	32.2
2003.6421	11.4	27.6
2003.6448	13.7	21.9
2003.6475	14.8	21.1
2003.6503	7.0	21.7
2003.6530	14.1	21.3
2003.6557	7.1	24.5
EOT


#  Draw points
#  -----------
psxy << EOT \
-JX -R -Sc0.06 -G255/0/0 -O \
-K >> fts1.ps
1998.6454	-17.6	22.9
1998.6481	-3.8	21.9
1998.6508	-8.7	23.5
1998.6536	-11.3	21.5
1999.6255	-9.2	23.5
2000.5510	-0.1	26.4
2000.5537	-1.0	23.6
2000.5564	-11.8	22.3
2000.5592	-5.3	22.8
2000.5619	-15.0	22.6
2000.5646	-7.1	24.1
2000.5674	-12.5	24.1
2000.5701	-5.3	21.3
2000.5729	0.4	23.1
2000.5756	2.2	20.7
2000.5783	-3.0	21.0
2000.5811	5.4	21.3
2000.5838	-2.3	20.8
2003.6338	12.6	15.9
2003.6366	21.9	27.3
2003.6393	7.2	32.2
2003.6421	11.4	27.6
2003.6448	13.7	21.9
2003.6475	14.8	21.1
2003.6503	7.0	21.7
2003.6530	14.1	21.3
2003.6557	7.1	24.5
EOT


#  Draw best fit line
#  ------------------
psxy << EOT \
-JX -R -MS -W3/102/102/255 -O \
>> fts1.ps
SBreak	Segment0	Comp2
 1998.6454	 -12.6866	Segment0	Comp2
 2003.6557	  11.6830	Segment0	Comp2
EOT