Repatch (from linux) of OSX IRAF

1 files changed, 35 insertions, 0 deletions

diff --git a/pkg/images/tv/imedit/epdosurface.x b/pkg/images/tv/imedit/epdosurface.x
new file mode 100644
index 00000000..70866bb1
--- /dev/null
+++ b/pkg/images/tv/imedit/epdosurface.x
@@ -0,0 +1,35 @@
+include	"epix.h"
+ 
+# EP_DOSURFACE -- Display surface plots.
+# There are two modes.  If there is no output subraster then just
+# display the input subraster otherwise display both.  The orientation
+# is given by the user.
+ 
+procedure ep_dosurface (ep)
+ 
+pointer	ep			# EPIX structure
+pointer	gp, gopen()
+ 
+begin
+	if (EP_INDATA(ep) == NULL && EP_OUTDATA(ep) == NULL) {
+	    call eprintf ("No region defined\n")
+	    return
+	}
+	
+	gp = gopen (EP_GRAPHICS(ep), NEW_FILE, STDGRAPH)
+ 
+	if (EP_OUTDATA(ep) == NULL) {
+	    call gsview (gp, 0.03, 0.98, 0.03, 0.98)
+	    call ep_surface (gp, Memr[EP_INDATA(ep)], EP_NX(ep), EP_NY(ep),
+		EP_ANGH(ep), EP_ANGV(ep))
+	} else {
+	    call gsview (gp, 0.03, 0.48, 0.03, 0.98)
+	    call ep_surface (gp, Memr[EP_INDATA(ep)], EP_NX(ep), EP_NY(ep),
+		EP_ANGH(ep), EP_ANGV(ep))
+	    call gsview (gp, 0.53, 0.98, 0.03, 0.98)
+	    call ep_surface (gp, Memr[EP_OUTDATA(ep)], EP_NX(ep),EP_NY(ep),
+		EP_ANGH(ep), EP_ANGV(ep))
+	}
+ 
+	call gclose (gp)
+end