From ecc2e53e7835f6cf3650f323cb13df37c8cb8ae3 Mon Sep 17 00:00:00 2001
From: Jaap Akkerhuis <jaap@ucbvax.Berkeley.EDU>
Date: Fri, 19 Jul 1985 22:37:17 -0800
Subject: [PATCH] date and time created 85/07/19 15:37:17 by jaap

SCCS-vsn: local/ditroff/ditroff.okeeffe/grap/frame.c 1.1
---
 .../ditroff/ditroff.okeeffe/grap/frame.c      | 77 +++++++++++++++++++
 1 file changed, 77 insertions(+)
 create mode 100644 usr/src/local/ditroff/ditroff.okeeffe/grap/frame.c

diff --git a/usr/src/local/ditroff/ditroff.okeeffe/grap/frame.c b/usr/src/local/ditroff/ditroff.okeeffe/grap/frame.c
new file mode 100644
index 0000000000..7aeeb703aa
--- /dev/null
+++ b/usr/src/local/ditroff/ditroff.okeeffe/grap/frame.c
@@ -0,0 +1,77 @@
+#ifndef lint
+static char sccsid[] = "@(#)frame.c	1.1 (CWI) 85/07/19";
+#endif lint
+#include <stdio.h>
+#include "grap.h"
+#include "y.tab.h"
+
+double	frame_ht;	/* default frame height */
+double	frame_wid;	/* and width */
+
+int	nsides	= 0;		/* how many sides given on this frame */
+char	*sides[] = {
+		"\tline from Frame.nw to Frame.ne",
+		"\tline from Frame.sw to Frame.se",
+		"\tline from Frame.sw to Frame.nw",
+		"\tline from Frame.se to Frame.ne"
+};
+char	*newsides[4] = { 0, 0, 0, 0 };	/* filled in later */
+
+frame()		/* pump out frame definition, reset for next */
+{
+	int i;
+
+	fprintf(tfd, "\tframeht = %g\n", frame_ht);
+	fprintf(tfd, "\tframewid = %g\n", frame_wid);
+	fprintf(tfd, "Frame:\tbox ht frameht wid framewid with .sw at 0,0 ");
+	if (nsides == 0)
+		fprintf(tfd, "\n");
+	else {
+		fprintf(tfd, "invis\n");
+		for (i = 0; i < 4; i++) {
+			if (newsides[i]) {
+				fprintf(tfd, "%s\n", newsides[i]);
+				free(newsides[i]);
+				newsides[i] = 0;
+			} else
+				fprintf(tfd, "%s\n", sides[i]);
+		}
+		nsides = 0;
+	}
+}
+
+frameht(f)	/* set height of frame */
+	double f;
+{
+	frame_ht = f;
+}
+
+framewid(f)	/* set width of frame */
+	double f;
+{
+	frame_wid = f;
+}
+
+frameside(type, desc)	/* create and remember sides */
+	int type;
+	Attr *desc;
+{
+	int n;
+	char buf[100];
+
+	nsides++;
+	switch (type) {
+	case 0:		/* no side specified; kludge up all */
+		frameside(TOP, desc);
+		frameside(BOT, desc);
+		frameside(LEFT, desc);
+		frameside(RIGHT, desc);
+		return;
+	case TOP:	n = 0; break;
+	case BOT:	n = 1; break;
+	case LEFT:	n = 2; break;
+	case RIGHT:	n = 3; break;
+	}
+	sprintf(buf, "%s %s", sides[n], desc_str(desc));
+	newsides[n] = tostring(buf);
+}
-- 
2.20.1