[unix-history] / usr / src / cmd / plot / vplot.c

/*
 * Reads standard graphics input
 * Makes a plot on a 200 dot-per-inch 11" wide
 * Versatek plotter.
 *
 * Creates and leaves /usr/tmp/raster (1000 blocks)
 * which is the bitmap
 */
#include "stdio.h"
#include <signal.h>

#define	NB	88
#define BSIZ	512
#define	mapx(x)	((1536*((x)-botx)/del)+centx)
#define	mapy(y)	((1536*(del-(y)+boty)/del)-centy)
#define SOLID -1
#define DOTTED 014
#define SHORTDASHED 034
#define DOTDASHED 054
#define LONGDASHED 074
#define	SETSTATE	(('v'<<8)+1)

int	linmod	= SOLID;
int	again;
int	done1;
char	chrtab[][16];
int	plotcom[]	= { 0200, 0, 0};
int	eotcom[]		= { 0210, 0, 0};
char	blocks	[NB][BSIZ];
int	obuf[264];
int	lastx;
int	lasty;
double	topx	= 1536;
double	topy	= 1536;
double	botx	= 0;
double	boty	= 0;
int	centx;
int	centy;
double	delx	= 1536;
double	dely	= 1536;
double	del	= 1536;

struct	buf {
	int	bno;
	char	*block;
};
struct	buf	bufs[NB];

int	in, out;
char *picture = "/usr/tmp/raster";

main(argc, argv)
char **argv;
{
	extern int onintr();
	register i;

	if (argc>1) {
		in = open(argv[1], 0);
		putpict();
		exit(0);
	}
	signal(SIGTERM, onintr);
	if (signal(SIGINT, SIG_IGN) != SIG_IGN)
		signal(SIGINT, onintr);
another:
	for (i=0; i<NB; i++) {
		bufs[i].bno = -1;
		bufs[i].block = blocks[i];
	}
	out = creat(picture, 0666);
	in = open(picture, 0);
	zseek(out, 32*32);
	write(out, blocks[0], BSIZ);
/*delete following code when filsys deals properly with
holes in files*/
	for(i=0;i<512;i++)
		blocks[0][i] = 0;
	zseek(out, 0);
	for(i=0;i<32*32;i++)
		write(out,blocks[0],512);
/**/
	getpict();
	for (i=0; i<NB; i++)
		if (bufs[i].bno != -1) {
			zseek(out, bufs[i].bno);
			write(out, bufs[i].block, BSIZ);
		}
	putpict();
	if (again) {
		close(in);
		close(out);
		goto another;
	}
	exit(0);
}

getpict()
{
	register x1, y1;

	again = 0;
	for (;;) switch (x1 = getc(stdin)) {

	case 's':
		botx = getw(stdin);
		boty = getw(stdin);
		topx = getw(stdin);
		topy = getw(stdin);
		delx = topx-botx;
		dely = topy-boty;
		if (dely/delx > 1536./2048.)
			del = dely;
		else
			del = delx * (1566./2048.);
		centx = 0;
		centx = (2048 - mapx(topx)) / 2;
		centy = 0;
		centy = mapy(topy) / 2;
		continue;

	case 'l':
		done1 |= 01;
		x1 = mapx(getw(stdin));
		y1 = mapy(getw(stdin));
		lastx = mapx(getw(stdin));
		lasty = mapy(getw(stdin));
		line(x1, y1, lastx, lasty);
		continue;

	case 'm':
		lastx = mapx(getw(stdin));
		lasty = mapy(getw(stdin));
		continue;

	case 't':
		done1 |= 01;
		while ((x1 = getc(stdin)) != '\n')
			plotch(x1);
		continue;

	case 'e':
		if (done1) {
			again++;
			return;
		}
		continue;

	case 'p':
		done1 |= 01;
		lastx = mapx(getw(stdin));
		lasty = mapy(getw(stdin));
		point(lastx, lasty);
		point(lastx+1, lasty);
		point(lastx, lasty+1);
		point(lastx+1, lasty+1);
		continue;

	case 'n':
		done1 |= 01;
		x1 = mapx(getw(stdin));
		y1 = mapy(getw(stdin));
		line(lastx, lasty, x1, y1);
		lastx = x1;
		lasty = y1;
		continue;

	case 'f':
		getw(stdin);
		getc(stdin);
		switch(getc(stdin)) {
		case 't':
			linmod = DOTTED;
			break;
		default:
		case 'i':
			linmod = SOLID;
			break;
		case 'g':
			linmod = LONGDASHED;
			break;
		case 'r':
			linmod = SHORTDASHED;
			break;
		case 'd':
			linmod = DOTDASHED;
			break;
		}
		while((x1=getc(stdin))!='\n')
			if(x1==-1) return;
		continue;

	case 'd':
		getw(stdin);
		getw(stdin);
		getw(stdin);
		x1 = getw(stdin);
		while (--x1 >= 0)
			getw(stdin);
		continue;

	case -1:
		return;

	default:
		printf("Botch\n");
		return;
	}
}

