Repatch (from linux) of OSX IRAF

1 files changed, 27 insertions, 0 deletions

diff --git a/noao/onedspec/splot/replot.x b/noao/onedspec/splot/replot.x
new file mode 100644
index 00000000..9157846a
--- /dev/null
+++ b/noao/onedspec/splot/replot.x
@@ -0,0 +1,27 @@
+include	<gset.h>
+
+# REPLOT -- Replot the current array
+
+procedure replot (gfd, gt, x, y, npts, clear)
+
+pointer	gfd
+pointer	gt
+real	x[ARB]
+real	y[ARB]
+int	npts
+int	clear
+
+int	wc, gstati()
+
+begin
+	if (clear == YES) {
+	    wc = gstati (gfd, G_WCS)
+	    call gclear (gfd)
+	    call gseti (gfd, G_WCS, wc)
+	    call gt_ascale (gfd, gt, x, y, npts)
+	    call gt_swind (gfd, gt)
+	    call gt_labax (gfd, gt)
+	}
+
+	call gt_plot (gfd, gt, x, y, npts)
+end