From b4ffce22086b322ee9e114ac74830bdebeb2d93a Mon Sep 17 00:00:00 2001 From: Omar Rizwan Date: Fri, 22 Jul 2022 17:07:56 -0400 Subject: bring back status indication, recalibrate --- virtual-programs/print.folk | 2 -- virtual-programs/tags-and-calibration.folk | 11 ++++++----- 2 files changed, 6 insertions(+), 7 deletions(-) (limited to 'virtual-programs') 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 } } - -- cgit v1.2.3