1 files changed, 127 insertions, 0 deletions
diff --git a/pkg/images/tv/imedit/epgcur.x b/pkg/images/tv/imedit/epgcur.x
new file mode 100644
index 00000000..5e424a65
--- /dev/null
+++ b/pkg/images/tv/imedit/epgcur.x
@@ -0,0 +1,127 @@
+include	"epix.h"
+
+# EP_GCUR -- Get EPIX cursor value.
+# This is an interface between the standard cursor input and EPIX.  It
+# returns an aperture consisting of an aperture type and the two integer
+# pixel corners containing the aperture.  This interface also provides
+# for interpreting the FIXPIX type files.  A default key may be
+# supplied which allows simple X-Y files to be read.
+
+int procedure ep_gcur (ep, ap, x1, y1, x2, y2, key, strval, maxch)
+
+pointer	ep			# EPIX structure
+int	ap			# Aperture type
+int	x1, y1, x2, y2		# Corners of aperture
+int	key			# Keystroke value of cursor event
+char	strval[ARB]		# String value, if any
+int	maxch
+
+real	a, b, c, d, e
+pointer	sp, buf, ip
+int	nitems, wcs
+int	ctor(), clglstr(), clgcur()
+
+begin
+	# FIXPIX format consists of a rectangle with column and line ranges.
+	# The key returned is for interpolation across the narrow dimension
+	# of the rectangle.
+
+	if (EP_FIXPIX(ep) == YES) {
+	    call smark (sp)
+	    call salloc (buf, SZ_LINE, TY_CHAR)
+
+	    # Read the list structured string.
+	    if (clglstr ("cursor", Memc[buf], SZ_LINE) == EOF) {
+	        call sfree (sp)
+	        return (EOF)
+	    }
+
+	    ip = buf
+	    nitems = 0
+	    if (ctor (Memc, ip, a) > 0)
+	        nitems = nitems + 1
+	    if (ctor (Memc, ip, b) > 0)
+	        nitems = nitems + 1
+	    if (ctor (Memc, ip, c) > 0)
+	        nitems = nitems + 1
+	    if (ctor (Memc, ip, d) > 0)
+	        nitems = nitems + 1
+
+	    e = max (a, b)
+	    a = min (a, b)
+	    b = e
+	    e = max (c, d)
+	    c = min (c, d)
+	    d = e
+	    x1 = nint(a)
+	    y1 = nint(c)
+	    x2 = nint(b)
+	    y2 = nint(d)
+	    ap = APRECTANGLE
+	    if (x2 - x1 <= y2 - y1)
+		key = 'c'
+	    else
+		key = 'l'
+
+	    call sfree (sp)
+	    return (nitems)
+	}
+
+	# The standard cursor value is read for centered apertures and
+	# for two values are read for rectangular apertures.  The
+	# returned coordinates are properly defined.
+
+	key = EP_DEFAULT(ep)
+	strval[1] = EOS
+	nitems = clgcur ("cursor", a, b, wcs, key, strval, maxch)
+	switch (key) {
+	case 'a', 'c', 'd', 'l', 'f', 'j', 'v':
+	    call printf ("again:")
+	    nitems = clgcur ("cursor", c, d, wcs, key, strval, SZ_LINE)
+	    call printf ("\n")
+	    if (!IS_INDEF(a))
+	        x1 = nint (a)
+	    if (!IS_INDEF(b))
+	        y1 = nint (b)
+	    if (!IS_INDEF(c))
+	        x2 = nint (c)
+	    if (!IS_INDEF(d))
+	        y2 = nint (d)
+	    if (key == 'f' || key == 'v') {
+	        if (abs (x2-x1) > abs (y2-y1))
+	            ap = APLDIAG
+	        else
+	            ap = APCDIAG
+	    } else
+	        ap = APRECTANGLE
+	case 'b', 'e', 'k', 'm', 'n', 'p', 's', ' ':
+	    if (!IS_INDEF(a)) {
+	        x1 = nint (a - EP_RADIUS(ep))
+	        x2 = nint (a + EP_RADIUS(ep))
+	    }
+	    if (!IS_INDEF(b)) {
+	        y1 = nint (b - EP_RADIUS(ep))
+	        y2 = nint (b + EP_RADIUS(ep))
+	    }
+	    ap = EP_APERTURE(ep)
+	case 'E':
+	    call printf ("again:")
+	    nitems = clgcur ("cursor", c, d, wcs, key, strval, SZ_LINE)
+	    call printf ("\n")
+	    if (!IS_INDEF(a))
+	        x1 = nint (a)
+	    if (!IS_INDEF(b))
+	        y1 = nint (b)
+	    if (!IS_INDEF(c))
+	        x2 = nint (c)
+	    if (!IS_INDEF(d))
+	        y2 = nint (d)
+	default:
+	    if (!IS_INDEF(a))
+	        x1 = nint (a)
+	    if (!IS_INDEF(b))
+	        y1 = nint (b)
+	}
+
+	return (nitems)
+end