From 40e5a5811c6ffce9b0974e93cdd927cbcf60c157 Mon Sep 17 00:00:00 2001 From: Joe Hunkeler Date: Tue, 11 Aug 2015 16:51:37 -0400 Subject: Repatch (from linux) of OSX IRAF --- 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