diff options
| author | Omar Rizwan <omar@omar.website> | 2022-10-30 20:07:50 +0000 |
|---|---|---|
| committer | Omar Rizwan <omar@omar.website> | 2022-10-30 20:07:50 +0000 |
| commit | f069f0660ffc4f8f170ae7e9c2f72a3dd454783d (patch) | |
| tree | 52f544243f64149ffe1749f2e70cde369b2cb48e /virtual-programs | |
| parent | Fix NUC 32-bit colors (diff) | |
| download | folk-f069f0660ffc4f8f170ae7e9c2f72a3dd454783d.tar.gz folk-f069f0660ffc4f8f170ae7e9c2f72a3dd454783d.zip | |
New calibration
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/ { |