[chronojump] Fixed bug of today commits

[Xavier de Blas <xaviblas src gnome org>]

commit e812f8c22f07dbd228f801323dadbf86b1490dff
Author: Xavier de Blas <xaviblas gmail com>
Date:   Tue Apr 2 19:36:16 2019 +0200

    Fixed bug of today commits

 encoder/graph.R | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)
---
diff --git a/encoder/graph.R b/encoder/graph.R
index a7d6f901..6f0087f4 100644
--- a/encoder/graph.R
+++ b/encoder/graph.R
@@ -830,7 +830,7 @@ paint <- function(displacement, eccon, xmin, xmax, xrange, yrange, knRanges, pai
         #---------------- speed stuff ------------>
 
        if(draw && showSpeed)
-               axisLineRight = paintMeansArrowsAxis(speed$y, paintMode == "superpose", eccon, isPropulsive, 
landing,
+               axisLineRight = paintMeansArrowsAxis(speed$y, paintMode == "superpose", eccon, isPropulsive, 
startX, landing,
                                     showAxes, axisLineRight, concentric, propulsiveEnd, eccentric, colSpeed, 
ltySpeed, labelsXeXc)
         
         if(draw) {
@@ -870,7 +870,7 @@ paint <- function(displacement, eccon, xmin, xmax, xrange, yrange, knRanges, pai
                 if(showAxes & showAccel) {
                         #axis(4, col=colAccel, lty=ltyAccel, line=axisLineRight, lwd=1, padj=-.5)
                         #axisLineRight = axisLineRight +2
-                       axisLineRight = paintMeansArrowsAxis(accel$y, paintMode == "superpose", eccon, 
isPropulsive, landing,
+                       axisLineRight = paintMeansArrowsAxis(accel$y, paintMode == "superpose", eccon, 
isPropulsive, startX, landing,
                                                             showAxes, axisLineRight, concentric, 
propulsiveEnd, eccentric, colAccel, ltyAccel, labelsXeXc)
                 }
                 #mtext(text=paste("max accel:",round(max(accel$y),3)),side=3,at=which(accel$y == 
max(accel$y)),cex=.8,col=cols[1],line=2)
@@ -919,7 +919,7 @@ paint <- function(displacement, eccon, xmin, xmax, xrange, yrange, knRanges, pai
      #           if(showAxes) {
                         #axis(4, col=colForce, lty=ltyForce, line=axisLineRight, lwd=1, padj=-.5)
                         #axisLineRight = axisLineRight +2
-                       axisLineRight = paintMeansArrowsAxis(force, paintMode == "superpose", eccon, 
isPropulsive, landing,
+                       axisLineRight = paintMeansArrowsAxis(force, paintMode == "superpose", eccon, 
isPropulsive, startX, landing,
                                                             showAxes, axisLineRight, concentric, 
propulsiveEnd, eccentric, colForce, ltyForce, labelsXeXc)
       #          }
                 
@@ -1029,7 +1029,7 @@ paint <- function(displacement, eccon, xmin, xmax, xrange, yrange, knRanges, pai
                         plot(dynamics$powerBody, col="orangered3", xlab="", ylab="", xlim=xlim, ylim=ylim, 
type="p", pch=3, axes=F);
                 }
                 
-               axisLineRight = paintMeansArrowsAxis(power, paintMode == "superpose", eccon, isPropulsive, 
landing,
+               axisLineRight = paintMeansArrowsAxis(power, paintMode == "superpose", eccon, isPropulsive, 
startX, landing,
                                     showAxes, axisLineRight, concentric, propulsiveEnd, eccentric, colPower, 
ltyPower, labelsXeXc)
         }
         
@@ -1098,7 +1098,7 @@ paint <- function(displacement, eccon, xmin, xmax, xrange, yrange, knRanges, pai
         }
 }
 
-paintMeansArrowsAxis <- function(vect, superpose, eccon, isPropulsive, landing,
+paintMeansArrowsAxis <- function(vect, superpose, eccon, isPropulsive, startX, landing,
                                 showAxes, axisLineRight, concentric, propulsiveEnd, eccentric, col, lty, 
labelsXeXc)
 {
        meanC = mean(vect[min(concentric):max(concentric)])