diff options
| author | Omar Rizwan <omar@omar.website> | 2022-07-22 21:07:56 +0000 |
|---|---|---|
| committer | Omar Rizwan <omar@omar.website> | 2022-07-22 22:35:02 +0000 |
| commit | b4ffce22086b322ee9e114ac74830bdebeb2d93a (patch) | |
| tree | d71b3a5fb3505fb94cf0b68f07a8a36c9f0137a9 /virtual-programs | |
| parent | store WIDTH and HEIGHT in main thread (diff) | |
| download | folk-b4ffce22086b322ee9e114ac74830bdebeb2d93a.tar.gz folk-b4ffce22086b322ee9e114ac74830bdebeb2d93a.zip | |
bring back status indication, recalibrate
Diffstat (limited to 'virtual-programs')
| -rw-r--r-- | virtual-programs/print.folk | 2 | ||||
| -rw-r--r-- | virtual-programs/tags-and-calibration.folk | 11 |
2 files changed, 6 insertions, 7 deletions
diff --git a/virtual-programs/print.folk b/virtual-programs/print.folk index 3076a229..aefb87bd 100644 --- a/virtual-programs/print.folk +++ b/virtual-programs/print.folk @@ -1,8 +1,6 @@ # if {[info hostname] != "folk0"} { return } if {[llength [namespace which tagImageForId]] < 1} { - puts "RUNRUN [namespace which tagImageForId]" - package require critcl source "pi/critclUtils.tcl" diff --git a/virtual-programs/tags-and-calibration.folk b/virtual-programs/tags-and-calibration.folk index 7aea3c98..8c8828eb 100644 --- a/virtual-programs/tags-and-calibration.folk +++ b/virtual-programs/tags-and-calibration.folk @@ -1,10 +1,10 @@ package require math::linearalgebra set points { - {803 508 2830 2000} - {313 68 834 200} - {364 506 834 2000} - {831 174 2830 490} + {880.8 121.2 1420 300} + {909.4 358.4 1420 780} + {459.7 168.2 500 300} + {465.4 378.6 500 780} } for {set i 0} {$i < [llength $points]} {incr i} { lassign [lindex $points $i] x$i y$i u$i v$i @@ -41,6 +41,8 @@ proc cameraToProjector {cameraPoint} { When tag /tag/ has center /c/ size /size/ { lassign [cameraToProjector $c] px py + Claim $tag is a rectangle with x $px y $py width $size height $size + Wish $tag is highlighted green Wish $tag is labelled "tag $tag at $c" } @@ -53,4 +55,3 @@ When tag /tag/ has corners /corners/ { Display::text fb $x $y 10 $tag } } - |