[chronojump] Added 2nd method to calcule jump height in paint

[Xavier de Blas <xaviblas src gnome org>]

commit 9c2075ca1f8d83dd609f212f04e6c74f70d71d0d
Author: Xavier de Blas <xaviblas gmail com>
Date:   Thu Mar 27 14:23:11 2014 +0100

    Added 2nd method to calcule jump height in paint

 encoder/graph.R |   10 +++++++++-
 1 files changed, 9 insertions(+), 1 deletions(-)
---
diff --git a/encoder/graph.R b/encoder/graph.R
index 26a9429..284c447 100644
--- a/encoder/graph.R
+++ b/encoder/graph.R
@@ -1060,6 +1060,7 @@ paint <- function(displacement, eccon, xmin, xmax, yrange, knRanges, superpose,
                abline(h=weight,lty=1,col=cols[2]) #body force, lower than this, person in the air (in a jump)
                #takeoff = max(which(force>=weight))
                takeoff = min(which(force[concentric]<=weight)) + length(eccentric) + length(isometric)
+               takeoffFisZero = min(which(force[concentric]<=0)) + length(eccentric) + length(isometric)
                abline(v=takeoff,lty=1,col=cols[2]) 
                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])
@@ -1073,12 +1074,19 @@ paint <- function(displacement, eccon, xmin, xmax, yrange, knRanges, superpose,
                        mtext(text=" land ",side=3,at=landing,cex=.8,adj=0,col=cols[2])
                }
                
-               mtext(text=paste("jump height =", 
+               mtext(text=paste("jump height (F<w) =", 
                                 (position[concentric[length(concentric)]] - 
                                  position[concentric[(takeoff - length(eccentric) - length(isometric))]])/10,
                                 "cm",sep=" "),
                      side=3, at=( takeoff + (length(eccentric)+length(concentric)) )/2,
                      cex=.8,adj=0.5,col=cols[2])
+               
+               mtext(text=paste("jump height (F==0) =", 
+                                (position[concentric[length(concentric)]] - 
+                                 position[concentric[(takeoffFisZero - length(eccentric) - 
length(isometric))]])/10,
+                                "cm",sep=" "),
+                     side=3, at=( takeoffFisZero + (length(eccentric)+length(concentric)) )/2, line=.5, 
+                     cex=.8,adj=0.5,col=cols[2])
 
        }
        #forceToBodyMass <- force - weight