1 files changed, 39 insertions, 0 deletions
diff --git a/ipl/gprogs/dd2res.icn b/ipl/gprogs/dd2res.icn
new file mode 100644
index 0000000..785c8b6
--- /dev/null
+++ b/ipl/gprogs/dd2res.icn
@@ -0,0 +1,39 @@
+############################################################################
+#
+#	File:     dd2res.icn
+#
+#	Subject:  Program to compute loom resources needed from drawdown
+#
+#	Author:   Ralph E. Griswold
+#
+#	Date:     July 8, 2002
+#
+############################################################################
+#
+#  This file is in the public domain.
+#
+############################################################################
+#
+#  This program reads a pattern in row or BLP format.
+#
+#  The number of shafts and treadles required is written to standard
+#  output.
+#
+############################################################################
+#
+#  Links:  pattread, patutils, patxform
+#
+############################################################################
+
+link pattread
+link patutils
+link patxform
+
+procedure main()
+   local rows, row
+
+   rows := pattread()
+
+   write(*set(protate(rows)), "x", *set(rows))
+
+end