diff options
Diffstat (limited to 'virtual-programs')
| -rw-r--r-- | virtual-programs/tags-and-calibration.folk | 16 |
1 files changed, 4 insertions, 12 deletions
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/ { |