[chronojump] Encoder: Fixed paint non-propulsive means



commit ed74269102bd75e6daa204f5dbac14e4abf25d8a
Author: Xavier de Blas <xaviblas gmail com>
Date:   Mon Feb 25 19:57:20 2013 +0100

    Encoder: Fixed paint non-propulsive means

 encoder/graph.R |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)
---
diff --git a/encoder/graph.R b/encoder/graph.R
index f881396..2296612 100644
--- a/encoder/graph.R
+++ b/encoder/graph.R
@@ -365,7 +365,7 @@ paint <- function(rawdata, eccon, xmin, xmax, yrange, knRanges, superpose, highl
 
        if(draw) {
                #propulsive phase ends when accel is -9.8
-               if(length(which(accel$y[concentric]<=-g)) > 0) {
+               if(length(which(accel$y[concentric]<=-g)) > 0 & AnalysisOptions == "p") {
                        propulsiveEnds = min(which(accel$y[concentric]<=-g))
                } else {
                        propulsiveEnds=max(concentric)


[Date Prev][Date Next]   [Thread Prev][Thread Next]   [Thread Index] [Date Index] [Author Index]