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

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

diff --git a/usr/src/local/ditroff/ditroff.okeeffe/grap/ticks.c b/usr/src/local/ditroff/ditroff.okeeffe/grap/ticks.c
new file mode 100644
index 0000000000..951f25c300
--- /dev/null
+++ b/usr/src/local/ditroff/ditroff.okeeffe/grap/ticks.c
@@ -0,0 +1,480 @@
+#ifndef lint
+static char sccsid[] = "@(#)ticks.c	1.1 (CWI) 85/07/19";
+#endif lint
+#include <stdio.h>
+#include "grap.h"
+#include "y.tab.h"
+
+#define	MAXTICK	200
+int	ntick	= 0;
+double	tickval[MAXTICK];	/* tick values (one axis at a time */
+char	*tickstr[MAXTICK];	/* and labels */
+
+int	tside	= 0;
+int	tlist	= 0;		/* 1 => explicit values given */
+int	toffside = 0;		/* no ticks on these sides */
+int	tick_dir = OUT;
+double	ticklen	= TICKLEN;	/* default tick length */
+int	autoticks = LEFT|BOT;
+
+savetick(f, s)	/* remember tick location and label */
+	double f;
+	char *s;
+{
+	if (ntick >= MAXTICK)
+		fatal("too many ticks (%d)", MAXTICK);
+	tickval[ntick] = f;
+	tickstr[ntick] = s;
+	ntick++;
+}
+
+tickside(n)	/* remember which side these ticks go on */
+	int n;
+{
+	tside |= n;
+}
+
+tickoff(side)	/* remember explicit sides */
+	int side;
+{
+	toffside |= side;
+}
+
+setlist()	/* remember that there was an explicit list */
+{
+	tlist = 1;
+}
+
+tickdir(dir, val, explicit)	/* remember in/out [expr] */
+	int dir, explicit;
+	double val;
+{
+	tick_dir = dir;
+	if (explicit)
+		ticklen = val;
+}
+
+ticks()		/* set autoticks after ticks statement */
+{
+	/* was there an explicit "ticks [side] off"? */
+	if (toffside)
+		autoticks &= ~toffside;
+	/* was there an explicit list? */
+	if (tlist) {
+		if (tside & (BOT|TOP))
+			autoticks &= ~(BOT|TOP);
+		if (tside & (LEFT|RIGHT))
+			autoticks &= ~(LEFT|RIGHT);
+	}
+	/* was there a side without a list? */
+	if (tside && !tlist) {
+		if (tside & (BOT|TOP))
+			autoticks = (autoticks & ~(BOT|TOP)) | (tside & (BOT|TOP));
+		if (tside & (LEFT|RIGHT))
+			autoticks = (autoticks & ~(LEFT|RIGHT)) | (tside & (LEFT|RIGHT));
+	}
+	tlist = tside = toffside = 0;
+}
+
+double modfloor(f, t)
+	double f, t;
+{
+	t = fabs(t);
+	return floor(f/t) * t;
+}
+
+double modceil(f, t)
+	double f, t;
+{
+	t = fabs(t);
+	return ceil(f/t) * t;
+}
+
+double	xtmin, xtmax;	/* range of ticks */
+double	ytmin, ytmax;
+double	xquant, xmult;	/* quantization & scale for auto x ticks */
+double	yquant, ymult;
+double	lograt = 5;
+
+do_autoticks(p)	/* make set of ticks for default coord only */
+	Obj *p;
+{
+	double x, xl, xu, q;
+
+	if (p == NULL)
+		return;
+	fprintf(tfd, "Autoticks:\t# x %g..%g, y %g..%g",
+		p->pt.x, p->pt1.x, p->pt.y, p->pt1.y);
+	fprintf(tfd, ";   xt %g,%g, yt %g,%g, xq,xm = %g,%g, yq,ym = %g,%g\n",
+		xtmin, xtmax, ytmin, ytmax, xquant, xmult, yquant, ymult);
+	if ((autoticks & (BOT|TOP)) && p->pt1.x > p->pt.x) {	/* make x ticks */
+		q = xquant;
+		xl = p->pt.x;
+		xu = p->pt1.x;
+		if ((p->log & XFLAG) && xu/xl >= lograt) {
+			for (x = q; x < xu; x *= 10) {
+				logtick(x, xl, xu);
+				if (xu/xl <= 100) {
+					logtick(2*x, xl, xu);
+					logtick(5*x, xl, xu);
+				}
+			}
+		} else {
+			xl = modceil(xtmin - q/100, q);
+			xu = modfloor(xtmax + q/100, q) + q/2;
+			for (x = xl; x <= xu; x += q)
+				savetick(x, tostring("%g"));
+		}
+		tside = autoticks & (BOT|TOP);
+		ticklist(p);
+	}
+	if ((autoticks & (LEFT|RIGHT)) && p->pt1.y > p->pt.y) {	/* make y ticks */
+		q = yquant;
+		xl = p->pt.y;
+		xu = p->pt1.y;
+		if ((p->log & YFLAG) && xu/xl >= lograt) {
+			for (x = q; x < xu; x *= 10) {
+				logtick(x, xl, xu);
+				if (xu/xl <= 100) {
+					logtick(2*x, xl, xu);
+					logtick(5*x, xl, xu);
+				}
+			}
+		} else {
+			xl = modceil(ytmin - q/100, q);
+			xu = modfloor(ytmax + q/100, q) + q/2;
+			for (x = xl; x <= xu; x += q)
+				savetick(x, tostring("%g"));
+		}
+		tside = autoticks & (LEFT|RIGHT);
+		ticklist(p);
+	}
+}
+
+logtick(v, lb, ub)
+	double v, lb, ub;
+{
+	float slop = 1.0;	/* was 1.001 */
+
+	if (slop * lb <= v && ub >= slop * v)
+		savetick(v, tostring("%g"));
+}
+
+Obj *setauto()	/* compute new min,max, and quant & mult */
+{
+	Obj *p, *q;
+
+	if ((q = lookup("lograt",0)) != NULL)
+		lograt = q->fval;
+	for (p = objlist; p; p = p->next)
+		if (p->type == NAME && strcmp(p->name,dflt_coord) == 0)
+			break;
+	if (p) {
+		if ((p->log & XFLAG) && p->pt1.x/p->pt.x >= lograt)
+			autolog(p, 'x');
+		else
+			autoside(p, 'x');
+		if ((p->log & YFLAG) && p->pt1.y/p->pt.y >= lograt)
+			autolog(p, 'y');
+		else
+			autoside(p, 'y');
+	}
+	return p;
+}
+
+autoside(p, side)
+	Obj *p;
+	int side;
+{
+	double r, s, d, ub, lb;
+
+	if (side == 'x') {
+		xtmin = lb = p->pt.x;
+		xtmax = ub = p->pt1.x;
+	} else {
+		ytmin = lb = p->pt.y;
+		ytmax = ub = p->pt1.y;
+	}
+	if (ub <= lb)
+		return 0;	/* cop out on little ranges */
+	d = ub - lb;
+	r = s = 1;
+	while (d * s < 10)
+		s *= 10;
+	d *= s;
+	lb *= s;
+	ub *= s;
+	while (10 * r < d)
+		r *= 10;
+	if (r > d/3)
+		r /= 2;
+	else if (r <= d/6)
+		r *= 2;
+	if (side == 'x') {
+		xquant = r / s;
+	} else {
+		yquant = r / s;
+	}
+}
+
+autolog(p, side)
+	Obj *p;
+	int side;
+{
+	double r, s, t, d, ub, lb;
+	int flg;
+
+	if (side == 'x') {
+		xtmin = lb = p->pt.x;
+		xtmax = ub = p->pt1.x;
+		flg = p->coord & XFLAG;
+	} else {
+		ytmin = lb = p->pt.y;
+		ytmax = ub = p->pt1.y;
+		flg = p->coord & YFLAG;
+	}
+	for (s = 1; lb * s < 1; s *= 10)
+		;
+	lb *= s;
+	ub *= s;
+	for (r = 1; 10 * r < lb; r *= 10)
+		;
+	for (t = 1; t < ub; t *= 10)
+		;
+	if (side == 'x')
+		xquant = r / s;
+	else
+		yquant = r / s;
+	if (flg)
+		return;
+	if (ub / lb < 100) {
+		if (lb >= 5 * r)
+			r *= 5;
+		else if (lb >= 2 * r)
+			r *= 2;
+		if (ub * 5 <= t)
+			t /= 5;
+		else if (ub * 2 <= t)
+			t /= 2;
+		if (side == 'x') {
+			xtmin = r / s;
+			xtmax = t / s;
+		} else {
+			ytmin = r / s;
+			ytmax = t / s;
+		}
+	}
+}
+
+iterator(from, to, op, by, fmt)	/* create an iterator */
+	double from, to, by;
+	int op;
+	char *fmt;
+{
+	double x;
+
+	/* should validate limits, etc. */
+	/* punt for now */
+
+	if (fmt == NULL)
+		fmt = tostring("%g");
+	dprintf("iterate from %g to %g by %g, op = %c, fmt=%s\n",
+		from, to, by, op, fmt);
+	switch (op) {
+	case '+':
+	case ' ':
+		for (x = from; x <= SLOP * to; x += by)
+			savetick(x, tostring(fmt));
+		break;
+	case '-':
+		for (x = from; x >= to; x -= by)
+			savetick(x, tostring(fmt));
+		break;
+	case '*':
+		for (x = from; x <= SLOP * to; x *= by)
+			savetick(x, tostring(fmt));
+		break;
+	case '/':
+		for (x = from; x >= to; x /= by)
+			savetick(x, tostring(fmt));
+		break;
+	}
+	if (fmt)
+		free(fmt);
+}
+
+ticklist(p)	/* fire out the accumulated ticks */
+	Obj *p;
+{
+	if (p == NULL)
+		return;
+	fprintf(tfd, "Ticks_%s:\n\tticklen = %g\n", p->name, ticklen);
+	print_ticks(TICKS, p, "ticklen", "");
+}
+
+print_ticks(type, p, lenstr, descstr)
+	int type;
+	Obj *p;
+	char *lenstr, *descstr;
+{
+	int i, logflag;
+	char buf[100];
+	double tv;
+
+	for (i = 0; i < ntick; i++)	/* any ticks given explicitly? */
+		if (tickstr[i] != NULL)
+			break;
+	if (i >= ntick && type == TICKS)	/* no, so use values */
+		for (i = 0; i < ntick; i++) {
+			sprintf(buf, "%g", tickval[i]);
+			tickstr[i] = tostring(buf);
+		}
+	else
+		for (i = 0; i < ntick; i++) {
+			if (tickstr[i] != NULL) {
+				sprintf(buf, tickstr[i], tickval[i]);
+				free(tickstr[i]);
+				tickstr[i] = tostring(buf);
+			}
+		}
+	logflag = sidelog(p->log, tside);
+	for (i = 0; i < ntick; i++) {
+		tv = tickval[i];
+		halfrange(p, tside, tv);
+		if (logflag) {
+			if (tv <= 0.0)
+				fatal("can't take log of tick value %g", tv);
+			logit(tv);
+		}
+		if (tside & BOT)
+			maketick(p->name, BOT, tv, tickstr[i], lenstr, descstr);
+		if (tside & TOP)
+			maketick(p->name, TOP, tv, tickstr[i], lenstr, descstr);
+		if (tside & LEFT)
+			maketick(p->name, LEFT, tv, tickstr[i], lenstr, descstr);
+		if (tside & RIGHT)
+			maketick(p->name, RIGHT, tv, tickstr[i], lenstr, descstr);
+		if (tickstr[i]) {
+			free(tickstr[i]);
+			tickstr[i] = NULL;
+		}
+	}
+	ntick = 0;
+}
+
+maketick(name, side, val, lab, lenstr, descstr)
+	char *name;
+	int side;
+	double val;
+	char *lab, *lenstr, *descstr;
+{
+	char *sidestr, *td;
+
+	fprintf(tfd, "\tline %s ", descstr);
+	switch (side) {
+	case BOT:
+	case 0:
+		td = tick_dir == IN ? "up" : "down";
+		fprintf(tfd, "%s %s from (x_%s(%g),0)", td, lenstr, name, val);
+		break;
+	case TOP:
+		td = tick_dir == IN ? "down" : "up";
+		fprintf(tfd, "%s %s from (x_%s(%g),frameht)", td, lenstr, name, val);
+		break;
+	case LEFT:
+		td = tick_dir == IN ? "right" : "left";
+		fprintf(tfd, "%s %s from (0,y_%s(%g))", td, lenstr, name, val);
+		break;
+	case RIGHT:
+		td = tick_dir == IN ? "left" : "right";
+		fprintf(tfd, "%s %s from (framewid,y_%s(%g))", td, lenstr, name, val);
+		break;
+	}
+	fprintf(tfd, "\n");
+	sidestr = tick_dir == IN ? "start" : "end";
+	if (lab != NULL) {
+		/* BUG: should fix size of lab here */
+		switch (side) {
+		case BOT: case 0:
+			/* can drop "box invis" with new pic */
+			fprintf(tfd, "\tbox invis \"%s\" ht .25 wid 0 with .n at last line.%s",
+				lab, sidestr);
+			break;
+		case TOP:
+			fprintf(tfd, "\tbox invis \"%s\" ht .2 wid 0 with .s at last line.%s",
+				lab, sidestr);
+			break;
+		case LEFT:
+			fprintf(tfd, "\t\"%s \" rjust at last line.%s",
+				lab, sidestr);
+			break;
+		case RIGHT:
+			fprintf(tfd, "\t\" %s\" ljust at last line.%s",
+				lab, sidestr);
+			break;
+		}
+		/* BUG: works only if "down x" comes before "at wherever" */
+		lab_adjust();
+		fprintf(tfd, "\n");
+	}
+}
+
+Attr	*grid_desc	= 0;
+
+griddesc(a)
+	Attr *a;
+{
+	grid_desc = a;
+}
+
+gridlist(p)
+	Obj *p;
+{
+	int i, logflag;
+	double tv;
+	char *framestr;
+
+	if ((tside & (BOT|TOP)) || tside == 0)
+		framestr = "frameht";
+	else
+		framestr = "framewid";
+	fprintf(tfd, "Grid_%s:\n", p->name);
+	tick_dir = IN;
+	print_ticks(GRID, p, framestr, desc_str(grid_desc));
+	if (grid_desc) {
+		freeattr(grid_desc);
+		free(grid_desc);
+		grid_desc = 0;
+	}
+}
+
+char *desc_str(a)	/* convert DOT to "dotted", etc. */
+	Attr *a;
+{
+	static char buf[50], *p;
+
+	if (a == NULL)
+		return p = "";
+	switch (a->type) {
+	case DOT:	p = "dotted"; break;
+	case DASH:	p = "dashed"; break;
+	case INVIS:	p = "invis"; break;
+	default:	p = "";
+	}
+	if (a->fval != 0.0) {
+		sprintf(buf, "%s %g", p, a->fval);
+		return buf;
+	} else
+		return p;
+}
+
+sidelog(logflag, side)	/* figure out whether to scale a side */
+	int logflag, side;
+{
+	if ((logflag & XFLAG) && ((side & (BOT|TOP)) || side == 0))
+		return 1;
+	else if ((logflag & YFLAG) && (side & (LEFT|RIGHT)))
+		return 1;
+	else
+		return 0;
+}
-- 
2.20.1