[chronojump] Encoder graph single ec better labels for ecc/con time values



commit 2b3a268970abb36a3e4e5d6c94fe3dfabf1138d3
Author: Xavier de Blas <xaviblas gmail com>
Date:   Mon Nov 4 13:13:43 2019 +0100

    Encoder graph single ec better labels for ecc/con time values

 encoder/graph.R | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)
---
diff --git a/encoder/graph.R b/encoder/graph.R
index 33f149d1..122aabd7 100644
--- a/encoder/graph.R
+++ b/encoder/graph.R
@@ -696,11 +696,11 @@ paint <- function(displacement, eccon, xmin, xmax, xrange, yrange, knRanges, pai
                         abline(v=min(concentric),col=cols[1])
                         #mtext(text=paste(max(eccentric)," 
",sep=""),side=1,at=max(eccentric),adj=1,cex=.8,col=cols[1])
                         #mtext(text=paste(" 
",min(concentric),sep=""),side=1,at=min(concentric),adj=0,cex=.8,col=cols[1])
-                        
-                        mtext(text=paste(round(min(isometric),1), " ",sep=""), 
-                              side=1,at=min(isometric),adj=1,cex=.8,col=cols[1])
-                        mtext(text=paste(" ", round(max(isometric),1),sep=""), 
-                              side=1,at=max(isometric),adj=0,cex=.8,col=cols[1])
+
+                       mtext(text=paste(round(max(eccentric),1), " ",sep=""),
+                              side=1,at=max(eccentric),adj=1,cex=.8,col=cols[1])
+                        mtext(text=paste(" ", round(min(concentric),1),sep=""),
+                              side=1,at=min(concentric),adj=0,cex=.8,col=cols[1])
                         
                         #don't need to show eccentric and concentric. It's pretty clear
                         #mtext(text=paste(translateToPrint("eccentric")," 
",sep=""),side=3,at=max(eccentric),cex=.8,adj=1,col=cols[1],line=.5)


[Date Prev][Date Next]   [Thread Prev][Thread Next]   [Thread Index] [Date Index] [Author Index]