plotch(c)
register c;
{
	register j;
	register char *cp;
	int i;

	if (c<' ' || c >0177)
		return;
	cp = chrtab[c-' '];
	for (i = -16; i<16; i += 2) {
		c = *cp++;
		for (j=7; j>=0; --j)
			if ((c>>j)&1) {
				point(lastx+6-j*2, lasty+i);
				point(lastx+7-j*2, lasty+i);
				point(lastx+6-j*2, lasty+i+1);
				point(lastx+7-j*2, lasty+i+1);
			}
	}
	lastx += 16;
}

int	f; /* versatec file number */
putpict()
{
	register x, *ip, *op;
	int y;

	if (f==0){
		f = open("/dev/vp0", 1);
		if (f < 0) {
			printf("Cannot open vp\n");
			exit(1);
		}
		ioctl(f, SETSTATE, plotcom);
	}
	op = obuf;
	lseek(in, 0L, 0);
	for (y=0; y<2048; y++) {
		if ((y&077) == 0)
			read(in, blocks[0], 32*BSIZ);
		for (x=0; x<32; x++)  {
			ip = (int *)&blocks[x][(y&077)<<3];
			*op++ = *ip++;
			*op++ = *ip++;
			*op++ = *ip++;
			*op++ = *ip++;
		}
		*op++ = 0;
		*op++ = 0;
		*op++ = 0;
		*op++ = 0;
		if (y&1) {
			write(f, (char *)obuf, sizeof(obuf));
			op = obuf;
		}
	}
}

line(x0, y0, x1, y1)
register x0, y0;
{
	int dx, dy;
	int xinc, yinc;
	register res1;
	int res2;
	int slope;

	xinc = 1;
	yinc = 1;
	if ((dx = x1-x0) < 0) {
		xinc = -1;
		dx = -dx;
	}
	if ((dy = y1-y0) < 0) {
		yinc = -1;
		dy = -dy;
	}
	slope = xinc*yinc;
	res1 = 0;
	res2 = 0;
	if (dx >= dy) while (x0 != x1) {
	if((x0+slope*y0)&linmod)
	if (((x0>>6) + ((y0&~077)>>1)) == bufs[0].bno)
		bufs[0].block[((y0&077)<<3)+((x0>>3)&07)] |= 1 << (7-(x0&07));
	else
		point(x0, y0);
		if (res1 > res2) {
			res2 += dx - res1;
			res1 = 0;
			y0 += yinc;
		}
		res1 += dy;
		x0 += xinc;
	} else while (y0 != y1) {
	if((x0+slope*y0)&linmod)
	if (((x0>>6) + ((y0&~077)>>1)) == bufs[0].bno)
		bufs[0].block[((y0&077)<<3)+((x0>>3)&07)] |= 1 << (7-(x0&07));
	else
		point(x0, y0);
		if (res1 > res2) {
			res2 += dy - res1;
			res1 = 0;
			x0 += xinc;
		}
		res1 += dx;
		y0 += yinc;
	}
	if((x1+slope*y1)&linmod)
	if (((x1>>6) + ((y1&~077)>>1)) == bufs[0].bno)
		bufs[0].block[((y1&077)<<3)+((x1>>3)&07)] |= 1 << (7-(x1&07));
	else
		point(x1, y1);
}

