[chronojump] Encoder capture curves. speed on green

[Xavier de Blas <xaviblas src gnome org>]

commit 11543c97f56b2123d6f8ff2e4e006e55309e7b34
Author: Xavier de Blas <xaviblas gmail com>
Date:   Mon Nov 4 16:35:02 2013 +0100

    Encoder capture curves. speed on green

 encoder/graph.R |    4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)
---
diff --git a/encoder/graph.R b/encoder/graph.R
index cb96cea..53b7f8f 100644
--- a/encoder/graph.R
+++ b/encoder/graph.R
@@ -1795,12 +1795,12 @@ doProcess <- function(options) {
                        #plot speed
                        par(new=T)      
                        speed <- smooth.spline( 1:length(rawdata), rawdata, spar=smoothingAll)
-                       plot((1:length(rawdata))/1000, speed$y, col="gray",
+                       plot((1:length(rawdata))/1000, speed$y, col="green2",
                                type="l", 
                                xlim=c(1,length(rawdata))/1000, #ms -> s
                                #ylim=c(-.25,.25),              #to test speed at small changes
                                xlab="",ylab="",axes=F)
-                       mtext("speed ",side=4,adj=1,line=-1,col="gray")
+                       mtext("speed ",side=4,adj=1,line=-1,col="green2")
                        abline(h=0,lty=2,col="gray")
                }
        }