From fa080de7afc95aa1c19a6e6fc0e0708ced2eadc4 Mon Sep 17 00:00:00 2001
From: Joseph Hunkeler <jhunkeler@gmail.com>
Date: Wed, 8 Jul 2015 20:46:52 -0400
Subject: Initial commit

---
 pkg/images/tv/tvmark/mkgpars.x | 65 ++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 65 insertions(+)
 create mode 100644 pkg/images/tv/tvmark/mkgpars.x

(limited to 'pkg/images/tv/tvmark/mkgpars.x')

diff --git a/pkg/images/tv/tvmark/mkgpars.x b/pkg/images/tv/tvmark/mkgpars.x
new file mode 100644
index 00000000..095ed3f7
--- /dev/null
+++ b/pkg/images/tv/tvmark/mkgpars.x
@@ -0,0 +1,65 @@
+include <ctype.h>
+include "tvmark.h"
+
+# MK_GPARS -- Fetch the parameters required for the imark task from the cl.
+
+procedure mk_gpars (mk)
+
+pointer	mk		# pointer to the immark structure
+
+int	mark, dotsize, ip
+pointer	sp, str
+real	ratio
+bool	clgetb()
+int	clgwrd(), clgeti(), nscan(), btoi(), mk_stati()
+real	clgetr()
+
+begin
+	# Allocate working space.
+	call smark (sp)
+	call salloc (str, SZ_LINE, TY_CHAR)
+
+	# Initialize the immark structure.
+	call mk_init (mk)
+
+	# Get the mark parameters.
+	mark = clgwrd ("mark", Memc[str], SZ_FNAME, MKTYPELIST)
+	if (mark > 0) {
+	    call mk_sets (mk, MARK, Memc[str])
+	    call mk_seti (mk, MKTYPE, mark)
+	} else {
+	    call mk_sets (mk, MARK, "point")
+	    call mk_seti (mk, MKTYPE, MK_POINT)
+	}
+
+	# Get the circles descriptor.
+	call clgstr ("radii", Memc[str], SZ_FNAME)
+	call mk_sets (mk, CSTRING, Memc[str])
+
+	# Get the rectangles descriptor.
+	ip = 1
+	call clgstr ("lengths", Memc[str], SZ_LINE)
+	call sscan (Memc[str])
+	    call gargwrd (Memc[str], SZ_LINE)
+	call mk_sets (mk, RSTRING, Memc[str])
+	call gargr (ratio)
+	if (nscan () < 2 || mk_stati (mk, NRECTANGLES) < 1)
+	    call mk_setr (mk, RATIO, 1.0)
+	else
+	    call mk_setr (mk, RATIO, ratio)
+
+	# Get the rest of the parameters.
+	call mk_seti (mk, NUMBER, btoi (clgetb ("number")))
+	call mk_seti (mk, LABEL, btoi (clgetb ("label")))
+	call mk_seti (mk, SIZE, clgeti ("txsize"))
+	dotsize = clgeti ("pointsize")
+	if (mod (dotsize, 2) == 0)
+	    dotsize = dotsize + 1
+	call mk_seti (mk, SZPOINT, dotsize / 2)
+	call mk_seti (mk, GRAYLEVEL, clgeti ("color"))
+	call mk_seti (mk, NXOFFSET, clgeti ("nxoffset"))
+	call mk_seti (mk, NYOFFSET, clgeti ("nyoffset"))
+	call mk_setr (mk, TOLERANCE, clgetr ("tolerance"))
+
+	call sfree (sp)
+end
-- 
cgit