From 66bb175dd3d2cce4470c77a1019efb5a0b28953d Mon Sep 17 00:00:00 2001 From: Omar Rizwan Date: Mon, 13 May 2024 21:09:20 -0400 Subject: Add (hacky) support for persisting calibration in ~/folk-live --- virtual-programs/tags-and-calibration.folk | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'virtual-programs') 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 -- cgit v1.2.3