#! /usr/bin/octave

load 20080504.dat
[time, x, y, z, dt, dx, dy, dz, ds, hr, dist] = forerunner(data_20080504);
maxx = max(time./60);
top = max(hr)*1.1;
__gnuplot_set__ term png
__gnuplot_set__ output "20080504_heartrate.png"
#__gnuplot_set__ multiplot
__gnuplot_set__ title "Long Island Marathon, May 4: Heartrate (beats/min)"
__gnuplot_set__ xlabel "Time in Minutes"
__gnuplot_set__ ylabel "Heartrate (beats/min)"
#__gnuplot_set__ ydata time
#__gnuplot_set__ timefmt "%S"
#__gnuplot_set__ format y "%M:%S"
__gnuplot_set__ yrange [0:top];
__gnuplot_set__ xrange [0:maxx];
__gnuplot_set__ grid
x=0:1:maxx;
Z = but_zones(164);
#__gnuplot_set__ label "Heartrate";
plot (time/60, hr, ";Heartrate;", x, 0*x+Z(3), ";Top of Zone 2;", x, 0*x+Z(4), ";Bottom of Zone 4;")
#__gnuplot_set__ nomultiplot