1 files changed, 80 insertions, 0 deletions
diff --git a/ipl/gprogs/poller.icn b/ipl/gprogs/poller.icn
new file mode 100644
index 0000000..ad69592
--- /dev/null
+++ b/ipl/gprogs/poller.icn
@@ -0,0 +1,80 @@
+############################################################################
+#
+#	File:     poller.icn
+#
+#	Subject:  Program to record image as pixel coordinates
+#
+#	Author:   Ralph E. Griswold
+#
+#	Date:     December 30, 1998
+#
+############################################################################
+#
+#  This file is in the public domain.
+#
+############################################################################
+#
+#  This program reads an image whose name is given on the command line and
+#  writes it out as an Icon list of pixels in the form of an include file.
+#  See the documentation below for details.
+#
+############################################################################
+#
+#  Requires:  Version 9 graphics
+#
+############################################################################
+#
+#  Links:  lists, wopen
+#
+############################################################################
+
+link lists
+link wopen
+
+procedure main(args)
+   local colors, width, height, x, y, c
+
+   WOpen("image=" || args[1]) | stop("*** cannot open image")
+
+   colors := table()
+
+   width := WAttrib("width")
+   height := WAttrib("height")
+
+   x := y := 0
+
+   #  Build table of argument lists for colors
+
+   every c := Pixel() do {
+      x +:= 1
+      if x % width = 0 then {
+         x := 0
+         y +:= 1
+         }
+      /colors[c] := []			# new color
+      put(colors[c], x, y)
+      }
+
+   #  Write Icon code for an include file.  A list of argument lists
+   #  is assigned to "pixels".  Each argument list consists of the
+   #  color followed by the pixel coordinates at which that color
+   #  occurs
+   #
+   #  The last element of the list is a three-element list giving the
+   #  width, height, and number of colors in the image.  Note that this
+   #  is an easily accessible location and that it "solves" the problem
+   #  that all previous lines are termianted by commas, so without it
+   #  either there would be a trailing empty element in "pixels"
+   #  or some painful code would be necessary to avoid it.
+
+   write("pixels:=[")
+
+   every c := key(colors) do {
+      push(colors[c], c)
+      write(limage(colors[c]), ",")
+      }
+
+   write("[", width, ",", height, ",", *colors,  "]")
+   write("]")
+
+end