src/meta/xmeta.c

#ifndef lint
static const char       RCSid[] = "$Id$";
#endif
/*
 *  Program to output meta-files to X window system.
 *
 *  cc -o Xmeta Xmeta.c Xplot.o plot.o mfio.o syscalls.o misc.o
 *
 *     2/26/86
 */


#include  "meta.h"

#include  "plot.h"


#define  overlap(p,xmn,ymn,xmx,ymx)  (ov((p)->xy[XMN],(p)->xy[XMX],xmn,xmx) \
                                     &&ov((p)->xy[YMN],(p)->xy[YMX],ymn,ymx))

#define  ov(mn1,mx1,mn2,mx2)  ((mn1)<(mx2)&&(mn2)<(mx1))

#define  XCOM  "pexpand +OCIsv -P %s"


char  *progname;

static short  newpage = TRUE; 

static PLIST  recording;

int maxalloc = 0;               /* no limit */


main(argc, argv)

int  argc;
char  **argv;

{
 FILE  *fp;
 FILE  *popen();
 char  *geometry = NULL;
 short  condonly, conditioned;
 char  comargs[500], command[600];

 progname = *argv++;
 argc--;

 condonly = FALSE;
 conditioned = FALSE;

 for ( ; argc; argv++, argc--)
    if (!strcmp(*argv, "-c"))
        condonly = TRUE;
    else if (!strcmp(*argv, "-r"))
        conditioned = TRUE;
    else if (**argv == '=')
        geometry = *argv;
    else
        break;

 if (conditioned) {
    init(progname, geometry);
    if (argc) 
       while (argc)  {
          fp = efopen(*argv, "r");
          plot(fp);
          fclose(fp);
          argv++;
          argc--;
          }
    else
       plot(stdin);
 } else  {
    comargs[0] = '\0';
    while (argc)  {
       strcat(comargs, " ");
       strcat(comargs, *argv);
       argv++;
       argc--;
       }
    sprintf(command, XCOM, comargs);
    if (condonly)
       return(system(command));
    else  {
       init(progname, geometry);
       if ((fp = popen(command, "r")) == NULL)
          error(SYSTEM, "cannot execute input filter");
       plot(fp);
       pclose(fp);
       }
    }

 if (!newpage)
     endpage();

 return(0);
 }


plot(infp)              /* plot meta-file */

FILE  *infp;

{
    PRIMITIVE  nextp;

    set(SALL, NULL);
    do {
        readp(&nextp, infp);
        while (isprim(nextp.com)) {
            doprim(&nextp, 1);
            readp(&nextp, infp);
        }
        doglobal(&nextp, 1);
    } while (nextp.com != PEOF);

}


replay(xmin, ymin, xmax, ymax)          /* play back region */
int  xmin, ymin, xmax, ymax;
{
    register PRIMITIVE  *p;

    unset(SALL);
    set(SALL, NULL);
    for (p = recording.ptop; p != NULL; p = p->pnext)
        if (isprim(p->com)) {
            if (overlap(p, xmin, ymin, xmax, ymax))
                doprim(p, 0);
        } else
            doglobal(p, 0);

}


save(p)                         /* record primitive */
PRIMITIVE  *p;
{
    register PRIMITIVE  *pnew;

    if ((pnew = palloc()) == NULL)
            error(SYSTEM, "out of memory in save");
    mcopy(pnew, p, sizeof(PRIMITIVE));
    add(pnew, &recording);
}


doglobal(g, sf)                 /* execute a global command */

register PRIMITIVE  *g;
int  sf;

{

    switch (g->com) {

        case PEOF:
            return;

        case PDRAW:
            XFlush();
            break;

        case PEOP:
            endpage();
            plfree(&recording);
            set(SALL, NULL);
            newpage = TRUE;
            return;

        case PSET:
            set(g->arg0, g->args);
            break;

        case PUNSET:
            unset(g->arg0);
            break;

        case PRESET:
            reset(g->arg0);
            break;

        default:
            sprintf(errmsg, "unknown command '%c' in doglobal", g->com);
            error(WARNING, errmsg);
            return;
        }
        if (sf)
            save(g);

}


doprim(p, sf)           /* plot primitive */

register PRIMITIVE  *p;
int  sf;

