[chronojump] Encoder: Better display of triggers on analyze graphs

[Xavier de Blas <xaviblas src gnome org>]

commit 546550b5bf59076431b4019434ac774ba1852666
Author: Xavier de Blas <xaviblas gmail com>
Date:   Thu Feb 15 23:50:11 2018 +0100

    Encoder: Better display of triggers on analyze graphs

 encoder/graph.R |    8 ++++----
 1 files changed, 4 insertions(+), 4 deletions(-)
---
diff --git a/encoder/graph.R b/encoder/graph.R
index 27a36bf..4762c7f 100644
--- a/encoder/graph.R
+++ b/encoder/graph.R
@@ -588,7 +588,7 @@ paint <- function(displacement, eccon, xmin, xmax, yrange, knRanges, superpose,
                {
                        print("triggersOnList-xmin")
                        print(triggersOnList-xmin)
-                       abline(v=(triggersOnList-xmin), col="yellow", lwd=2)
+                       abline(v=(triggersOnList-xmin), col="yellow3", lwd=2, lty=2)
                        #mtext(side=3, at=(triggersOnList-xmin), text=(triggersOnList-xmin), cex=.8)
                }
                 
@@ -1154,9 +1154,9 @@ paintVariablesLegend <- function(showSpeed, showAccel, showForce, showPower, sho
         }
         if(showTriggers) {
                 legendText=c(legendText, translateToPrint("Triggers"))
-                lty=c(lty,1)
+                lty=c(lty,2)
                 lwd=c(lwd,2)
-                colors=c(colors,"yellow")
+                colors=c(colors,"yellow3")
                 ncol=ncol+1
         }
         
@@ -3065,7 +3065,7 @@ doProcess <- function(options)
                         }
 
                        if(op$TriggersOnList != "" && op$TriggersOnList != -1)
-                               abline(v=op$TriggersOnList, col="yellow", lwd=2);
+                               abline(v=op$TriggersOnList, col="yellow3", lwd=2, lty=2);
 
                         #showSpeed only on gravitatory until speed is fixed on this experimental graph
                         if (showSpeed && ! isInertial(op$EncoderConfigurationName)) {