From a264fc7e178493e3d4b47a6ea094934aebee36e2 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andr=C3=A9s=20Cuervo?= Date: Sun, 18 Dec 2022 15:00:10 -0500 Subject: Add camera-slice --- printed-programs/93.folk | 9 ++++++++ printed-programs/93.pdf | Bin 0 -> 5660 bytes printed-programs/93.ps | 45 +++++++++++++++++++++++++++++++++++++ printed-programs/next-id.txt | 2 +- virtual-programs/camera-slice.folk | 9 ++++++++ 5 files changed, 64 insertions(+), 1 deletion(-) create mode 100644 printed-programs/93.folk create mode 100644 printed-programs/93.pdf create mode 100644 printed-programs/93.ps create mode 100644 virtual-programs/camera-slice.folk 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 Binary files /dev/null and b/printed-programs/93.pdf differ 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 -- cgit v1.2.3