From 9e7311cfc899461e7c2e538df9298e632fc8d1d2 Mon Sep 17 00:00:00 2001
From: Omar Rizwan <omar@omar.website>
Date: Sun, 20 Nov 2022 17:16:21 -0500
Subject: Add programs

---
 virtual-programs/archive/image.folk   | 2 +-
 virtual-programs/archive/welcome.folk | 2 ++
 2 files changed, 3 insertions(+), 1 deletion(-)
 create mode 100644 virtual-programs/archive/welcome.folk

(limited to 'virtual-programs')

diff --git a/virtual-programs/archive/image.folk b/virtual-programs/archive/image.folk
index a011c09c..4d2ca6fd 100644
--- a/virtual-programs/archive/image.folk
+++ b/virtual-programs/archive/image.folk
@@ -7,7 +7,7 @@ namespace eval ::image {
 		dict with im {
 			set x [expr {int($x)}]
 			set y [expr {int($y)}]
-			set subdata [expr {$data + ($y * $width + $x) * $components}]
+			set subdata [expr {$data + ($y*$width + $x) * $components}]
 			dict create \
 				width $subwidth height $subheight \
 				components $components \
diff --git a/virtual-programs/archive/welcome.folk b/virtual-programs/archive/welcome.folk
new file mode 100644
index 00000000..0d9e3f57
--- /dev/null
+++ b/virtual-programs/archive/welcome.folk
@@ -0,0 +1,2 @@
+Wish $this has filename "welcome.folk"
+Wish $this is labelled "welcome 2!"
\ No newline at end of file
-- 
cgit v1.2.3