[chronojump] Fixed ec length on propulsive paint

[Xavier de Blas <xaviblas src gnome org>]

commit b1e1510555ad022dd8aa3cb0a4f91df4092fa7af
Author: Xavier de Blas <xaviblas gmail com>
Date:   Tue Apr 15 00:36:33 2014 +0200

    Fixed ec length on propulsive paint

 encoder/graph.R |    4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)
---
diff --git a/encoder/graph.R b/encoder/graph.R
index 2b17d44..f16594e 100644
--- a/encoder/graph.R
+++ b/encoder/graph.R
@@ -915,11 +915,11 @@ paint <- function(displacement, eccon, xmin, xmax, yrange, knRanges, superpose,
                #TODO: con-ecc is opposite
                if(isometricUse) {
                        eccentric=1:min(speed.ext$cross[crossMinRow,1])
-                       isometric=c(min(speed.ext$cross[crossMinRow,1]+1), 
max(speed.ext$cross[crossMinRow,2]))
+                       isometric=min(speed.ext$cross[crossMinRow,1]+1):max(speed.ext$cross[crossMinRow,2])
                        concentric=max(speed.ext$cross[crossMinRow,2]+1):length(displacement)
                } else {
                        eccentric=1:mean(speed.ext$cross[crossMinRow,1])
-                       #isometric=c(mean(speed.ext$cross[crossMinRow,1]+1), 
mean(speed.ext$cross[crossMinRow,2]))
+                       #isometric=mean(speed.ext$cross[crossMinRow,1]+1);mean(speed.ext$cross[crossMinRow,2])
                        concentric=mean(speed.ext$cross[crossMinRow,2]+1):length(displacement)
                }