diff options
| author | Omar Rizwan <omar@omar.website> | 2023-07-20 19:14:51 +0000 |
|---|---|---|
| committer | Omar Rizwan <omar@omar.website> | 2023-07-20 19:14:51 +0000 |
| commit | 203c6f5343e082cfa2ae9a47199ebfcd3f882ff6 (patch) | |
| tree | dd4d78d0ef57857a637a08102ea834ff38f3cb6c /virtual-programs | |
| parent | camera: Use forever (diff) | |
| download | folk-203c6f5343e082cfa2ae9a47199ebfcd3f882ff6.tar.gz folk-203c6f5343e082cfa2ae9a47199ebfcd3f882ff6.zip | |
Fix sharing behavior of AprilTag detector
Diffstat (limited to 'virtual-programs')
| -rw-r--r-- | virtual-programs/apriltags.folk | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/virtual-programs/apriltags.folk b/virtual-programs/apriltags.folk index 461d365a..75622fcd 100644 --- a/virtual-programs/apriltags.folk +++ b/virtual-programs/apriltags.folk @@ -2,8 +2,22 @@ On process { source pi/AprilTags.tcl AprilTags::init + # TODO: Clean this up. We retract these so that we don't bounce + # statements back to the main Folk process that it sends us. + Retract /anyone/ wishes $::thisProcess shares all wishes + Retract /anyone/ wishes $::thisProcess shares all claims Wish $::thisProcess receives statements like \ [list /someone/ claims the camera frame is /grayFrame/] + Wish $::thisProcess shares statements like \ + [list /someone/ wishes /process/ receives statements like /pattern/] + Wish $::thisProcess shares statements like \ + [list /someone/ claims tag /tag/ has center /center/ size /size/] + Wish $::thisProcess shares statements like \ + [list /someone/ claims tag /tag/ has corners /corners/] + Wish $::thisProcess shares statements like \ + [list /someone/ claims the AprilTag time is /aprilTime/] + Wish $::thisProcess shares statements like \ + [list /someone/ claims $::thisProcess has pid /pid/] When the camera frame is /grayFrame/ { set aprilTime [time { |