diff options
| author | Omar Rizwan <omar@omar.website> | 2022-07-28 21:00:37 +0000 |
|---|---|---|
| committer | Omar Rizwan <omar@omar.website> | 2022-07-28 21:00:37 +0000 |
| commit | 206776b0658ff6358546d7b039e2a3aacda2409a (patch) | |
| tree | 939a710b19cb1d4ee5843db297734d480147ac13 /virtual-programs | |
| parent | improve calibration overlay program; add multiline label support (diff) | |
| download | folk-206776b0658ff6358546d7b039e2a3aacda2409a.tar.gz folk-206776b0658ff6358546d7b039e2a3aacda2409a.zip | |
new Hex calibration
Diffstat (limited to 'virtual-programs')
| -rw-r--r-- | virtual-programs/tags-and-calibration.folk | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/virtual-programs/tags-and-calibration.folk b/virtual-programs/tags-and-calibration.folk index 6709e0b1..1d61419f 100644 --- a/virtual-programs/tags-and-calibration.folk +++ b/virtual-programs/tags-and-calibration.folk @@ -2,12 +2,21 @@ 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} +} for {set i 0} {$i < [llength $points]} {incr i} { lassign [lindex $points $i] x$i y$i u$i v$i } |