diff options
| author | Omar Rizwan <omar@omar.website> | 2024-05-14 01:09:20 +0000 |
|---|---|---|
| committer | Omar Rizwan <omar@omar.website> | 2024-05-14 01:09:20 +0000 |
| commit | 66bb175dd3d2cce4470c77a1019efb5a0b28953d (patch) | |
| tree | ab1990cc4a362b9bde6608603275c4b2d408dac3 /virtual-programs | |
| parent | print: Don't create folk-printed-programs if exists (diff) | |
| download | folk-66bb175dd3d2cce4470c77a1019efb5a0b28953d.tar.gz folk-66bb175dd3d2cce4470c77a1019efb5a0b28953d.zip | |
Add (hacky) support for persisting calibration in ~/folk-live
Diffstat (limited to 'virtual-programs')
| -rw-r--r-- | virtual-programs/tags-and-calibration.folk | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/virtual-programs/tags-and-calibration.folk b/virtual-programs/tags-and-calibration.folk index bf46b9d8..3182856c 100644 --- a/virtual-programs/tags-and-calibration.folk +++ b/virtual-programs/tags-and-calibration.folk @@ -18,7 +18,11 @@ When the display /display/ has width /displayWidth/ height /displayHeight/ &\ # camera (tag) point -> projection point # calibration for Hex try { - source "/home/folk/generated-calibration.tcl" + if {[file exists "$::env(HOME)/folk-live/generated-calibration.tcl"]} { + source "$::env(HOME)/folk-live/generated-calibration.tcl" + } else { + source "$::env(HOME)/generated-calibration.tcl" + } set points [list] foreach correspondence $generatedCalibration::points { lassign $correspondence cx cy dx dy |