1 files changed, 40 insertions, 0 deletions
diff --git a/pkg/images/tv/tvmark/mkppars.x b/pkg/images/tv/tvmark/mkppars.x
new file mode 100644
index 00000000..16fdf8c5
--- /dev/null
+++ b/pkg/images/tv/tvmark/mkppars.x
@@ -0,0 +1,40 @@
+include <ctype.h>
+include "tvmark.h"
+
+# MK_PPARS -- Store the IMMARK parameters.
+
+procedure mk_ppars (mk)
+
+pointer	mk		# pointer to the immark structure
+
+pointer	sp, str
+bool	itob()
+int	mk_stati()
+real	mk_statr()
+
+begin
+	# Allocate working space.
+	call smark (sp)
+	call salloc (str, SZ_LINE, TY_CHAR)
+
+	# Store the mark type.
+	call mk_stats (mk, MARK, Memc[str], SZ_LINE)
+	call clpstr ("mark", Memc[str])
+
+	# Store the circle and rectangles descriptors.
+	call mk_stats (mk, CSTRING, Memc[str], SZ_LINE)
+	call clpstr ("radii", Memc[str])
+	call mk_stats (mk, RSTRING, Memc[str], SZ_LINE)
+	call clpstr ("lengths", Memc[str])
+
+	call clputb ("number", itob (mk_stati (mk, NUMBER)))
+	call clputb ("label", itob (mk_stati (mk, LABEL)))
+	call clputi ("txsize", mk_stati (mk, SIZE))
+	call clputi ("pointsize", 2 * mk_stati (mk, SZPOINT) + 1)
+	call clputi ("color", mk_stati (mk, GRAYLEVEL))
+	call clputi ("nxoffset", mk_stati (mk, NXOFFSET))
+	call clputi ("nyoffset", mk_stati (mk, NYOFFSET))
+	call clputr ("tolerance", mk_statr (mk, TOLERANCE))
+
+	call sfree (sp)
+end