Add timestamps to camera frames

1 files changed, 8 insertions, 3 deletions

diff --git a/virtual-programs/camera.folk b/virtual-programs/camera.folk
index d9dab784..4f59a576 100644
--- a/virtual-programs/camera.folk
+++ b/virtual-programs/camera.folk
@@ -18,15 +18,20 @@ On process {
     source pi/Camera.tcl
     Camera::init $width $height
 
-    puts "Camera tid: [getTid]"
-    
+    puts "Camera tid: [getTid] booting at [clock milliseconds]"
+
     forever {
         set cameraTime [time {
             set grayFrame [Camera::grayFrame]
         }]
         Commit {
             Claim the camera time is $cameraTime
-            Claim the camera frame is $grayFrame
+            Claim the camera frame is $grayFrame at [clock milliseconds]
         }
     }
 }
+
+# For backward compatibility.
+When the camera frame is /grayFrame/ at /timestamp/ {
+    Claim the camera frame is $grayFrame
+}