From 40e5a5811c6ffce9b0974e93cdd927cbcf60c157 Mon Sep 17 00:00:00 2001 From: Joe Hunkeler Date: Tue, 11 Aug 2015 16:51:37 -0400 Subject: Repatch (from linux) of OSX IRAF --- pkg/images/tv/imedit/epdosurface.x | 35 +++++++++++++++++++++++++++++++++++ 1 file changed, 35 insertions(+) create mode 100644 pkg/images/tv/imedit/epdosurface.x (limited to 'pkg/images/tv/imedit/epdosurface.x') 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 -- cgit