1 files changed, 59 insertions, 0 deletions
diff --git a/ipl/gprocs/pixelmap.icn b/ipl/gprocs/pixelmap.icn
new file mode 100644
index 0000000..7160e28
--- /dev/null
+++ b/ipl/gprocs/pixelmap.icn
@@ -0,0 +1,59 @@
+############################################################################
+#
+#	File:     pixelmap.icn
+#
+#	Subject:  Procedure to create image from pixel list
+#
+#	Author:   Ralph E. Griswold
+#
+#	Date:     January 23, 1995
+#
+############################################################################
+#
+#   This file is in the public domain.
+#
+############################################################################
+#
+#  pixelmap(name, p, args[]) reads the pixel list in file name and
+#  constructs an image, applying p ! args to each pixel.  If p is
+#  omitted or null, the pixels are used as-is.
+#
+############################################################################
+#
+#  Requires:  Version 9 graphics
+#
+############################################################################
+#
+#  Links:  wopen
+#
+############################################################################
+
+link wopen
+
+procedure pixelmap(name, p, args[])
+   local input, width, height, x, y, win
+
+   /p := 1
+   push(args)			# place holder
+
+   input := open(name) | stop("*** cannot open pixel list")
+
+   read(input) ? {
+      ="width=" &
+      width := tab(many(&digits)) &
+      =" height=" &
+      height := tab(many(&digits))
+      } | stop("*** invalid pixel list header")
+
+   win := WOpen("width=" || width, "height=" || height)
+
+   every y := 0 to height - 1 do
+      every x := 0 to width - 1 do {
+         args[1] := read(input) | stop("*** short data in pixel list")
+         Fg(win, p ! args)
+         DrawPoint(x, y)
+         }
+
+   return win
+
+end