diff options
Diffstat (limited to 'ipl/procs/writecpt.icn')
-rw-r--r-- | ipl/procs/writecpt.icn | 40 |
1 files changed, 40 insertions, 0 deletions
diff --git a/ipl/procs/writecpt.icn b/ipl/procs/writecpt.icn new file mode 100644 index 0000000..0591612 --- /dev/null +++ b/ipl/procs/writecpt.icn @@ -0,0 +1,40 @@ +############################################################################ +# +# File: writecpt.icn +# +# Subject: Procedure to write a "carpet" file +# +# Author: Ralph E. Griswold +# +# Date: August 7, 1997 +# +############################################################################ +# +# This file is in the public domain. +# +############################################################################ +# +# write_cpt(output, carpet) writes the carpet with heading information to +# the specified file. +# +############################################################################ +# +# Links: matrix +# +############################################################################ + +link matrix + +procedure write_cpt(output, carpet) #: convert matrix to numerical carpet + local min, max, i, j, width, height + + width := matrix_width(carpet) + height := matrix_height(carpet) + + write(output, "width=", width, " height=", height) + + write_matrix(output, carpet) + + return + +end |