From dd52cc436f0010e1eab85721c2ad86f446c9acde Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Andr=C3=A9s=20Cuervo?= <acwervo@gmail.com>
Date: Thu, 9 Feb 2023 17:02:54 -0500
Subject: Archive test, add back images

---
 virtual-programs/archive/test.folk | 13 +++++++++++++
 1 file changed, 13 insertions(+)
 create mode 100644 virtual-programs/archive/test.folk

(limited to 'virtual-programs/archive')

diff --git a/virtual-programs/archive/test.folk b/virtual-programs/archive/test.folk
new file mode 100644
index 00000000..9b5c75f0
--- /dev/null
+++ b/virtual-programs/archive/test.folk
@@ -0,0 +1,13 @@
+Wish $this has filename "test.folk"
+
+When $this has region /r/ {
+	set points [lindex $r 0]
+	lassign $points one two three four
+	lassign $one a b
+	lassign $three c d
+	# Wish $this is labelled "$a $b $c $d"
+	# Display::fillRect $a $b $c $d skyblue
+	Display::stroke [list [list $a $b] [list $c $d]] 3 skyblue
+}
+
+Wish $this is outlined thick magenta
-- 
cgit v1.2.3