[chronojump] graph.R instant graph weight abline with lty=3

[Xavier de Blas <xaviblas src gnome org>]

commit 8a25f7b641dcf9463be9bd7357fcac42ee731dd3
Author: Xavier de Blas <xaviblas gmail com>
Date:   Tue Apr 2 18:11:42 2019 +0200

    graph.R instant graph weight abline with lty=3

 encoder/graph.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)
---
diff --git a/encoder/graph.R b/encoder/graph.R
index e0afdf57..1a66589e 100644
--- a/encoder/graph.R
+++ b/encoder/graph.R
@@ -943,7 +943,7 @@ paint <- function(displacement, eccon, xmin, xmax, xrange, yrange, knRanges, pai
         #if(draw & (!superpose || (superpose & highlight)) & isJump) 
         if(draw & (paintMode != "superpose" || (paintMode == "superpose" & highlight)) & 
exercisePercentBodyWeight == 100) {
                 weight=mass*g
-                abline(h=weight,lty=1,col=cols[2]) #body force, lower than this, person in the air (in a 
jump)
+                abline(h=weight,lty=3,col=cols[2]) #body force, lower than this, person in the air (in a 
jump)
                 
text(x=length(force),y=weight,labels=paste(translateToPrint("Weight"),"(N)"),cex=.8,adj=c(.5,0),col=cols[2])
                 
                 #define like this, because if eccentric == 0, length(eccentric) == 1