point(x, y)
register x, y;
{
	register bno;

	bno = ((x&03700)>>6) + ((y&03700)>>1);
	if (bno != bufs[0].bno) {
		if (bno < 0 || bno >= 1024)
			return;
		getblk(bno);
	}
	bufs[0].block[((y&077)<<3)+((x>>3)&07)] |= 1 << (7-(x&07));
}

getblk(b)
register b;
{
	register struct buf *bp1, *bp2;
	register char *tp;

loop:
	for (bp1 = bufs; bp1 < &bufs[NB]; bp1++) {
		if (bp1->bno == b || bp1->bno == -1) {
			tp = bp1->block;
			for (bp2 = bp1; bp2>bufs; --bp2) {
				bp2->bno = (bp2-1)->bno;
				bp2->block = (bp2-1)->block;
			}
			bufs[0].bno = b;
			bufs[0].block = tp;
			return;
		}
	}
	zseek(out, bufs[NB-1].bno);
	write(out, bufs[NB-1].block, BSIZ);
	zseek(in, b);
	read(in, bufs[NB-1].block, BSIZ);
	bufs[NB-1].bno = b;
	goto loop;
}

onintr()
{
	exit(1);
}

zseek(a, b)
{
	return(lseek(a, (long)b*512, 0));
}
Commit	Line	Data
2fb69548 TL	1	/*
	2	* Reads standard graphics input
	3	* Makes a plot on a 200 dot-per-inch 11" wide
	4	* Versatek plotter.
	5	*
	6	* Creates and leaves /usr/tmp/raster (1000 blocks)
	7	* which is the bitmap
	8	*/
	9	#include "stdio.h"
	10	#include <signal.h>
	11
	12	#define NB 88
	13	#define BSIZ 512
	14	#define mapx(x) ((1536*((x)-botx)/del)+centx)
	15	#define mapy(y) ((1536*(del-(y)+boty)/del)-centy)
	16	#define SOLID -1
	17	#define DOTTED 014
	18	#define SHORTDASHED 034
	19	#define DOTDASHED 054
	20	#define LONGDASHED 074
	21	#define SETSTATE (('v'<<8)+1)
	22
	23	int linmod = SOLID;
	24	int again;
	25	int done1;
	26	char chrtab[][16];
	27	int plotcom[] = { 0200, 0, 0};
	28	int eotcom[] = { 0210, 0, 0};
	29	char blocks [NB][BSIZ];
	30	int obuf[264];
	31	int lastx;
	32	int lasty;
	33	double topx = 1536;
	34	double topy = 1536;
	35	double botx = 0;
	36	double boty = 0;
	37	int centx;
	38	int centy;
	39	double delx = 1536;
	40	double dely = 1536;
	41	double del = 1536;
	42
	43	struct buf {
	44	int bno;
	45	char *block;
	46	};
	47	struct buf bufs[NB];
	48
	49	int in, out;
	50	char *picture = "/usr/tmp/raster";
	51
	52	main(argc, argv)
	53	char **argv;
	54	{
	55	extern int onintr();
	56	register i;
	57
	58	if (argc>1) {
	59	in = open(argv[1], 0);
	60	putpict();
	61	exit(0);
	62	}
	63	signal(SIGTERM, onintr);
	64	if (signal(SIGINT, SIG_IGN) != SIG_IGN)
65	signal(SIGINT, onintr);
66	another:
67	for (i=0; i<NB; i++) {
68	bufs[i].bno = -1;
69	bufs[i].block = blocks[i];
70	}
71	out = creat(picture, 0666);
72	in = open(picture, 0);
73	zseek(out, 32*32);
74	write(out, blocks[0], BSIZ);
75	/*delete following code when filsys deals properly with
76	holes in files*/
77	for(i=0;i<512;i++)
78	blocks[0][i] = 0;
79	zseek(out, 0);
80	for(i=0;i<32*32;i++)
81	write(out,blocks[0],512);
82	/**/
83	getpict();
84	for (i=0; i<NB; i++)
85	if (bufs[i].bno != -1) {
86	zseek(out, bufs[i].bno);
87	write(out, bufs[i].block, BSIZ);
88	}
89	putpict();
90	if (again) {
91	close(in);
92	close(out);
93	goto another;
94	}
95	exit(0);
96	}
97
98	getpict()
99	{
100	register x1, y1;
101
102	again = 0;
103	for (;;) switch (x1 = getc(stdin)) {
104
105	case 's':
106	botx = getw(stdin);
107	boty = getw(stdin);
108	topx = getw(stdin);
109	topy = getw(stdin);
110	delx = topx-botx;
111	dely = topy-boty;
112	if (dely/delx > 1536./2048.)
113	del = dely;
114	else
115	del = delx * (1566./2048.);
116	centx = 0;
117	centx = (2048 - mapx(topx)) / 2;
118	centy = 0;
119	centy = mapy(topy) / 2;
120	continue;
121
122	case 'l':
123	done1 \|= 01;
124	x1 = mapx(getw(stdin));
125	y1 = mapy(getw(stdin));
126	lastx = mapx(getw(stdin));
127	lasty = mapy(getw(stdin));
128	line(x1, y1, lastx, lasty);
129	continue;
130
131	case 'm':
132	lastx = mapx(getw(stdin));
133	lasty = mapy(getw(stdin));
134	continue;
135
136	case 't':
137	done1 \|= 01;
138	while ((x1 = getc(stdin)) != '\n')
139	plotch(x1);
140	continue;
141
142	case 'e':
143	if (done1) {
144	again++;
145	return;
146	}
147	continue;
148
149	case 'p':
150	done1 \|= 01;
151	lastx = mapx(getw(stdin));
152	lasty = mapy(getw(stdin));
153	point(lastx, lasty);
154	point(lastx+1, lasty);
155	point(lastx, lasty+1);
156	point(lastx+1, lasty+1);
157	continue;
158
159	case 'n':
160	done1 \|= 01;
161	x1 = mapx(getw(stdin));
162	y1 = mapy(getw(stdin));
163	line(lastx, lasty, x1, y1);
164	lastx = x1;
165	lasty = y1;
166	continue;
167
168	case 'f':
169	getw(stdin);
170	getc(stdin);
171	switch(getc(stdin)) {
172	case 't':
173	linmod = DOTTED;
174	break;
175	default:
176	case 'i':
177	linmod = SOLID;
178	break;
179	case 'g':
180	linmod = LONGDASHED;
181	break;
182	case 'r':
183	linmod = SHORTDASHED;
184	break;
185	case 'd':
186	linmod = DOTDASHED;
187	break;
188	}
189	while((x1=getc(stdin))!='\n')
190	if(x1==-1) return;
191	continue;
192
193	case 'd':
194	getw(stdin);
195	getw(stdin);
196	getw(stdin);
197	x1 = getw(stdin);
198	while (--x1 >= 0)
199	getw(stdin);
200	continue;
201
202	case -1:
203	return;
204
205	default:
206	printf("Botch\n");
207	return;
208	}
209	}
210
211	plotch(c)
212	register c;
213	{
214	register j;
215	register char *cp;
216	int i;
217
218	if (c<' ' \|\| c >0177)
219	return;
220	cp = chrtab[c-' '];
221	for (i = -16; i<16; i += 2) {
222	c = *cp++;
223	for (j=7; j>=0; --j)
224	if ((c>>j)&1) {
225	point(lastx+6-j*2, lasty+i);
226	point(lastx+7-j*2, lasty+i);
227	point(lastx+6-j*2, lasty+i+1);
228	point(lastx+7-j*2, lasty+i+1);
229	}
230	}
231	lastx += 16;
232	}
233
234	int f; /* versatec file number */
235	putpict()
236	{
237	register x, ip, op;
238	int y;
239
240	if (f==0){
241	f = open("/dev/vp0", 1);
242	if (f < 0) {
243	printf("Cannot open vp\n");
244	exit(1);
245	}
246	ioctl(f, SETSTATE, plotcom);
247	}
248	op = obuf;
249	lseek(in, 0L, 0);
250	for (y=0; y<2048; y++) {
251	if ((y&077) == 0)
252	read(in, blocks[0], 32*BSIZ);
253	for (x=0; x<32; x++) {
254	ip = (int *)&blocks[x][(y&077)<<3];
255	op++ = ip++;
256	op++ = ip++;
257	op++ = ip++;
258	op++ = ip++;
259	}
260	*op++ = 0;
261	*op++ = 0;
262	*op++ = 0;
263	*op++ = 0;
264	if (y&1) {
265	write(f, (char *)obuf, sizeof(obuf));
266	op = obuf;
267	}
268	}
269	}
270
271	line(x0, y0, x1, y1)
272	register x0, y0;
273	{
274	int dx, dy;
275	int xinc, yinc;
276	register res1;
277	int res2;
278	int slope;
279
280	xinc = 1;
281	yinc = 1;
282	if ((dx = x1-x0) < 0) {
283	xinc = -1;
284	dx = -dx;
285	}
286	if ((dy = y1-y0) < 0) {
287	yinc = -1;
288	dy = -dy;
289	}
290	slope = xinc*yinc;
291	res1 = 0;
292	res2 = 0;
293	if (dx >= dy) while (x0 != x1) {
294	if((x0+slope*y0)&linmod)
295	if (((x0>>6) + ((y0&~077)>>1)) == bufs[0].bno)
296	bufs[0].block[((y0&077)<<3)+((x0>>3)&07)] \|= 1 << (7-(x0&07));
297	else
298	point(x0, y0);
299	if (res1 > res2) {
300	res2 += dx - res1;
301	res1 = 0;
302	y0 += yinc;
303	}
304	res1 += dy;
305	x0 += xinc;
306	} else while (y0 != y1) {
307	if((x0+slope*y0)&linmod)
308	if (((x0>>6) + ((y0&~077)>>1)) == bufs[0].bno)
309	bufs[0].block[((y0&077)<<3)+((x0>>3)&07)] \|= 1 << (7-(x0&07));
310	else
311	point(x0, y0);
312	if (res1 > res2) {
313	res2 += dy - res1;
314	res1 = 0;
315	x0 += xinc;
316	}
317	res1 += dx;
318	y0 += yinc;
319	}
320	if((x1+slope*y1)&linmod)
321	if (((x1>>6) + ((y1&~077)>>1)) == bufs[0].bno)
322	bufs[0].block[((y1&077)<<3)+((x1>>3)&07)] \|= 1 << (7-(x1&07));
323	else
324	point(x1, y1);
325	}
326
327	point(x, y)
328	register x, y;
329	{
330	register bno;
331
332	bno = ((x&03700)>>6) + ((y&03700)>>1);
333	if (bno != bufs[0].bno) {
334	if (bno < 0 \|\| bno >= 1024)
335	return;
336	getblk(bno);
337	}
338	bufs[0].block[((y&077)<<3)+((x>>3)&07)] \|= 1 << (7-(x&07));
339	}
340
341	getblk(b)
342	register b;
343	{
344	register struct buf bp1, bp2;
345	register char *tp;
346
347	loop:
348	for (bp1 = bufs; bp1 < &bufs[NB]; bp1++) {
349	if (bp1->bno == b \|\| bp1->bno == -1) {
350	tp = bp1->block;
351	for (bp2 = bp1; bp2>bufs; --bp2) {
352	bp2->bno = (bp2-1)->bno;
353	bp2->block = (bp2-1)->block;
354	}
355	bufs[0].bno = b;
356	bufs[0].block = tp;
357	return;
358	}
359	}
360	zseek(out, bufs[NB-1].bno);
361	write(out, bufs[NB-1].block, BSIZ);
362	zseek(in, b);
363	read(in, bufs[NB-1].block, BSIZ);
364	bufs[NB-1].bno = b;
365	goto loop;
366	}
367
368	onintr()
369	{
370	exit(1);
371	}
372
373	zseek(a, b)
374	{
375	return(lseek(a, (long)b*512, 0));
376	}