[chronojump] Legends using unicode characters

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

commit 647a67235fad8c4ab88493f217484246951687be
Author: Xavier Padullés <x padulles gmail com>
Date:   Mon Dec 9 17:42:00 2019 +0100

    Legends using unicode characters

 r-scripts/maximumIsometricForce.R | 3 +--
 r-scripts/sprintEncoder.R         | 7 +++++--
 r-scripts/sprintPhotocells.R      | 7 ++++---
 3 files changed, 10 insertions(+), 7 deletions(-)
---
diff --git a/r-scripts/maximumIsometricForce.R b/r-scripts/maximumIsometricForce.R
index 3d850894..e3efe5c7 100644
--- a/r-scripts/maximumIsometricForce.R
+++ b/r-scripts/maximumIsometricForce.R
@@ -410,9 +410,8 @@ drawDynamicsFromLoadCell <- function(
         
         legendText = c(
                       paste("Fmax =", round(dynamics$fmax.fitted, digits = 2), "N"),
-                      #paste("K = ", round(dynamics$k.fitted, digits = 2),"s^-1"),
                       paste("K = ", round(dynamics$k.fitted, digits = 2),"s\u207B\u00B9"),
-                      paste("tau = ", round(dynamics$tau.fitted, digits = 2),"s")
+                      paste("\u03C4 = ", round(dynamics$tau.fitted, digits = 2),"s")
                       )
         legendColor = c("blue", "blue", "blue")
         
diff --git a/r-scripts/sprintEncoder.R b/r-scripts/sprintEncoder.R
index a4ea5b5e..d744fde5 100644
--- a/r-scripts/sprintEncoder.R
+++ b/r-scripts/sprintEncoder.R
@@ -438,10 +438,13 @@ plotSprintFromEncoder <- function(sprintRawDynamics, sprintFittedDynamics, title
         legendText = c(legendText, paste("Vmax.fitted =", round(sprintFittedDynamics$Vmax.fitted, digits = 
2), "m/s"))
         legendColor = c(legendColor, "black")
         
-        legendText = c(legendText, paste("K =", round(sprintFittedDynamics$K.fitted, digits = 2), "s⁻¹"))
+        legendText = c(legendText, paste("K =", round(sprintFittedDynamics$K.fitted, digits = 2), 
"s\u207B\u00B9"))
         legendColor = c(legendColor, "black")
         
-        legendText = c(legendText, paste("Amax.fitted =", round(max(sprintFittedDynamics$amax.fitted), 
digits = 2), "m/s^2"))
+        legendText = c(legendText, paste("\u03C4 =", round(1/sprintFittedDynamics$K.fitted, digits = 2), 
"s"))
+        legendColor = c(legendColor, "black")
+        
+        legendText = c(legendText, paste("Amax.fitted =", round(max(sprintFittedDynamics$amax.fitted), 
digits = 2), "m/s\u00b2"))
         legendColor = c(legendColor, "magenta")
         
         legendText = c(legendText, paste("Fmax.fitted =", round(sprintFittedDynamics$fmax.fitted, digits = 
2), "N"))
diff --git a/r-scripts/sprintPhotocells.R b/r-scripts/sprintPhotocells.R
index 1f50bee7..08a590df 100644
--- a/r-scripts/sprintPhotocells.R
+++ b/r-scripts/sprintPhotocells.R
@@ -185,10 +185,11 @@ drawSprintFromPhotocells <- function(sprintDynamics, splitTimes, positions, titl
         legend (x = time[length(time)], y = sprintDynamics$pmax.fitted / 2,
                 xjust = 1, yjust = 0.5, cex = 1,
                 legend = c(paste("K =", round(sprintDynamics$K.fitted, digits = 2)),
+                           paste("\u03C4 =", round(1/sprintDynamics$K.fitted, digits = 2), "s"),
                            paste("Vmax =", round(sprintDynamics$Vmax.fitted, digits = 2), "m/s"),
-                           paste("Amax =", round(sprintDynamics$amax.fitted, digits = 2), "m/s²"),
-                           paste("fmax =", round(sprintDynamics$fmax.rel.fitted, digits = 2), "N/Kg"),
-                           paste("pmax =", round(sprintDynamics$pmax.rel.fitted, digits = 2), "W/Kg")),
+                           paste("Amax =", round(sprintDynamics$amax.fitted, digits = 2), "m/s\u00b2"),
+                           paste("fmax =", round(sprintDynamics$fmax.rel.fitted, digits = 2), "N/kg"),
+                           paste("pmax =", round(sprintDynamics$pmax.rel.fitted, digits = 2), "W/kg")),
                 text.col = c("black", "black", "magenta", "blue", "red"))
         
         exportSprintDynamics(sprintDynamics)