[chronojump] Ensure sprintEncoder model barplot bars are col="#bebebe"

[Xavier de Blas <xaviblas src gnome org>]

commit c8546c4c5b637777708921db4faf2d4bc5d1e8da
Author: Xavier de Blas <xaviblas gmail com>
Date:   Tue May 10 11:28:30 2022 +0200

    Ensure sprintEncoder model barplot bars are col="#bebebe"

 r-scripts/sprintEncoder.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)
---
diff --git a/r-scripts/sprintEncoder.R b/r-scripts/sprintEncoder.R
index f4d4939d3..e29d21ab5 100644
--- a/r-scripts/sprintEncoder.R
+++ b/r-scripts/sprintEncoder.R
@@ -368,7 +368,7 @@ plotSprintFromEncoder <- function(sprintRawDynamics, sprintFittedDynamics,
                 barplot(height = sprintRawDynamics$meanSpeed, width = 
diff(c(0,sprintRawDynamics$splitTime)), space = 0,
                         ylim = ylimits, xlim = xlimits,
                         xlab = "Time (s)", ylab = "Speed (m/s)",
-                        yaxs = "i", xaxs = "i")
+                        yaxs = "i", xaxs = "i", col="#bebebe")
                 mtext(title, line = 2.5, cex = 1.5)
                 mtext(subtitle, line = 1)
                 lines(sprintRawDynamics$time[sprintRawDynamics$startSample:sprintRawDynamics$endSample],