Initial commit

5 files changed, 159 insertions, 0 deletions

diff --git a/noao/twodspec/apextract/apdemos/apdemo1.cl b/noao/twodspec/apextract/apdemos/apdemo1.cl
new file mode 100644
index 00000000..04704034
--- /dev/null
+++ b/noao/twodspec/apextract/apdemos/apdemo1.cl
@@ -0,0 +1,14 @@
+# Create demo data if needed.
+artdata
+mkexample ("multifiber", "apdemo", errors=no, verbose=yes, list=no)
+bye
+imdelete ("apdemo.ms.??h", verify=no)
+
+# Set parameters.
+verbose = yes
+logfile = ""
+plotfile = ""
+unlearn apall
+
+# Execute playback.
+stty (playback="apdemos$apdemo1.dat", verify=no, delay=500)
diff --git a/noao/twodspec/apextract/apdemos/apdemo1.dat b/noao/twodspec/apextract/apdemos/apdemo1.dat
new file mode 100644
index 00000000..c718b423
--- /dev/null
+++ b/noao/twodspec/apextract/apdemos/apdemo1.dat
@@ -0,0 +1,14 @@
+\O=NOAO/IRAF V2.10DEVELOP valdes@puppis Tue 13:26:44 31-Jul-90
+\T=gterm
+\G=gterm
+apall\n
+apdemo\n
+\n
+4\n
+\n
+no\n
+\n
+no\n
+no\n
+\n
+no\n
diff --git a/noao/twodspec/apextract/apdemos/apdemos.cl b/noao/twodspec/apextract/apdemos/apdemos.cl
new file mode 100644
index 00000000..3b040ef7
--- /dev/null
+++ b/noao/twodspec/apextract/apdemos/apdemos.cl
@@ -0,0 +1,17 @@
+procedure apdemos (demo)
+
+int	demo		{prompt="Demo number"}
+
+begin
+	int	demonum
+	file	demofile
+
+	if ($nargs == 0)
+	    type ("apdemos$apdemos.men")
+	demonum = demo
+	demofile = "apdemos$apdemo" // demonum // ".cl"
+	if (access (demofile))
+	    cl (< demofile)
+	else
+	    error (1, "Invalid demo number " // demonum)
+end
diff --git a/noao/twodspec/apextract/apdemos/apdemos.men b/noao/twodspec/apextract/apdemos/apdemos.men
new file mode 100644
index 00000000..4e0ca6e1
--- /dev/null
+++ b/noao/twodspec/apextract/apdemos/apdemos.men
@@ -0,0 +1,3 @@
+	MENU of APEXTRACT Demonstrations
+
+	1 - Simple demo of APALL
diff --git a/noao/twodspec/apextract/apdemos/apdemosdb/aplast b/noao/twodspec/apextract/apdemos/apdemosdb/aplast
new file mode 100644
index 00000000..93f85ea9
--- /dev/null
+++ b/noao/twodspec/apextract/apdemos/apdemosdb/aplast
@@ -0,0 +1,111 @@
+# Wed 11:02:05 22-Aug-90
+begin	aperture last 1 60.57419 256.
+	image	last
+	aperture	1
+	beam	1
+	center	60.57419 256.
+	low	-3.111816 -255.
+	high	2.949428 256.
+	background
+		xmin -100.
+		xmax 100.
+		function chebyshev
+		order 1
+		sample -10:-6,6:10
+		naverage -3
+		niterate 0
+		low_reject 3.
+		high_reject 3.
+		grow 0.
+	axis	1
+	curve	6
+		2.
+		2.
+		1.
+		512.
+		0.02659256
+		0.5026957
+
+# Wed 11:02:05 22-Aug-90
+begin	aperture last 2 70.70531 256.
+	image	last
+	aperture	2
+	beam	2
+	center	70.70531 256.
+	low	-2.926423 -255.
+	high	2.899426 256.
+	background
+		xmin -100.
+		xmax 100.
+		function chebyshev
+		order 1
+		sample -10:-6,6:10
+		naverage -3
+		niterate 0
+		low_reject 3.
+		high_reject 3.
+		grow 0.
+	axis	1
+	curve	6
+		2.
+		2.
+		1.
+		512.
+		-0.002646168
+		0.5073752
+
+# Wed 11:02:05 22-Aug-90
+begin	aperture last 3 80.78613 256.
+	image	last
+	aperture	3
+	beam	3
+	center	80.78613 256.
+	low	-2.953142 -255.
+	high	2.970872 256.
+	background
+		xmin -100.
+		xmax 100.
+		function chebyshev
+		order 1
+		sample -10:-6,6:10
+		naverage -3
+		niterate 0
+		low_reject 3.
+		high_reject 3.
+		grow 0.
+	axis	1
+	curve	6
+		2.
+		2.
+		1.
+		512.
+		0.01349655
+		0.5075101
+
+# Wed 11:02:05 22-Aug-90
+begin	aperture last 4 90.8806 256.
+	image	last
+	aperture	4
+	beam	4
+	center	90.8806 256.
+	low	-2.823333 -255.
+	high	2.915152 256.
+	background
+		xmin -100.
+		xmax 100.
+		function chebyshev
+		order 1
+		sample -10:-6,6:10
+		naverage -3
+		niterate 0
+		low_reject 3.
+		high_reject 3.
+		grow 0.
+	axis	1
+	curve	6
+		2.
+		2.
+		1.
+		512.
+		0.022075
+		0.5081324