Add camera-slice

5 files changed, 64 insertions, 1 deletions

diff --git a/printed-programs/93.folk b/printed-programs/93.folk
new file mode 100644
index 00000000..400e1d2d
--- /dev/null
+++ b/printed-programs/93.folk
@@ -0,0 +1,9 @@
+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
+
diff --git a/printed-programs/93.pdf b/printed-programs/93.pdf
new file mode 100644
index 00000000..c053dbc1
--- /dev/null
+++ b/printed-programs/93.pdf
diff --git a/printed-programs/93.ps b/printed-programs/93.ps
new file mode 100644
index 00000000..511188ff
--- /dev/null
+++ b/printed-programs/93.ps
@@ -0,0 +1,45 @@
+
+        %!PS
+        << /PageSize [612 792] >> setpagedevice
+
+        /Courier findfont
+        12 scalefont
+        setfont
+        newpath
+        36 738.0 moveto (Wish $this has camera image) show
+36 720.0 moveto (When $this has camera image /im/ {) show
+36 702.0 moveto (	When $this has region /r/ {) show
+36 684.0 moveto (		Wish display runs [list Display::image {*}[lindex $r 0 0] $im]) show
+36 666.0 moveto (	}) show
+36 648.0 moveto (}) show
+36 630.0 moveto () show
+36 612.0 moveto (Wish $this is outlined white) show
+36 594.0 moveto () show
+
+        gsave
+        426 606 translate
+        150 150 scale
+        gsave
+0 1 translate
+0.100000 -0.100000 scale
+0 setgray newpath 0 0 moveto 1 0 lineto 1 1 lineto 0 1 lineto closepath fill 1 setgray newpath 1 0 moveto 2 0 lineto 2 1 lineto 1 1 lineto closepath fill 0 setgray newpath 2 0 moveto 3 0 lineto 3 1 lineto 2 1 lineto closepath fill 0 setgray newpath 3 0 moveto 4 0 lineto 4 1 lineto 3 1 lineto closepath fill 0 setgray newpath 4 0 moveto 5 0 lineto 5 1 lineto 4 1 lineto closepath fill 0 setgray newpath 5 0 moveto 6 0 lineto 6 1 lineto 5 1 lineto closepath fill 0 setgray newpath 6 0 moveto 7 0 lineto 7 1 lineto 6 1 lineto closepath fill 0 setgray newpath 7 0 moveto 8 0 lineto 8 1 lineto 7 1 lineto closepath fill 0 setgray newpath 8 0 moveto 9 0 lineto 9 1 lineto 8 1 lineto closepath fill 1 setgray newpath 9 0 moveto 10 0 lineto 10 1 lineto 9 1 lineto closepath fill 
+1 setgray newpath 0 1 moveto 1 1 lineto 1 2 lineto 0 2 lineto closepath fill 0 setgray newpath 1 1 moveto 2 1 lineto 2 2 lineto 1 2 lineto closepath fill 0 setgray newpath 2 1 moveto 3 1 lineto 3 2 lineto 2 2 lineto closepath fill 0 setgray newpath 3 1 moveto 4 1 lineto 4 2 lineto 3 2 lineto closepath fill 0 setgray newpath 4 1 moveto 5 1 lineto 5 2 lineto 4 2 lineto closepath fill 0 setgray newpath 5 1 moveto 6 1 lineto 6 2 lineto 5 2 lineto closepath fill 0 setgray newpath 6 1 moveto 7 1 lineto 7 2 lineto 6 2 lineto closepath fill 0 setgray newpath 7 1 moveto 8 1 lineto 8 2 lineto 7 2 lineto closepath fill 0 setgray newpath 8 1 moveto 9 1 lineto 9 2 lineto 8 2 lineto closepath fill 1 setgray newpath 9 1 moveto 10 1 lineto 10 2 lineto 9 2 lineto closepath fill 
+1 setgray newpath 0 2 moveto 1 2 lineto 1 3 lineto 0 3 lineto closepath fill 0 setgray newpath 1 2 moveto 2 2 lineto 2 3 lineto 1 3 lineto closepath fill 1 setgray newpath 2 2 moveto 3 2 lineto 3 3 lineto 2 3 lineto closepath fill 1 setgray newpath 3 2 moveto 4 2 lineto 4 3 lineto 3 3 lineto closepath fill 1 setgray newpath 4 2 moveto 5 2 lineto 5 3 lineto 4 3 lineto closepath fill 1 setgray newpath 5 2 moveto 6 2 lineto 6 3 lineto 5 3 lineto closepath fill 1 setgray newpath 6 2 moveto 7 2 lineto 7 3 lineto 6 3 lineto closepath fill 1 setgray newpath 7 2 moveto 8 2 lineto 8 3 lineto 7 3 lineto closepath fill 0 setgray newpath 8 2 moveto 9 2 lineto 9 3 lineto 8 3 lineto closepath fill 1 setgray newpath 9 2 moveto 10 2 lineto 10 3 lineto 9 3 lineto closepath fill 
+1 setgray newpath 0 3 moveto 1 3 lineto 1 4 lineto 0 4 lineto closepath fill 0 setgray newpath 1 3 moveto 2 3 lineto 2 4 lineto 1 4 lineto closepath fill 1 setgray newpath 2 3 moveto 3 3 lineto 3 4 lineto 2 4 lineto closepath fill 1 setgray newpath 3 3 moveto 4 3 lineto 4 4 lineto 3 4 lineto closepath fill 1 setgray newpath 4 3 moveto 5 3 lineto 5 4 lineto 4 4 lineto closepath fill 0 setgray newpath 5 3 moveto 6 3 lineto 6 4 lineto 5 4 lineto closepath fill 0 setgray newpath 6 3 moveto 7 3 lineto 7 4 lineto 6 4 lineto closepath fill 1 setgray newpath 7 3 moveto 8 3 lineto 8 4 lineto 7 4 lineto closepath fill 0 setgray newpath 8 3 moveto 9 3 lineto 9 4 lineto 8 4 lineto closepath fill 0 setgray newpath 9 3 moveto 10 3 lineto 10 4 lineto 9 4 lineto closepath fill 
+1 setgray newpath 0 4 moveto 1 4 lineto 1 5 lineto 0 5 lineto closepath fill 0 setgray newpath 1 4 moveto 2 4 lineto 2 5 lineto 1 5 lineto closepath fill 1 setgray newpath 2 4 moveto 3 4 lineto 3 5 lineto 2 5 lineto closepath fill 1 setgray newpath 3 4 moveto 4 4 lineto 4 5 lineto 3 5 lineto closepath fill 0 setgray newpath 4 4 moveto 5 4 lineto 5 5 lineto 4 5 lineto closepath fill 0 setgray newpath 5 4 moveto 6 4 lineto 6 5 lineto 5 5 lineto closepath fill 0 setgray newpath 6 4 moveto 7 4 lineto 7 5 lineto 6 5 lineto closepath fill 1 setgray newpath 7 4 moveto 8 4 lineto 8 5 lineto 7 5 lineto closepath fill 0 setgray newpath 8 4 moveto 9 4 lineto 9 5 lineto 8 5 lineto closepath fill 0 setgray newpath 9 4 moveto 10 4 lineto 10 5 lineto 9 5 lineto closepath fill 
+0 setgray newpath 0 5 moveto 1 5 lineto 1 6 lineto 0 6 lineto closepath fill 0 setgray newpath 1 5 moveto 2 5 lineto 2 6 lineto 1 6 lineto closepath fill 1 setgray newpath 2 5 moveto 3 5 lineto 3 6 lineto 2 6 lineto closepath fill 1 setgray newpath 3 5 moveto 4 5 lineto 4 6 lineto 3 6 lineto closepath fill 0 setgray newpath 4 5 moveto 5 5 lineto 5 6 lineto 4 6 lineto closepath fill 1 setgray newpath 5 5 moveto 6 5 lineto 6 6 lineto 5 6 lineto closepath fill 0 setgray newpath 6 5 moveto 7 5 lineto 7 6 lineto 6 6 lineto closepath fill 1 setgray newpath 7 5 moveto 8 5 lineto 8 6 lineto 7 6 lineto closepath fill 0 setgray newpath 8 5 moveto 9 5 lineto 9 6 lineto 8 6 lineto closepath fill 0 setgray newpath 9 5 moveto 10 5 lineto 10 6 lineto 9 6 lineto closepath fill 
+1 setgray newpath 0 6 moveto 1 6 lineto 1 7 lineto 0 7 lineto closepath fill 0 setgray newpath 1 6 moveto 2 6 lineto 2 7 lineto 1 7 lineto closepath fill 1 setgray newpath 2 6 moveto 3 6 lineto 3 7 lineto 2 7 lineto closepath fill 1 setgray newpath 3 6 moveto 4 6 lineto 4 7 lineto 3 7 lineto closepath fill 1 setgray newpath 4 6 moveto 5 6 lineto 5 7 lineto 4 7 lineto closepath fill 1 setgray newpath 5 6 moveto 6 6 lineto 6 7 lineto 5 7 lineto closepath fill 1 setgray newpath 6 6 moveto 7 6 lineto 7 7 lineto 6 7 lineto closepath fill 1 setgray newpath 7 6 moveto 8 6 lineto 8 7 lineto 7 7 lineto closepath fill 0 setgray newpath 8 6 moveto 9 6 lineto 9 7 lineto 8 7 lineto closepath fill 0 setgray newpath 9 6 moveto 10 6 lineto 10 7 lineto 9 7 lineto closepath fill 
+1 setgray newpath 0 7 moveto 1 7 lineto 1 8 lineto 0 8 lineto closepath fill 0 setgray newpath 1 7 moveto 2 7 lineto 2 8 lineto 1 8 lineto closepath fill 1 setgray newpath 2 7 moveto 3 7 lineto 3 8 lineto 2 8 lineto closepath fill 1 setgray newpath 3 7 moveto 4 7 lineto 4 8 lineto 3 8 lineto closepath fill 1 setgray newpath 4 7 moveto 5 7 lineto 5 8 lineto 4 8 lineto closepath fill 1 setgray newpath 5 7 moveto 6 7 lineto 6 8 lineto 5 8 lineto closepath fill 1 setgray newpath 6 7 moveto 7 7 lineto 7 8 lineto 6 8 lineto closepath fill 1 setgray newpath 7 7 moveto 8 7 lineto 8 8 lineto 7 8 lineto closepath fill 0 setgray newpath 8 7 moveto 9 7 lineto 9 8 lineto 8 8 lineto closepath fill 1 setgray newpath 9 7 moveto 10 7 lineto 10 8 lineto 9 8 lineto closepath fill 
+1 setgray newpath 0 8 moveto 1 8 lineto 1 9 lineto 0 9 lineto closepath fill 0 setgray newpath 1 8 moveto 2 8 lineto 2 9 lineto 1 9 lineto closepath fill 0 setgray newpath 2 8 moveto 3 8 lineto 3 9 lineto 2 9 lineto closepath fill 0 setgray newpath 3 8 moveto 4 8 lineto 4 9 lineto 3 9 lineto closepath fill 0 setgray newpath 4 8 moveto 5 8 lineto 5 9 lineto 4 9 lineto closepath fill 0 setgray newpath 5 8 moveto 6 8 lineto 6 9 lineto 5 9 lineto closepath fill 0 setgray newpath 6 8 moveto 7 8 lineto 7 9 lineto 6 9 lineto closepath fill 0 setgray newpath 7 8 moveto 8 8 lineto 8 9 lineto 7 9 lineto closepath fill 0 setgray newpath 8 8 moveto 9 8 lineto 9 9 lineto 8 9 lineto closepath fill 1 setgray newpath 9 8 moveto 10 8 lineto 10 9 lineto 9 9 lineto closepath fill 
+0 setgray newpath 0 9 moveto 1 9 lineto 1 10 lineto 0 10 lineto closepath fill 1 setgray newpath 1 9 moveto 2 9 lineto 2 10 lineto 1 10 lineto closepath fill 1 setgray newpath 2 9 moveto 3 9 lineto 3 10 lineto 2 10 lineto closepath fill 1 setgray newpath 3 9 moveto 4 9 lineto 4 10 lineto 3 10 lineto closepath fill 0 setgray newpath 4 9 moveto 5 9 lineto 5 10 lineto 4 10 lineto closepath fill 0 setgray newpath 5 9 moveto 6 9 lineto 6 10 lineto 5 10 lineto closepath fill 1 setgray newpath 6 9 moveto 7 9 lineto 7 10 lineto 6 10 lineto closepath fill 1 setgray newpath 7 9 moveto 8 9 lineto 8 10 lineto 7 10 lineto closepath fill 1 setgray newpath 8 9 moveto 9 9 lineto 9 10 lineto 8 10 lineto closepath fill 0 setgray newpath 9 9 moveto 10 9 lineto 10 10 lineto 9 10 lineto closepath fill 
+grestore
+
+        grestore
+
+        /Helvetica-Narrow findfont
+        10 scalefont
+        setfont
+        newpath
+        426 590 moveto
+        (93 (Sun, 18 Dec 2022, 07:55:56 pm)) show
+    
diff --git a/printed-programs/next-id.txt b/printed-programs/next-id.txt
index c67f579c..49541f72 100644
--- a/printed-programs/next-id.txt
+++ b/printed-programs/next-id.txt
@@ -1 +1 @@
-93
+94
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