diff options
| author | Omar Rizwan <omar@omar.website> | 2022-07-22 17:24:47 +0000 |
|---|---|---|
| committer | Omar Rizwan <omar@omar.website> | 2022-07-22 17:24:47 +0000 |
| commit | e97ce29117621e97ca485a72ec9b52c8b30021ee (patch) | |
| tree | 8969c078ef3952886f75e09f8e39ebf9e2afd658 /virtual-programs | |
| parent | work on print.folk ? not sure whether to keep this (diff) | |
| download | folk-e97ce29117621e97ca485a72ec9b52c8b30021ee.tar.gz folk-e97ce29117621e97ca485a72ec9b52c8b30021ee.zip | |
calibration overlays
Diffstat (limited to 'virtual-programs')
| -rw-r--r-- | virtual-programs/archive/calibration-overlays.folk | 22 |
1 files changed, 14 insertions, 8 deletions
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)" +} |