blob: 013ab2d698f20f55e43a3d754db7728fe3be6447 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
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
|
