[chronojump] MIF. Tau texts in blue

[Xavier Padullés <xpadulles src gnome org>]

commit 60fef0ffc9d598f89aa9490163b769960bacfd88
Author: Xavier Padullés <x padulles gmail com>
Date:   Fri Dec 15 14:14:16 2017 +0100

    MIF. Tau texts in blue

 r-scripts/maximumIsometricForce.R |    4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)
---
diff --git a/r-scripts/maximumIsometricForce.R b/r-scripts/maximumIsometricForce.R
index 29c2941..7787ea2 100644
--- a/r-scripts/maximumIsometricForce.R
+++ b/r-scripts/maximumIsometricForce.R
@@ -324,7 +324,7 @@ drawDynamicsFromLoadCell <- function(
         arrows(x0 = 0, y0 = dynamics$f0.raw,
                x1 = dynamics$tau.fitted, y1 = dynamics$f0.raw)
         text(x = (dynamics$tau.fitted / 2), y = dynamics$f0.raw,
-              labels = paste("τ =", round(dynamics$tau.fitted, digits = 2), "s"), pos = 3, cex = 1.5)
+              labels = paste("τ =", round(dynamics$tau.fitted, digits = 2), "s"), pos = 3, cex = 1.5, col = 
"blue")
         # text(x = (dynamics$tau.fitted / 2), y = -20,
         #      labels = paste("τ =", round(dynamics$tau.fitted, digits = 2), "s"), pos = 3, cex = 1.5, xpd = 
TRUE)
         
@@ -332,7 +332,7 @@ drawDynamicsFromLoadCell <- function(
                x1 = 0, y1 = dynamics$fmax.fitted*0.6321206)
         
         text(x = 0, y = dynamics$fmax.fitted*0.6321206 / 2,
-              labels = "63% of fmax", pos = 2, cex = 1.5, srt = 90)
+              labels = "63% of fmax", pos = 2, cex = 1.5, srt = 90, col = "blue")
         
         #Plotting fmax.raw
         text( x = dynamics$tfmax.raw, y = dynamics$fmax.raw,