From fa080de7afc95aa1c19a6e6fc0e0708ced2eadc4 Mon Sep 17 00:00:00 2001
From: Joseph Hunkeler <jhunkeler@gmail.com>
Date: Wed, 8 Jul 2015 20:46:52 -0400
Subject: Initial commit

---
 noao/twodspec/apextract/apvalues.x | 32 ++++++++++++++++++++++++++++++++
 1 file changed, 32 insertions(+)
 create mode 100644 noao/twodspec/apextract/apvalues.x

(limited to 'noao/twodspec/apextract/apvalues.x')

diff --git a/noao/twodspec/apextract/apvalues.x b/noao/twodspec/apextract/apvalues.x
new file mode 100644
index 00000000..2072907e
--- /dev/null
+++ b/noao/twodspec/apextract/apvalues.x
@@ -0,0 +1,32 @@
+include	"apertures.h"
+
+# AP_VALUES -- Return the values for an aperture
+
+procedure ap_values (current, aps, line, apid, apbeam, center, low, high)
+
+int	current			# Index to current aperture
+pointer	aps[ARB]		# Apertures
+int	line			# Line
+int	apid			# Aperture ID
+int	apbeam			# Aperture beam
+real	center			# Aperture center
+real	low			# Lower limit of aperture
+real	high			# Upper limit of aperture
+
+int	apaxis
+pointer	ap
+
+real	ap_cveval()
+
+begin
+	if (current > 0) {
+	    ap = aps[current]
+	    apaxis = AP_AXIS(ap)
+
+	    apid = AP_ID(ap)
+	    apbeam = AP_BEAM(ap)
+	    center = AP_CEN(ap, apaxis) + ap_cveval (AP_CV(ap), real (line))
+	    low = AP_LOW(ap, apaxis)
+	    high = AP_HIGH(ap, apaxis)
+	}
+end
-- 
cgit