src/meta/convect.c

#ifndef lint
static const char       RCSid[] = "$Id$";
#endif
/*
 *  Convert vector file of type A to segments
 *
 *   1/16/85
 *
 *   cc convect.c primout.o hfio.o syscalls.o misc.o
 */


#include  "meta.h"

#define  MAXX  32

#define  MAXY  32

#define  MINX  0

#define  MINY  0

#define  CVX(x)  ((int)((long)(x-MINX)*(XYSIZE-1)/(MAXX-MINX)))

#define  CVY(y)  ((int)((long)(y-MINY)*(XYSIZE-1)/(MAXY-MINY)))

char  *progname;


main(argc, argv)        /* single argument is input file name */

int  argc;
char  **argv;

{
    char  stemp[16];
    int  i, npairs;
    FILE  *fp;
    PRIMITIVE  curp;
    int  x, y, lastx, lasty;

    progname = *argv++;
    argc--;

    if (argc != 1)
        error(USER, "arg count");
    
    fp = efopen(*argv, "r");

    while (fscanf(fp, "%s", stemp) == 1) {

        fscanf(fp, "%*d %*d %*d %*d");
        curp.com = POPEN;
        curp.arg0 = 0;
        curp.xy[XMN] = curp.xy[YMN] = curp.xy[XMX] = curp.xy[YMX] = -1;
        curp.args = stemp;
        writep(&curp, stdout);

        for ( ; ; ) {
            fscanf(fp, "%d", &i);
            if (i == 0)
                break;
            fscanf(fp, "%d", &npairs);
            for (i = 0; i < npairs; i++) {
                fscanf(fp, "%d %d", &x, &y);
                x = CVX(x);
                y = CVY(y);
                if (i)
                    plseg(0, lastx, lasty, x, y, stdout);
                lastx = x;
                lasty = y;
            }
        }
        curp.com = PCLOSE;
        curp.arg0 = 0200;
        curp.xy[XMN] = curp.xy[YMN] = curp.xy[XMX] = curp.xy[YMX] = -1;
        curp.args = NULL;
        writep(&curp, stdout);
    }

    writeof(stdout);
    fclose(fp);

    return(0);
}
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:	rad3R6P1, rad3R5, rad3R6
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			* Convert vector file of type A to segments
6			*
7			* 1/16/85
8			*
9			* cc convect.c primout.o hfio.o syscalls.o misc.o
10			*/
11
12
13			#include "meta.h"
14
15			#define MAXX 32
16
17			#define MAXY 32
18
19			#define MINX 0
20
21			#define MINY 0
22
23			#define CVX(x) ((int)((long)(x-MINX)*(XYSIZE-1)/(MAXX-MINX)))
24
25			#define CVY(y) ((int)((long)(y-MINY)*(XYSIZE-1)/(MAXY-MINY)))
26
27			char *progname;
28
29
30			main(argc, argv) /* single argument is input file name */
31
32			int argc;
33			char **argv;
34
35			{
36			char stemp[16];
37			int i, npairs;
38			FILE *fp;
39			PRIMITIVE curp;
40			int x, y, lastx, lasty;
41
42			progname = *argv++;
43			argc--;
44
45			if (argc != 1)
46			error(USER, "arg count");
47
48			fp = efopen(*argv, "r");
49
50			while (fscanf(fp, "%s", stemp) == 1) {
51
52			fscanf(fp, "%d %d %d %d");
53			curp.com = POPEN;
54			curp.arg0 = 0;
55			curp.xy[XMN] = curp.xy[YMN] = curp.xy[XMX] = curp.xy[YMX] = -1;
56			curp.args = stemp;
57			writep(&curp, stdout);
58
59			for ( ; ; ) {
60			fscanf(fp, "%d", &i);
61			if (i == 0)
62			break;
63			fscanf(fp, "%d", &npairs);
64			for (i = 0; i < npairs; i++) {
65			fscanf(fp, "%d %d", &x, &y);
66			x = CVX(x);
67			y = CVY(y);
68			if (i)
69			plseg(0, lastx, lasty, x, y, stdout);
70			lastx = x;
71			lasty = y;
72			}
73			}
74			curp.com = PCLOSE;
75			curp.arg0 = 0200;
76			curp.xy[XMN] = curp.xy[YMN] = curp.xy[XMX] = curp.xy[YMX] = -1;
77			curp.args = NULL;
78			writep(&curp, stdout);
79			}
80
81			writeof(stdout);
82			fclose(fp);
83
84			return(0);
85			}