#!/bin/csh

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

psbasemap -JX6/1.5 \
-R1993/2010/-90/90 \
-G236/232/211 -Y5.25 -P -K \
-Bf0.25a1/f40a80:"GORR North (mm)":WeSn  \
> gorr.ps

#  Draw error bars
#  ---------------
psxy << EOT \
-JX -R -G255/0/0 -Ey0.05/0.1/159/159/159 -O \
-K >> gorr.ps
1993.0355	-84.0	4.6
1994.2948	-81.5	9.8
1995.7185	-37.9	6.7
1996.8303	-31.1	6.8
1997.8843	-23.2	6.8
1997.9254	-37.8	6.8
1998.0568	-18.3	9.1
1998.0596	-27.4	6.7
1998.9193	-13.8	6.3
1998.9220	-13.3	6.6
1998.9576	-12.7	6.4
2001.0466	12.0	7.5
2001.0494	4.7	6.8
2003.0973	37.7	6.5
2003.1001	31.3	6.5
2006.1227	74.5	7.2
2006.1282	78.3	7.0
2009.1891	83.2	5.8
2009.1945	77.7	6.0
EOT


#  Draw points
#  -----------
psxy << EOT \
-JX -R -Sc0.03 -G0/0/255 -O \
-K >> gorr.ps
EOT


#  Draw points
#  -----------
psxy << EOT \
-JX -R -Sc0.03 -G255/0/0 -O \
-K >> gorr.ps
1993.0355	-84.0	4.6
1994.2948	-81.5	9.8
1995.7185	-37.9	6.7
1996.8303	-31.1	6.8
1997.8843	-23.2	6.8
1997.9254	-37.8	6.8
1998.0568	-18.3	9.1
1998.0596	-27.4	6.7
1998.9193	-13.8	6.3
1998.9220	-13.3	6.6
1998.9576	-12.7	6.4
2001.0466	12.0	7.5
2001.0494	4.7	6.8
2003.0973	37.7	6.5
2003.1001	31.3	6.5
2006.1227	74.5	7.2
2006.1282	78.3	7.0
2009.1891	83.2	5.8
2009.1945	77.7	6.0
EOT


#  Draw best fit line
#  ------------------
psxy << EOT \
-JX -R -MS -W3/102/102/255 -O \
-K >> gorr.ps
SBreak	Segment0	Comp0
 1993.0355	 -77.3503	Segment0	Comp0
 2009.1945	  93.2476	Segment0	Comp0
EOT


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

psbasemap -JX6/1.5 \
-R1993/2010/-100/100 \
-G236/232/211 -Y-1.75 -P -K \
-Bf0.25a1/f40a80:"GORR East (mm)":WeSn  \
-O >> gorr.ps

#  Draw error bars
#  ---------------
psxy << EOT \
-JX -R -G255/0/0 -Ey0.05/0.1/159/159/159 -O \
-K >> gorr.ps
1993.0355	98.3	9.7
1994.2948	-4.6	11.1
1995.7185	75.8	8.5
1996.8303	46.2	8.1
1997.8843	41.6	7.8
1997.9254	45.2	8.4
1998.0568	49.6	10.1
1998.0596	49.8	8.1
1998.9193	30.1	8.0
1998.9220	10.3	9.3
1998.9576	23.0	7.6
2001.0466	14.0	8.4
2001.0494	2.2	7.3
2003.0973	-12.3	7.5
2003.1001	-24.9	7.2
2006.1227	-47.7	7.9
2006.1282	-48.9	8.4
2009.1891	-94.5	6.3
2009.1945	-89.7	6.6
EOT


#  Draw points
#  -----------
psxy << EOT \
-JX -R -Sc0.03 -G0/0/255 -O \
-K >> gorr.ps
EOT


#  Draw points
#  -----------
psxy << EOT \
-JX -R -Sc0.03 -G255/0/0 -O \
-K >> gorr.ps
1993.0355	98.3	9.7
1994.2948	-4.6	11.1
1995.7185	75.8	8.5
1996.8303	46.2	8.1
1997.8843	41.6	7.8
1997.9254	45.2	8.4
1998.0568	49.6	10.1
1998.0596	49.8	8.1
1998.9193	30.1	8.0
1998.9220	10.3	9.3
1998.9576	23.0	7.6
2001.0466	14.0	8.4
2001.0494	2.2	7.3
2003.0973	-12.3	7.5
2003.1001	-24.9	7.2
2006.1227	-47.7	7.9
2006.1282	-48.9	8.4
2009.1891	-94.5	6.3
2009.1945	-89.7	6.6
EOT


#  Draw best fit line
#  ------------------
psxy << EOT \
-JX -R -MS -W3/102/102/255 -O \
-K >> gorr.ps
SBreak	Segment0	Comp1
 1993.0355	  90.4262	Segment0	Comp1
 2009.1945	 -86.3308	Segment0	Comp1
EOT


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

psbasemap -JX6/1.5 \
-R1993/2010/-30/70 \
-G236/232/211 -Y-1.75 -P -K \
-Bf0.25a1/f20a40:"GORR Up (mm)":WeSn  \
-O >> gorr.ps

#  Draw error bars
#  ---------------
psxy << EOT \
-JX -R -G255/0/0 -Ey0.05/0.1/159/159/159 -O \
-K >> gorr.ps
1993.0355	66.4	25.8
1994.2948	-4.4	30.7
1995.7185	-29.0	23.9
1996.8303	13.0	25.0
1997.8843	-9.7	25.8
1997.9254	-27.3	23.8
1998.0568	-16.9	32.6
1998.0596	-4.3	22.7
1998.9193	36.8	23.1
1998.9220	6.0	25.4
1998.9576	-7.6	22.8
2001.0466	-2.1	28.4
2001.0494	6.0	23.6
2003.0973	11.0	23.2
2003.1001	6.8	22.6
2006.1227	-3.0	23.4
2006.1282	18.3	23.9
2009.1891	-23.2	19.2
2009.1945	-18.9	20.0
EOT


#  Draw points
#  -----------
psxy << EOT \
-JX -R -Sc0.03 -G0/0/255 -O \
-K >> gorr.ps
EOT


#  Draw points
#  -----------
psxy << EOT \
-JX -R -Sc0.03 -G255/0/0 -O \
-K >> gorr.ps
1993.0355	66.4	25.8
1994.2948	-4.4	30.7
1995.7185	-29.0	23.9
1996.8303	13.0	25.0
1997.8843	-9.7	25.8
1997.9254	-27.3	23.8
1998.0568	-16.9	32.6
1998.0596	-4.3	22.7
1998.9193	36.8	23.1
1998.9220	6.0	25.4
1998.9576	-7.6	22.8
2001.0466	-2.1	28.4
2001.0494	6.0	23.6
2003.0973	11.0	23.2
2003.1001	6.8	22.6
2006.1227	-3.0	23.4
2006.1282	18.3	23.9
2009.1891	-23.2	19.2
2009.1945	-18.9	20.0
EOT


#  Draw best fit line
#  ------------------
psxy << EOT \
-JX -R -MS -W3/102/102/255 -O \
>> gorr.ps
SBreak	Segment0	Comp2
 1993.0355	  12.2027	Segment0	Comp2
 2009.1945	 -12.1557	Segment0	Comp2
EOT