Repatch (from linux) of OSX IRAF

1 files changed, 28 insertions, 0 deletions

diff --git a/noao/twodspec/apextract/apcopy.x b/noao/twodspec/apextract/apcopy.x
new file mode 100644
index 00000000..e697bf88
--- /dev/null
+++ b/noao/twodspec/apextract/apcopy.x
@@ -0,0 +1,28 @@
+include	"apertures.h"
+
+# AP_COPY -- Make a copy of an aperture.
+# The title is not copied.
+
+procedure ap_copy (apin, apout)
+
+pointer	apin		# Aperture to copy
+pointer	apout		# New copy
+
+int	i
+
+begin
+	# Allocate memory, transfer the aperture parameters, and call procedures
+	# which copy the offset curve and background parameters.
+	call ap_alloc (apout)
+	AP_ID(apout) = AP_ID(apin)
+	AP_BEAM(apout) = AP_BEAM(apin)
+	AP_AXIS(apout) = AP_AXIS(apin)
+	do i = 1, 2 {
+	    AP_CEN(apout, i) = AP_CEN(apin, i)
+	    AP_LOW(apout, i) = AP_LOW(apin, i)
+	    AP_HIGH(apout, i) = AP_HIGH(apin, i)
+	}
+	call ap_cvset (apin, apout)
+	call ic_open (AP_IC(apout))
+	call ic_copy (AP_IC(apin), AP_IC(apout))
+end