From 1b887d8b53637e9c6a85a901e4e4ea3294bdddf2 Mon Sep 17 00:00:00 2001
From: Omar Rizwan <omar@omar.website>
Date: Fri, 11 Aug 2023 16:50:38 -0400
Subject: Add timestamps to camera frames

---
 virtual-programs/camera.folk | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

(limited to 'virtual-programs/camera.folk')

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
+}
-- 
cgit v1.2.3


From f42902b4cf694a4ec3f4f345699384ab53e32ece Mon Sep 17 00:00:00 2001
From: Omar Rizwan <omar@omar.website>
Date: Tue, 15 Aug 2023 17:14:19 -0400
Subject: WIP: Rewrite peering to use shm instead of websockets

Huge performance increases, but crashy.
---
 virtual-programs/camera.folk | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'virtual-programs/camera.folk')

diff --git a/virtual-programs/camera.folk b/virtual-programs/camera.folk
index 4f59a576..225a5880 100644
--- a/virtual-programs/camera.folk
+++ b/virtual-programs/camera.folk
@@ -20,7 +20,7 @@ On process {
 
     puts "Camera tid: [getTid] booting at [clock milliseconds]"
 
-    forever {
+    while true {
         set cameraTime [time {
             set grayFrame [Camera::grayFrame]
         }]
@@ -28,6 +28,7 @@ On process {
             Claim the camera time is $cameraTime
             Claim the camera frame is $grayFrame at [clock milliseconds]
         }
+        Step
     }
 }
 
-- 
cgit v1.2.3


From 6b426aa5853d8aa4d389a36f076a8cf416a3c91c Mon Sep 17 00:00:00 2001
From: Omar Rizwan <omar@omar.website>
Date: Wed, 6 Sep 2023 02:11:46 -0400
Subject: Some peering cleanup (receive before Step); build in FPS counting

---
 virtual-programs/camera.folk | 9 +++------
 1 file changed, 3 insertions(+), 6 deletions(-)

(limited to 'virtual-programs/camera.folk')

diff --git a/virtual-programs/camera.folk b/virtual-programs/camera.folk
index 225a5880..0a95c8f0 100644
--- a/virtual-programs/camera.folk
+++ b/virtual-programs/camera.folk
@@ -20,15 +20,12 @@ On process {
 
     puts "Camera tid: [getTid] booting at [clock milliseconds]"
 
-    while true {
-        set cameraTime [time {
-            set grayFrame [Camera::grayFrame]
-        }]
+    When $::thisProcess has step count /c/ {
+        set grayFrame [Camera::grayFrame]
         Commit {
-            Claim the camera time is $cameraTime
+            Claim the camera time is $::stepTime
             Claim the camera frame is $grayFrame at [clock milliseconds]
         }
-        Step
     }
 }
 
-- 
cgit v1.2.3