[chronojump] Encoder: jump height is plotted in paint

[Xavier de Blas <xaviblas src gnome org>]

commit 7df4e653ec6ceece88c3fd5a9990b30c657b8ab7
Author: Xavier de Blas <xaviblas gmail com>
Date:   Wed Mar 19 19:35:18 2014 +0100

    Encoder: jump height is plotted in paint

 encoder/graph.R |    8 ++++++++
 1 files changed, 8 insertions(+), 0 deletions(-)
---
diff --git a/encoder/graph.R b/encoder/graph.R
index 4c36641..6a8850a 100644
--- a/encoder/graph.R
+++ b/encoder/graph.R
@@ -1233,6 +1233,7 @@ paint <- function(displacement, eccon, xmin, xmax, yrange, knRanges, superpose,
                mtext(text="land ",side=3,at=takeoff,cex=.8,adj=1,col=cols[2])
                mtext(text=" air ",side=3,at=takeoff,cex=.8,adj=0,col=cols[2])
                text(x=length(force),y=weight,labels="Weight (N)",cex=.8,adj=c(.5,0),col=cols[2])
+
                if(eccon=="ec") {
                        #landing = min(which(force>=weight))
                        landing = max(which(force[eccentric]<=weight))
@@ -1240,6 +1241,13 @@ paint <- function(displacement, eccon, xmin, xmax, yrange, knRanges, superpose,
                        mtext(text="air ",side=3,at=landing,cex=.8,adj=1,col=cols[2])
                        mtext(text=" land ",side=3,at=landing,cex=.8,adj=0,col=cols[2])
                }
+               
+               mtext(text=paste("jump height =", 
+                                (position[concentric[length(concentric)]] - position[concentric[(takeoff - 
length(eccentric))]])/10,
+                                "cm",sep=" "),
+                     side=3, at=( takeoff + (length(eccentric)+length(concentric)) )/2,
+                     cex=.8,adj=0.5,col=cols[2])
+
        }
        #forceToBodyMass <- force - weight
        #force.ext=extrema(forceToBodyMass)