Archive some virtual programs that we already printed

3 files changed, 47 insertions, 4 deletions

diff --git a/virtual-programs/archive/hello-name.folk b/virtual-programs/archive/hello-name.folk
new file mode 100644
index 00000000..bef035e2
--- /dev/null
+++ b/virtual-programs/archive/hello-name.folk
@@ -0,0 +1,12 @@
+Wish $this has filename "hello-name.folk"
+Wish $this is outlined blue
+
+When someone claims /firstName/ is /text/ {
+  Wish $this is outlined blue
+  Wish $this is labelled "
+
+
+
+
+Hi $text!"
+}
\ No newline at end of file
diff --git a/virtual-programs/archive/image.folk b/virtual-programs/archive/image.folk
new file mode 100644
index 00000000..a011c09c
--- /dev/null
+++ b/virtual-programs/archive/image.folk
@@ -0,0 +1,32 @@
+Wish $this has filename "image.folk"
+
+namespace eval ::image {
+	proc width {im} { dict get $im width }
+	proc height {im} { dict get $im height }
+	proc subimage {im x y subwidth subheight} {
+		dict with im {
+			set x [expr {int($x)}]
+			set y [expr {int($y)}]
+			set subdata [expr {$data + ($y * $width + $x) * $components}]
+			dict create \
+				width $subwidth height $subheight \
+				components $components \
+				bytesPerRow $bytesPerRow \
+				data [format 0x%x $subdata]
+		}
+	}
+	namespace export *
+	namespace ensemble create
+}
+
+When the camera frame is /f/ {
+	When $this has region /r/ {
+		lassign [projectorToCamera [lindex $r 0 0]] x0 y0
+		lassign [projectorToCamera [lindex $r 0 2]] x1 y1
+		set thisimage [image subimage $f \
+			[expr {min($x0,$x1)}] [expr {min($y0,$y1)}] \
+			[expr {int(abs($x1-$x0))}] [expr {int(abs($y1-$y0))}]]
+		Wish display runs [list Display::image {*}[lindex $r 0 0] $thisimage]
+	}
+}
+Wish $this is outlined red
diff --git a/virtual-programs/archive/metrics.folk b/virtual-programs/archive/metrics.folk
index 71ad66be..cd01e289 100644
--- a/virtual-programs/archive/metrics.folk
+++ b/virtual-programs/archive/metrics.folk
@@ -4,11 +4,10 @@ When $::nodename has step count /c/ {
 	Wish $this is labelled [string trim "
 step count: $c
 step time: $::stepTime
-camera time: [expr {[namespace exists Camera] ? [lindex [lindex $Camera::statements 0] end] : {none}}]
+camera time: [expr {[namespace exists Camera] ? [lindex $Camera::statements 0 end] : {none}}]
+display time: $Display::displayTime
 statement count: [Statements::size]
 logsize: $::logsize
 	"]
-	Wish $this is highlighted green
-#	puts "$::nodename statement count: [Statements::size]"
-#	puts "$::nodename statement sets-of-parents count: [Statements::countSetsOfParents]"
 }
+Wish $this is outlined green
\ No newline at end of file