From a264fc7e178493e3d4b47a6ea094934aebee36e2 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Andr=C3=A9s=20Cuervo?= <acwervo@gmail.com>
Date: Sun, 18 Dec 2022 15:00:10 -0500
Subject: Add camera-slice

---
 virtual-programs/camera-slice.folk | 9 +++++++++
 1 file changed, 9 insertions(+)
 create mode 100644 virtual-programs/camera-slice.folk

(limited to 'virtual-programs')

diff --git a/virtual-programs/camera-slice.folk b/virtual-programs/camera-slice.folk
new file mode 100644
index 00000000..857ac0ec
--- /dev/null
+++ b/virtual-programs/camera-slice.folk
@@ -0,0 +1,9 @@
+Wish $this has filename "camera-slice.folk"
+Wish $this has camera image
+When $this has camera image /im/ {
+	When $this has region /r/ {
+		Wish display runs [list Display::image {*}[lindex $r 0 0] $im]
+	}
+}
+
+Wish $this is outlined white
-- 
cgit v1.2.3