diff options
Diffstat (limited to 'ipl/gprogs/isd2disd.icn')
-rw-r--r-- | ipl/gprogs/isd2disd.icn | 41 |
1 files changed, 41 insertions, 0 deletions
diff --git a/ipl/gprogs/isd2disd.icn b/ipl/gprogs/isd2disd.icn new file mode 100644 index 0000000..9a27a89 --- /dev/null +++ b/ipl/gprogs/isd2disd.icn @@ -0,0 +1,41 @@ +############################################################################ +# +# File: isd2disd.icn +# +# Subject: Program to show convert ISD draft to drawdown form +# +# Author: Ralph E. Griswold +# +# Date: November 1, 2001 +# +############################################################################ +# +# This file is in the public domain. +# +############################################################################ +# +# This program converts an ISD to an ISD with drawdown colors. +# +############################################################################ +# +# Links: weavutil, xcode +# +############################################################################ + +link weavutil +link xcode + +procedure main() + local draft + + isd # fly a kite, linker + + draft := xdecode(&input) + + draft.warp_colors := list(*draft.threading, 1) # black + draft.weft_colors := list(*draft.treadling, 2) # white + draft.color_list := [ColorValue("black"), ColorValue("white")] + + xencode(draft, &output) + +end |