From fa080de7afc95aa1c19a6e6fc0e0708ced2eadc4 Mon Sep 17 00:00:00 2001 From: Joseph Hunkeler Date: Wed, 8 Jul 2015 20:46:52 -0400 Subject: Initial commit --- noao/nproto/ir/irimzero.x | 22 ++++++++++++++++++++++ 1 file changed, 22 insertions(+) create mode 100644 noao/nproto/ir/irimzero.x (limited to 'noao/nproto/ir/irimzero.x') diff --git a/noao/nproto/ir/irimzero.x b/noao/nproto/ir/irimzero.x new file mode 100644 index 00000000..013ab2d6 --- /dev/null +++ b/noao/nproto/ir/irimzero.x @@ -0,0 +1,22 @@ + +# IR_IMZERO -- Fill the output image with a constant value. + +procedure ir_imzero (im, ncols, nlines, value) + +pointer im # pointer to the output image +int ncols # number of columns +int nlines # number of lines +real value # default blank value + +int i +pointer obuf +pointer impl2r() + +begin + do i = 1, nlines { + obuf = impl2r (im, i) + if (obuf == EOF) + call error (0, "Error writing output image.") + call amovkr (value, Memr[obuf], ncols) + } +end -- cgit