From 158fd4e4dbeee5b439c5db61a477b387d757e6ce Mon Sep 17 00:00:00 2001
From: Omar Rizwan <omar@omar.website>
Date: Sun, 23 Jul 2023 11:52:54 -0400
Subject: Shrink camera slice

---
 virtual-programs/images.folk | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'virtual-programs')

diff --git a/virtual-programs/images.folk b/virtual-programs/images.folk
index ae40769a..6846975e 100644
--- a/virtual-programs/images.folk
+++ b/virtual-programs/images.folk
@@ -117,6 +117,8 @@ When when /p/ has camera slice /slice/ /lambda/ with environment /e/ {
 # Display a camera slice
 When /someone/ wishes /p/ displays camera slice /slice/ & /p/ has region /r/ {
   set origin [lindex $r 0 0]
-  set scale [expr {$Display::WIDTH / $Camera::WIDTH}]
-  Wish display runs [list Display::image {*}$origin $slice $scale]
+  # set scale [expr {$Display::WIDTH / $Camera::WIDTH}]
+  # Use 1x scale instead of $scale so the projected tag doesn't redetect.
+  # TODO: Mask the tag out?
+  Wish display runs [list Display::image {*}$origin $slice 1]
 }
-- 
cgit v1.2.3