{

    switch (p->com) {

        case PMSTR:
            printstr(p);
            break;

        case PLSEG:
            plotlseg(p);
            break;

        case PRFILL:
            fillrect(p);
            break;

        case PTFILL:
            filltri(p);
            break;

        case PPFILL:
            fillpoly(p);
            break;

        default:
            sprintf(errmsg, "unknown command '%c' in doprim", p->com);
            error(WARNING, errmsg);
            return;
    }
    if (sf) {
        save(p);
        newpage = FALSE;
    }

}
Revision:	1.1
Committed:	Sat Feb 22 02:07:26 2003 UTC (21 years, 9 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
#	User	Rev	Content
1	greg	1.1	#ifndef lint
2			static const char RCSid[] = "$Id$";
3			#endif
4			/*
5			* Program to output meta-files to X window system.
6			*
7			* cc -o Xmeta Xmeta.c Xplot.o plot.o mfio.o syscalls.o misc.o
8			*
9			* 2/26/86
10			*/
11
12
13			#include "meta.h"
14
15			#include "plot.h"
16
17
18			#define overlap(p,xmn,ymn,xmx,ymx) (ov((p)->xy[XMN],(p)->xy[XMX],xmn,xmx) \
19			&&ov((p)->xy[YMN],(p)->xy[YMX],ymn,ymx))
20
21			#define ov(mn1,mx1,mn2,mx2) ((mn1)<(mx2)&&(mn2)<(mx1))
22
23			#define XCOM "pexpand +OCIsv -P %s"
24
25
26			char *progname;
27
28			static short newpage = TRUE;
29
30			static PLIST recording;
31
32			int maxalloc = 0; /* no limit */
33
34
35
36			main(argc, argv)
37
38			int argc;
39			char **argv;
40
41			{
42			FILE *fp;
43			FILE *popen();
44			char *geometry = NULL;
45			short condonly, conditioned;
46			char comargs[500], command[600];
47
48			progname = *argv++;
49			argc--;
50
51			condonly = FALSE;
52			conditioned = FALSE;
53
54			for ( ; argc; argv++, argc--)
55			if (!strcmp(*argv, "-c"))
56			condonly = TRUE;
57			else if (!strcmp(*argv, "-r"))
58			conditioned = TRUE;
59			else if (**argv == '=')
60			geometry = *argv;
61			else
62			break;
63
64			if (conditioned) {
65			init(progname, geometry);
66			if (argc)
67			while (argc) {
68			fp = efopen(*argv, "r");
69			plot(fp);
70			fclose(fp);
71			argv++;
72			argc--;
73			}
74			else
75			plot(stdin);
76			} else {
77			comargs[0] = '\0';
78			while (argc) {
79			strcat(comargs, " ");
80			strcat(comargs, *argv);
81			argv++;
82			argc--;
83			}
84			sprintf(command, XCOM, comargs);
85			if (condonly)
86			return(system(command));
87			else {
88			init(progname, geometry);
89			if ((fp = popen(command, "r")) == NULL)
90			error(SYSTEM, "cannot execute input filter");
91			plot(fp);
92			pclose(fp);
93			}
94			}
95
96			if (!newpage)
97			endpage();
98
99			return(0);
100			}
101
102
103
104
105			plot(infp) /* plot meta-file */
106
107			FILE *infp;
108
109			{
110			PRIMITIVE nextp;
111
112			set(SALL, NULL);
113			do {
114			readp(&nextp, infp);
115			while (isprim(nextp.com)) {
116			doprim(&nextp, 1);
117			readp(&nextp, infp);
118			}
119			doglobal(&nextp, 1);
120			} while (nextp.com != PEOF);
121
122			}
123
124
125
126			replay(xmin, ymin, xmax, ymax) /* play back region */
127			int xmin, ymin, xmax, ymax;
128			{
129			register PRIMITIVE *p;
130
131			unset(SALL);
132			set(SALL, NULL);
133			for (p = recording.ptop; p != NULL; p = p->pnext)
134			if (isprim(p->com)) {
135			if (overlap(p, xmin, ymin, xmax, ymax))
136			doprim(p, 0);
137			} else
138			doglobal(p, 0);
139
140			}
141
142
143
144
145			save(p) /* record primitive */
146			PRIMITIVE *p;
147			{
148			register PRIMITIVE *pnew;
149
150			if ((pnew = palloc()) == NULL)
151			error(SYSTEM, "out of memory in save");
152			mcopy(pnew, p, sizeof(PRIMITIVE));
153			add(pnew, &recording);
154			}
155
156
157
158
159			doglobal(g, sf) /* execute a global command */
160
161			register PRIMITIVE *g;
162			int sf;
163
164			{
165
166			switch (g->com) {
167
168			case PEOF:
169			return;
170
171			case PDRAW:
172			XFlush();
173			break;
174
175			case PEOP:
176			endpage();
177			plfree(&recording);
178			set(SALL, NULL);
179			newpage = TRUE;
180			return;
181
182			case PSET:
183			set(g->arg0, g->args);
184			break;
185
186			case PUNSET:
187			unset(g->arg0);
188			break;
189
190			case PRESET:
191			reset(g->arg0);
192			break;
193
194			default:
195			sprintf(errmsg, "unknown command '%c' in doglobal", g->com);
196			error(WARNING, errmsg);
197			return;
198			}
199			if (sf)
200			save(g);
201
202			}
203
204
205
206
207			doprim(p, sf) /* plot primitive */
208
209			register PRIMITIVE *p;
210			int sf;
211
212			{
213
214			switch (p->com) {
215
216			case PMSTR:
217			printstr(p);
218			break;
219
220			case PLSEG:
221			plotlseg(p);
222			break;
223
224			case PRFILL:
225			fillrect(p);
226			break;
227
228			case PTFILL:
229			filltri(p);
230			break;
231
232			case PPFILL:
233			fillpoly(p);
234			break;
235
236			default:
237			sprintf(errmsg, "unknown command '%c' in doprim", p->com);
238			error(WARNING, errmsg);
239			return;
240			}
241			if (sf) {
242			save(p);
243			newpage = FALSE;
244			}
245
246			}