src/meta/plot4.c

#ifndef lint
static const char       RCSid[] = "$Id$";
#endif
/*
 *  plot4.c - program to put four metafile pages onto one.
 *
 *      Greg Ward
 *      7/10/86
 */

#include  "meta.h"


#define  OUTFILT  "pexpand +OCIms"      /* output filter */

#define  SEGNAME  "plot4seg"            /* segment name */


extern FILE  *pout;                     /* the output stream */

char  *progname;


main(argc, argv)
int  argc;
char  *argv[];
{
#ifdef  UNIX
        FILE  *popen();
#endif
        FILE  *fp;
        int  i;

#ifdef  CPM
        fixargs("plot4", &argc, &argv);
#endif

        progname = argv[0];

#ifdef  UNIX
        pout = popen(OUTFILT, "w");
#endif

        if (argc > 1)
                for (i = 1; i < argc; i++) {
                        fp = efopen(argv[i], "r");
                        plot4(fp);
                        fclose(fp);
                }
        else
                plot4(stdin);
        
        pglob(PEOF, 0200, NULL);

#ifdef  UNIX
        return(pclose(pout));
#else
        return(0);
#endif
}


plot4(fp)                       /* put a file into its place on page */
FILE  *fp;
{
        static int  nplts = 0;
        PRIMITIVE  curp;

        pglob(POPEN, 0, SEGNAME);

        while (readp(&curp, fp))
                if (curp.com == PEOP) {
                        pglob(PCLOSE, 0200, NULL);
                        doseg(nplts++ % 4);
                        pglob(POPEN, 0, SEGNAME);
                } else
                        writep(&curp, pout);
        
        pglob(PCLOSE, 0200, NULL);
}


doseg(n)                /* do segment number n */
int  n;
{
        switch (n) {
        case 0:                         /* upper left */
                pprim(PSEG, 0, 0, XYSIZE/2, XYSIZE/2-1, XYSIZE-1, SEGNAME);
                break;
        case 1:                         /* upper right */
                pprim(PSEG, 0, XYSIZE/2, XYSIZE/2, XYSIZE-1, XYSIZE-1, SEGNAME);
                break;
        case 2:                         /* lower left */
                pprim(PSEG, 0, 0, 0, XYSIZE/2-1, XYSIZE/2-1, SEGNAME);
                break;
        case 3:                         /* lower right, end page */
                pprim(PSEG, 0, XYSIZE/2, 0, XYSIZE-1, XYSIZE/2-1, SEGNAME);
                pglob(PEOP, 0200, NULL);
                break;
        }
}
Revision:	1.1
Committed:	Sat Feb 22 02:07:26 2003 UTC (21 years, 2 months ago) by greg
Content type:	text/plain
Branch:	MAIN
CVS Tags:	rad3R5
Log Message:	Changes and check-in for 3.5 release Includes new source files and modifications not recorded for many years See ray/doc/notes/ReleaseNotes for notes between 3.1 and 3.5 release
#	Content
1	#ifndef lint
2	static const char RCSid[] = "$Id$";
3	#endif
4	/*
5	* plot4.c - program to put four metafile pages onto one.
6	*
7	* Greg Ward
8	* 7/10/86
9	*/
10
11	#include "meta.h"
12
13
14	#define OUTFILT "pexpand +OCIms" /* output filter */
15
16	#define SEGNAME "plot4seg" /* segment name */
17
18
19	extern FILE pout; / the output stream */
20
21	char *progname;
22
23
24	main(argc, argv)
25	int argc;
26	char *argv[];
27	{
28	#ifdef UNIX
29	FILE *popen();
30	#endif
31	FILE *fp;
32	int i;
33
34	#ifdef CPM
35	fixargs("plot4", &argc, &argv);
36	#endif
37
38	progname = argv[0];
39
40	#ifdef UNIX
41	pout = popen(OUTFILT, "w");
42	#endif
43
44	if (argc > 1)
45	for (i = 1; i < argc; i++) {
46	fp = efopen(argv[i], "r");
47	plot4(fp);
48	fclose(fp);
49	}
50	else
51	plot4(stdin);
52
53	pglob(PEOF, 0200, NULL);
54
55	#ifdef UNIX
56	return(pclose(pout));
57	#else
58	return(0);
59	#endif
60	}
61
62
63	plot4(fp) /* put a file into its place on page */
64	FILE *fp;
65	{
66	static int nplts = 0;
67	PRIMITIVE curp;
68
69	pglob(POPEN, 0, SEGNAME);
70
71	while (readp(&curp, fp))
72	if (curp.com == PEOP) {
73	pglob(PCLOSE, 0200, NULL);
74	doseg(nplts++ % 4);
75	pglob(POPEN, 0, SEGNAME);
76	} else
77	writep(&curp, pout);
78
79	pglob(PCLOSE, 0200, NULL);
80	}
81
82
83	doseg(n) /* do segment number n */
84	int n;
85	{
86	switch (n) {
87	case 0: /* upper left */
88	pprim(PSEG, 0, 0, XYSIZE/2, XYSIZE/2-1, XYSIZE-1, SEGNAME);
89	break;
90	case 1: /* upper right */
91	pprim(PSEG, 0, XYSIZE/2, XYSIZE/2, XYSIZE-1, XYSIZE-1, SEGNAME);
92	break;
93	case 2: /* lower left */
94	pprim(PSEG, 0, 0, 0, XYSIZE/2-1, XYSIZE/2-1, SEGNAME);
95	break;
96	case 3: /* lower right, end page */
97	pprim(PSEG, 0, XYSIZE/2, 0, XYSIZE-1, XYSIZE/2-1, SEGNAME);
98	pglob(PEOP, 0200, NULL);
99	break;
100	}
101	}