aboutsummaryrefslogtreecommitdiff
path: root/noao/imred/crutil/src/crfix.cl
blob: 68947c7aac4cc5a781b9ca47c840d6d5767d96d7 (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
# CRFIX -- Replace cosmic rays in an image using a cosmic ray mask.

procedure crfix (input, output, crmask)

file	input 			{prompt="Input image"}
file	output 			{prompt="Output image"}
file	crmask 			{prompt="Cosmic ray mask"}

begin
	file	in, out, crm

	in = input
	out = output
	crm = crmask

	if (in != out)
	    imcopy (in, out, verbose=no)
	fixpix (out, crm, linterp="INDEF", cinterp="INDEF", verbose=no,
	    pixels=no)
end