[chronojump] Adding axes to superpose

[Xavier Padullés <xpadulles src gnome org>]

commit dbf1be165636283d0771611b690ed3daf395d360
Author: Xavier Padullés <x padulles gmail com>
Date:   Mon Apr 30 15:23:10 2018 +0200

    Adding axes to superpose

 encoder/graph.R |    6 +++---
 1 files changed, 3 insertions(+), 3 deletions(-)
---
diff --git a/encoder/graph.R b/encoder/graph.R
index f64784a..a7c1499 100644
--- a/encoder/graph.R
+++ b/encoder/graph.R
@@ -902,7 +902,7 @@ paint <- function(displacement, eccon, xmin, xmax, xrange, yrange, knRanges, pai
                 }
 
                 #show propulsive stuff if line if differentiation is relevant (propulsivePhase ends before 
the end of the movement)
-                if(isPropulsive & propulsiveEnd < length(displacement)) {
+                if(showAccel && isPropulsive & propulsiveEnd < length(displacement)) {
                         #propulsive stuff
                         segments(0,-9.81,length(accel$y),-9.81,lty=3,col="magenta")
                         #abline(v=propulsiveEnd,lty=3,col="magenta")
@@ -3448,8 +3448,8 @@ doProcess <- function(options)
                              TRUE,     #draw
                              op$Width,
                              FALSE,    #showLabels
-                             TRUE,     #marShrink
-                             FALSE,    #showAxes
+                             FALSE,    #marShrink
+                             TRUE,     #showAxes
                              (i==1),   #legend
                              op$Analysis, isPropulsive, inertialType, repOp$exPercentBodyWeight,
                               (op$AnalysisVariables[1] == "Position"), #show position