[chronojump] shown curvesPlot arrows. was broken since ms -> s

[Xavier de Blas <xaviblas src gnome org>]

commit 39a4cbdef6343a175e34a196d47eace9c38cece0
Author: Xavier de Blas <xaviblas gmail com>
Date:   Sat Mar 2 19:01:03 2013 +0100

    shown curvesPlot arrows. was broken since ms -> s

 encoder/graph.R |    7 ++++---
 1 files changed, 4 insertions(+), 3 deletions(-)
---
diff --git a/encoder/graph.R b/encoder/graph.R
index 2b7be5e..c54549a 100644
--- a/encoder/graph.R
+++ b/encoder/graph.R
@@ -1038,9 +1038,10 @@ doProcess <- function(options) {
                                                adjVert = 1
                                        }
                                }
-                               text(x=(curves[i,1]+curves[i,2])/2,y=myY,labels=myLabel, 
adj=c(0.5,adjVert),cex=1,col="blue")
-                               arrows(x0=curves[i,1],y0=myY,x1=curves[i,2],y1=myY,
-                                      col="blue",code=3,length=0.1)
+                               text(x=((curves[i,1]+curves[i,2])/2/1000),      #/1000 ms -> s
+                                    y=myY,labels=myLabel, adj=c(0.5,adjVert),cex=1,col="blue")
+                               arrows(x0=(curves[i,1]/1000),y0=myY,x1=(curves[i,2]/1000),      #/1000 ms -> s
+                                      y1=myY, col="blue",code=3,length=0.1)
                        }
                }
        }