From f069f0660ffc4f8f170ae7e9c2f72a3dd454783d Mon Sep 17 00:00:00 2001 From: Omar Rizwan Date: Sun, 30 Oct 2022 16:07:50 -0400 Subject: New calibration --- virtual-programs/tags-and-calibration.folk | 16 ++++------------ 1 file changed, 4 insertions(+), 12 deletions(-) (limited to 'virtual-programs') diff --git a/virtual-programs/tags-and-calibration.folk b/virtual-programs/tags-and-calibration.folk index 0281d7ab..0642f741 100644 --- a/virtual-programs/tags-and-calibration.folk +++ b/virtual-programs/tags-and-calibration.folk @@ -3,19 +3,12 @@ if {[info hostname] != "folk0"} { return } package require math::linearalgebra # camera (tag) point -> projection point -# calibration for Interact -set points { - {880.8 121.2 1420 300} - {909.4 358.4 1420 780} - {459.7 168.2 500 300} - {465.4 378.6 500 780} -} # calibration for Hex set points { - {218.5 77.5 500 300} - {274.3 470.8 500 1860} - {911.9 474.5 3340 1860} - {965.4 113.3 3340 300} + {622 404 1706 1051} + {624 650 1661 51} + {1031 669 8 44} + {1024 403 13 1146} } for {set i 0} {$i < [llength $points]} {incr i} { lassign [lindex $points $i] x$i y$i u$i v$i @@ -67,7 +60,6 @@ When tag /tag/ is a tag { Wish $tag is highlighted green Claim $tag has program code $code - # Wish $tag is labelled "tag $tag at $c" } When tag /tag/ has corners /corners/ { -- cgit v1.2.3