diff options
Diffstat (limited to 'pkg/images/tv/imedit/epdosurface.x')
| -rw-r--r-- | pkg/images/tv/imedit/epdosurface.x | 35 |
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 |