From e97ce29117621e97ca485a72ec9b52c8b30021ee Mon Sep 17 00:00:00 2001
From: Omar Rizwan <omar@omar.website>
Date: Fri, 22 Jul 2022 13:24:47 -0400
Subject: calibration overlays

---
 virtual-programs/archive/calibration-overlays.folk | 22 ++++++++++++++--------
 1 file changed, 14 insertions(+), 8 deletions(-)

(limited to 'virtual-programs')

diff --git a/virtual-programs/archive/calibration-overlays.folk b/virtual-programs/archive/calibration-overlays.folk
index 07fa92cf..a81b19f9 100644
--- a/virtual-programs/archive/calibration-overlays.folk
+++ b/virtual-programs/archive/calibration-overlays.folk
@@ -1,12 +1,18 @@
-set projectorPoints {
-	{2830 490}
-	{2830 2000}
-	{834 200}
-	{834 2000}
-}
+if {[info hostname] != "folk0"} {return}
+
+set minX 500
+set maxX [expr $Display::WIDTH - 500]
+set minY 300
+set maxY [expr $Display::HEIGHT - 300]
+set projectorPoints [list \
+	[list $minX $minY] \
+	[list $maxX $minY] \
+	[list $maxX $maxY] \
+	[list $minX $maxY] \
+]
 for {set i 0} {$i < [llength $projectorPoints]} {incr i} {
 	lassign [lindex $projectorPoints $i] px py
 	Claim "tag overlay $i" is a rectangle with x $px y $py width 20 height 20
 	Wish "tag overlay $i" is highlighted blue
-	Wish "tag overlay $i" is labelled "overlay $i ($px, $py)"
-}
\ No newline at end of file
+	Wish "tag overlay $i" is labelled "proj $i ($px, $py)"
+}
-- 
cgit v1.2.3