diff options
| author | Omar Rizwan <omar@omar.website> | 2023-09-08 22:30:02 +0000 |
|---|---|---|
| committer | Omar Rizwan <omar@omar.website> | 2023-09-08 22:30:02 +0000 |
| commit | 4af0fc0e8aa6d89912e0516626fcd7c995b4abda (patch) | |
| tree | 80df9a2ed12b3235af67dd427dcf31fd3de0773e /virtual-programs/camera.folk | |
| parent | c: Scope getters so fields w/ same name across structs don't collide (diff) | |
| parent | Some peering cleanup (receive before Step); build in FPS counting (diff) | |
| download | folk-4af0fc0e8aa6d89912e0516626fcd7c995b4abda.tar.gz folk-4af0fc0e8aa6d89912e0516626fcd7c995b4abda.zip | |
Merge branch 'main' into osnr/vulkan-display
Diffstat (limited to 'virtual-programs/camera.folk')
| -rw-r--r-- | virtual-programs/camera.folk | 19 |
1 files changed, 11 insertions, 8 deletions
diff --git a/virtual-programs/camera.folk b/virtual-programs/camera.folk index d9dab784..0a95c8f0 100644 --- a/virtual-programs/camera.folk +++ b/virtual-programs/camera.folk @@ -18,15 +18,18 @@ On process { source pi/Camera.tcl Camera::init $width $height - puts "Camera tid: [getTid]" - - forever { - set cameraTime [time { - set grayFrame [Camera::grayFrame] - }] + puts "Camera tid: [getTid] booting at [clock milliseconds]" + + When $::thisProcess has step count /c/ { + set grayFrame [Camera::grayFrame] Commit { - Claim the camera time is $cameraTime - Claim the camera frame is $grayFrame + Claim the camera time is $::stepTime + 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 +} |