ViewVC Help
View File | Revision Log | Show Annotations | Download File | Root Listing
root/radiance/ray/src/gen/xform.c
(Generate patch)

Comparing ray/src/gen/xform.c (file contents):
Revision 1.13 by greg, Mon Feb 18 13:45:09 1991 UTC vs.
Revision 2.14 by greg, Mon Jun 24 09:27:39 1996 UTC

# Line 1 | Line 1
1 < /* Copyright (c) 1991 Regents of the University of California */
1 > /* Copyright (c) 1996 Regents of the University of California */
2  
3   #ifndef lint
4   static char SCCSid[] = "$SunId$ LBL";
# Line 14 | Line 14 | static char SCCSid[] = "$SunId$ LBL";
14  
15   #include  "standard.h"
16  
17 + #include  "paths.h"
18 +
19   #include  <ctype.h>
20  
21 + #include  "object.h"
22 +
23   #include  "otypes.h"
24  
25   int  xac;                               /* global xform argument count */
# Line 23 | Line 27 | char  **xav;                           /* global xform argument pointer */
27   int  xfa;                               /* start of xf arguments */
28  
29   XF  tot;                                /* total transformation */
30 < int  reverse;                           /* boolean true if scene inverted */
30 > int  reverse;                           /* boolean true if scene mirrored */
31  
32 < int  expand = 0;                        /* boolean true to expand commands */
32 > int  invert = 0;                        /* boolean true to invert surfaces */
33  
34 + int  expand = 1;                        /* boolean true to expand commands */
35 +
36   char  *newmod = NULL;                   /* new modifier for surfaces */
37  
38   char  *idprefix = NULL;                 /* prefix for object identifiers */
39  
40 < #define  ALIAS          NUMOTYPE        /* put alias at end of array */
40 > #define  ALIAS          NUMOTYPE        /* put alias at end of array */
41  
42 < #define  NUMTYPES       (NUMOTYPE+1)    /* total number of object types */
42 > #define  NUMTYPES       (NUMOTYPE+1)    /* total number of object types */
43  
44   FUN  ofun[NUMTYPES] = INIT_OTYPE;       /* default types and actions */
45  
46 < typedef struct {
41 <        short  nsargs;                  /* # of string arguments */
42 <        char  **sarg;                   /* string arguments */
43 <        short  niargs;                  /* # of integer arguments */
44 <        int  *iarg;                     /* integer arguments */
45 <        short  nfargs;                  /* # of float arguments */
46 <        double  *farg;                  /* float arguments */
47 < }  FUNARGS;
46 > short  tinvers[NUMOTYPE];               /* inverse types for surfaces */
47  
48 < #define  MAXSTR         128             /* maximum string length */
48 > int  nrept = 1;                         /* number of array repetitions */
49  
50 < FUNARGS  *getfargs();
52 < char  *malloc();
50 > extern char  *malloc(), *fgetword();
51  
52 < #define  progname  (xav[0])
52 > char  mainfn[MAXPATH];                  /* main file name */
53 > FILE  *mainfp = NULL;                   /* main file pointer */
54  
55 + #define  progname  (xav[0])
56  
57 +
58   main(argc, argv)                /* get transform options and transform file */
59   int  argc;
60   char  *argv[];
61   {
62 <        FILE  *fopen();
62 <        FILE  *fp;
62 >        char  *fname;
63          int  a;
64                                          /* check for array */
65          for (a = 1; a < argc; a++)
# Line 81 | Line 81 | char  *argv[];
81                                          break;
82                                  idprefix = argv[++a];
83                                  continue;
84 +                        case 'c':
85 +                                if (argv[a][2])
86 +                                        break;
87 +                                expand = 0;
88 +                                continue;
89                          case 'e':
90                                  if (argv[a][2])
91                                          break;
92                                  expand = 1;
93                                  continue;
94 +                        case 'I':
95 +                                if (argv[a][2])
96 +                                        break;
97 +                                invert = 1;
98 +                                continue;
99                          }
100                  break;
101          }
# Line 97 | Line 107 | char  *argv[];
107  
108          if (reverse = tot.sca < 0.0)
109                  tot.sca = -tot.sca;
110 +        if (invert)
111 +                reverse = !reverse;
112  
113          if (a < argc && argv[a][0] == '-') {
114                  fprintf(stderr, "%s: command line error at '%s'\n",
# Line 111 | Line 123 | char  *argv[];
123                  printf(" %s", xav[a]);
124          putchar('\n');
125                                          /* transform input */
126 <        if (xac == argc)
127 <                xform("standard input", stdin);
128 <        else
126 >        if (xac == argc) {
127 >                openmain(NULL);
128 >                xform(mainfn, mainfp);
129 >        } else
130                  for (a = xac; a < argc; a++) {
131 <                        if ((fp = fopen(argv[a], "r")) == NULL) {
132 <                                fprintf(stderr, "%s: cannot open \"%s\"\n",
120 <                                                progname, argv[a]);
121 <                                exit(1);
122 <                        }
123 <                        xform(argv[a], fp);
124 <                        fclose(fp);
131 >                        openmain(argv[a]);
132 >                        xform(mainfn, mainfp);
133                  }
134  
135          return(0);
# Line 135 | Line 143 | int  ac, ai;
143          char  *newav[256], **avp;
144          char  newid[128], repts[32];
145          char  *oldid = NULL;
146 <        int  i, err;
146 >        int  n, i, err;
147          
148          avp = newav+2;
149          avp[0] = av[0];
# Line 155 | Line 163 | int  ac, ai;
163                  avp = newav;
164                  ac += 2;
165          }
166 +        nrept *= n = atoi(av[ai+1]);
167          err = 0;
168 <        for (i = 0; i < atoi(av[ai+1]); i++) {
168 >        for (i = 0; i < n; i++) {
169                  if (oldid == NULL)
170                          sprintf(newid, "a%d", i);
171                  else
# Line 172 | Line 181 | xform(name, fin)                       /* transform stream by tot.xfm */
181   char  *name;
182   register FILE  *fin;
183   {
184 +        int  nobjs = 0;
185          register int  c;
186  
187          while ((c = getc(fin)) != EOF) {
# Line 187 | Line 197 | register FILE  *fin;
197                  } else if (c == '!') {                  /* command */
198                          ungetc(c, fin);
199                          xfcomm(name, fin);
200 +                        nobjs++;
201                  } else {                                /* object */
202                          ungetc(c, fin);
203                          xfobject(name, fin);
204 +                        nobjs++;
205                  }
206          }
207 +        if (nobjs == 0)
208 +                fprintf(stderr, "%s: (%s): warning - empty file\n",
209 +                                progname, name);
210   }
211  
212  
213   xfcomm(fname, fin)                      /* transform a command */
214 + char  *fname;
215   FILE  *fin;
216   {
217 <        FILE  *popen();
218 <        char  *fgetline();
217 >        extern FILE  *popen();
218 >        extern char  *fgetline();
219          FILE  *pin;
220          char  buf[512];
221          int  i;
222  
223          fgetline(buf, sizeof(buf), fin);
224          if (expand) {
225 <                if (xac > 2) {
226 <                        if ((pin = popen(buf+1, "r")) == NULL) {
227 <                                fprintf(stderr,
228 <                                "%s: (%s): cannot execute \"%s\"\n",
213 <                                                progname, fname, buf);
214 <                                exit(1);
215 <                        }
216 <                        xform(buf, pin);
217 <                        pclose(pin);
218 <                } else {
219 <                        fflush(stdout);
220 <                        system(buf+1);
225 >                if ((pin = popen(buf+1, "r")) == NULL) {
226 >                        fprintf(stderr, "%s: (%s): cannot execute \"%s\"\n",
227 >                                        progname, fname, buf);
228 >                        exit(1);
229                  }
230 +                xform(buf, pin);
231 +                pclose(pin);
232          } else {
233                  printf("\n%s", buf);
234                  if (xac > 1) {
235 <                        printf(" | %s -e", xav[0]);
235 >                        printf(" | %s", xav[0]);
236                          for (i = 1; i < xac; i++)
237                                  printf(" %s", xav[i]);
238                  }
# Line 235 | Line 245 | xfobject(fname, fin)                           /* transform an object */
245   char  *fname;
246   FILE  *fin;
247   {
248 +        extern char  *strcpy();
249          char  typ[16], nam[MAXSTR];
250          int  fn;
251                                                  /* modifier and type */
252 <        fscanf(fin, "%s %s", nam, typ);
252 >        strcpy(typ, "EOF");
253 >        fgetword(nam, sizeof(nam), fin);
254 >        fgetword(typ, sizeof(typ), fin);
255          if ((fn = otype(typ)) < 0) {
256                  fprintf(stderr, "%s: (%s): unknown object type \"%s\"\n",
257                                  progname, fname, typ);
258                  exit(1);
259          }
260 <        printf("\n%s %s ", newmod!=NULL && issurface(fn) ? newmod : nam, typ);
261 <                                                /* object name */
249 <        fscanf(fin, "%s", nam);
250 <        if (idprefix != NULL && issurface(fn))
251 <                printf("%s.%s\n", idprefix, nam);
260 >        if (ismodifier(fn))
261 >                printf("\n%s %s ", nam, typ);
262          else
263 +                printf("\n%s %s ", newmod != NULL ? newmod : nam,
264 +                                invert ? ofun[tinvers[fn]].funame : typ);
265 +                                                /* object name */
266 +        fgetword(nam, sizeof(nam), fin);
267 +        if (idprefix == NULL || ismodifier(fn))
268                  printf("%s\n", nam);
269 +        else
270 +                printf("%s.%s\n", idprefix, nam);
271                                                  /* transform arguments */
272          if ((*ofun[fn].funp)(fin) < 0) {
273                  fprintf(stderr, "%s: (%s): bad %s \"%s\"\n",
# Line 264 | Line 281 | o_default(fin)                 /* pass on arguments unchanged */
281   FILE  *fin;
282   {
283          register int  i;
284 <        register FUNARGS  *fa;
284 >        FUNARGS  fa;
285  
286 <        if ((fa = getfargs(fin)) == NULL)
286 >        if (readfargs(&fa, fin) != 1)
287                  return(-1);
288                                          /* string arguments */
289 <        printf("%d", fa->nsargs);
290 <        for (i = 0; i < fa->nsargs; i++)
291 <                printf(" %s", fa->sarg[i]);
289 >        printf("%d", fa.nsargs);
290 >        for (i = 0; i < fa.nsargs; i++)
291 >                printf(" %s", fa.sarg[i]);
292          printf("\n");
293 + #ifdef  IARGS
294                                          /* integer arguments */
295 <        printf("%d", fa->niargs);
296 <        for (i = 0; i < fa->niargs; i++)
297 <                printf(" %d", fa->iarg[i]);
295 >        printf("%d", fa.niargs);
296 >        for (i = 0; i < fa.niargs; i++)
297 >                printf(" %d", fa.iarg[i]);
298          printf("\n");
299 + #else
300 +        printf("0\n");
301 + #endif
302                                          /* float arguments */
303 <        printf("%d", fa->nfargs);
304 <        for (i = 0; i < fa->nfargs; i++)
305 <                printf(" %18.12g", fa->farg[i]);
303 >        printf("%d", fa.nfargs);
304 >        for (i = 0; i < fa.nfargs; i++)
305 >                printf(" %18.12g", fa.farg[i]);
306          printf("\n");
307 <        freefargs(fa);
307 >        freefargs(&fa);
308          return(0);
309   }
310  
# Line 292 | Line 313 | addxform(fin)                  /* add xf arguments to strings */
313   FILE  *fin;
314   {
315          register int  i;
316 <        register FUNARGS  *fa;
316 >        int  resetarr = 0;
317 >        FUNARGS  fa;
318  
319 <        if ((fa = getfargs(fin)) == NULL)
319 >        if (readfargs(&fa, fin) != 1)
320                  return(-1);
321                                          /* string arguments */
322 <        printf("%d", fa->nsargs + xac-xfa);
323 <        for (i = 0; i < fa->nsargs; i++)
324 <                printf(" %s", fa->sarg[i]);
322 >        if (xac > xfa && strcmp(xav[xfa], "-i"))
323 >                resetarr = 2;
324 >        printf("%d", fa.nsargs + resetarr + xac-xfa);
325 >        for (i = 0; i < fa.nsargs; i++)
326 >                printf(" %s", fa.sarg[i]);
327 >        if (resetarr)
328 >                printf(" -i 1");
329          for (i = xfa; i < xac; i++)     /* add xf arguments */
330                  printf(" %s", xav[i]);
331          printf("\n");
332 + #ifdef  IARGS
333                                          /* integer arguments */
334 <        printf("%d", fa->niargs);
335 <        for (i = 0; i < fa->niargs; i++)
336 <                printf(" %d", fa->iarg[i]);
334 >        printf("%d", fa.niargs);
335 >        for (i = 0; i < fa.niargs; i++)
336 >                printf(" %d", fa.iarg[i]);
337          printf("\n");
338 + #else
339 +        printf("0\n");
340 + #endif
341                                          /* float arguments */
342 <        printf("%d", fa->nfargs);
343 <        for (i = 0; i < fa->nfargs; i++)
344 <                printf(" %18.12g", fa->farg[i]);
342 >        printf("%d", fa.nfargs);
343 >        for (i = 0; i < fa.nfargs; i++)
344 >                printf(" %18.12g", fa.farg[i]);
345          printf("\n");
346 <        freefargs(fa);
346 >        freefargs(&fa);
347          return(0);
348   }
349  
# Line 337 | Line 367 | FILE  *fin;
367   {
368          char  aliasnm[MAXSTR];
369  
370 <        if (fscanf(fin, "%s", aliasnm) != 1)
370 >        if (fgetword(aliasnm, MAXSTR, fin) == NULL)
371                  return(-1);
372          printf("\t%s\n", aliasnm);
373          return(0);
# Line 347 | Line 377 | FILE  *fin;
377   m_glow(fin)                     /* transform arguments for proximity light */
378   FILE  *fin;
379   {
380 <        register FUNARGS  *fa;
380 >        FUNARGS  fa;
381  
382 <        if ((fa = getfargs(fin)) == NULL)
382 >        if (readfargs(&fa, fin) != 1)
383                  return(-1);
384 <        if (fa->nsargs != 0 || fa->niargs != 0 || fa->nfargs != 4)
384 >        if (fa.nsargs != 0  || fa.nfargs != 4)
385                  return(-1);
386          printf("0\n0\n4");
387          printf(" %18.12g %18.12g %18.12g",
388 <                        fa->farg[0], fa->farg[1], fa->farg[2]);
389 <        printf(" %18.12g\n", fa->farg[3] * tot.sca);
390 <        freefargs(fa);
388 >                        fa.farg[0], fa.farg[1], fa.farg[2]);
389 >        printf(" %18.12g\n", fa.farg[3] * tot.sca);
390 >        freefargs(&fa);
391          return(0);
392   }
393  
# Line 365 | Line 395 | FILE  *fin;
395   m_spot(fin)                     /* transform arguments for spotlight */
396   FILE  *fin;
397   {
398 <        double  v[3];
399 <        register FUNARGS  *fa;
398 >        FVECT  v;
399 >        FUNARGS  fa;
400  
401 <        if ((fa = getfargs(fin)) == NULL)
401 >        if (readfargs(&fa, fin) != 1)
402                  return(-1);
403 <        if (fa->nsargs != 0 || fa->niargs != 0 || fa->nfargs != 7)
403 >        if (fa.nsargs != 0  || fa.nfargs != 7)
404                  return(-1);
405          printf("0\n0\n7");
406          printf(" %18.12g %18.12g %18.12g %18.12g\n",
407 <                        fa->farg[0], fa->farg[1], fa->farg[2], fa->farg[3]);
408 <        multv3(v, fa->farg+4, tot.xfm);
407 >                        fa.farg[0], fa.farg[1], fa.farg[2], fa.farg[3]);
408 >        multv3(v, fa.farg+4, tot.xfm);
409          printf("\t%18.12g %18.12g %18.12g\n", v[0], v[1], v[2]);
410 <        freefargs(fa);
410 >        freefargs(&fa);
411          return(0);
412   }
413  
414  
415 + m_mist(fin)             /* transform arguments for mist */
416 + FILE  *fin;
417 + {
418 +        FUNARGS  fa;
419 +        int     i;
420 +
421 +        if (readfargs(&fa, fin) != 1)
422 +                return(-1);
423 +        if (fa.nfargs > 5)
424 +                return(-1);
425 +        printf("%d", fa.nsargs);
426 +        if (idprefix == NULL)
427 +                for (i = 0; i < fa.nsargs; i++)
428 +                        printf(" %s", fa.sarg[i]);
429 +        else
430 +                for (i = 0; i < fa.nsargs; i++) {
431 +                        char    sname[256], *sp;
432 +                        register char   *cp1, *cp2 = sname;
433 +                                                        /* add idprefix */
434 +                        for (sp = fa.sarg[i]; *sp; sp = cp1) {
435 +                                for (cp1 = idprefix; *cp1; )
436 +                                        *cp2++ = *cp1++;
437 +                                *cp2++ = '.';
438 +                                for (cp1 = sp; *cp1 &&
439 +                                                (*cp2++ = *cp1++) != '>'; )
440 +                                        ;
441 +                        }
442 +                        *cp2 = '\0';
443 +                        printf(" %s", sname);
444 +                }
445 +        printf("\n0\n%d", fa.nfargs);
446 +        if (fa.nfargs > 2)
447 +                printf(" %12.6g %12.6g %12.6g", fa.farg[0]/tot.sca,
448 +                                fa.farg[1]/tot.sca, fa.farg[2]/tot.sca);
449 +        if (fa.nfargs > 3)
450 +                printf(" %12.6g", fa.farg[3]);
451 +        if (fa.nfargs > 4)
452 +                printf(" %12.6g", fa.farg[4]);
453 +        printf("\n");
454 +        freefargs(&fa);
455 +        return(0);
456 + }
457 +
458 +
459   m_dielectric(fin)               /* transform arguments for dielectric */
460   FILE  *fin;
461   {
462 <        double  pow();
389 <        register FUNARGS  *fa;
462 >        FUNARGS  fa;
463  
464 <        if ((fa = getfargs(fin)) == NULL)
464 >        if (readfargs(&fa, fin) != 1)
465                  return(-1);
466 <        if (fa->nsargs != 0 || fa->niargs != 0 || fa->nfargs != 5)
466 >        if (fa.nsargs != 0  || fa.nfargs != 5)
467                  return(-1);
468          printf("0\n0\n5");
469 <        printf(" %18.12g %18.12g %18.12g",
470 <                pow(fa->farg[0], 1.0/tot.sca),
471 <                pow(fa->farg[1], 1.0/tot.sca),
472 <                pow(fa->farg[2], 1.0/tot.sca));
473 <        printf(" %18.12g %18.12g\n", fa->farg[3], fa->farg[4]);
474 <        freefargs(fa);
469 >        printf(" %12.6g %12.6g %12.6g",
470 >                pow(fa.farg[0], 1.0/tot.sca),
471 >                pow(fa.farg[1], 1.0/tot.sca),
472 >                pow(fa.farg[2], 1.0/tot.sca));
473 >        printf(" %12.6g %12.6g\n", fa.farg[3], fa.farg[4]);
474 >        freefargs(&fa);
475          return(0);
476   }
477  
# Line 406 | Line 479 | FILE  *fin;
479   m_interface(fin)                /* transform arguments for interface */
480   FILE  *fin;
481   {
482 <        double  pow();
410 <        register FUNARGS  *fa;
482 >        FUNARGS  fa;
483  
484 <        if ((fa = getfargs(fin)) == NULL)
484 >        if (readfargs(&fa, fin) != 1)
485                  return(-1);
486 <        if (fa->nsargs != 0 || fa->niargs != 0 || fa->nfargs != 8)
486 >        if (fa.nsargs != 0  || fa.nfargs != 8)
487                  return(-1);
488          printf("0\n0\n8\n");
489 <        printf("%18.12g %18.12g %18.12g",
490 <                pow(fa->farg[0], 1.0/tot.sca),
491 <                pow(fa->farg[1], 1.0/tot.sca),
492 <                pow(fa->farg[2], 1.0/tot.sca));
493 <        printf(" %18.12g\n", fa->farg[3]);
494 <        printf("%18.12g %18.12g %18.12g",
495 <                pow(fa->farg[4], 1.0/tot.sca),
496 <                pow(fa->farg[5], 1.0/tot.sca),
497 <                pow(fa->farg[6], 1.0/tot.sca));
498 <        printf(" %18.12g\n", fa->farg[7]);
499 <        freefargs(fa);
489 >        printf("%12.6g %12.6g %12.6g",
490 >                pow(fa.farg[0], 1.0/tot.sca),
491 >                pow(fa.farg[1], 1.0/tot.sca),
492 >                pow(fa.farg[2], 1.0/tot.sca));
493 >        printf(" %12.6g\n", fa.farg[3]);
494 >        printf("%12.6g %12.6g %12.6g",
495 >                pow(fa.farg[4], 1.0/tot.sca),
496 >                pow(fa.farg[5], 1.0/tot.sca),
497 >                pow(fa.farg[6], 1.0/tot.sca));
498 >        printf(" %12.6g\n", fa.farg[7]);
499 >        freefargs(&fa);
500          return(0);
501   }
502  
# Line 433 | Line 505 | text(fin)                      /* transform text arguments */
505   FILE  *fin;
506   {
507          int  i;
508 <        double  v[3];
509 <        register FUNARGS  *fa;
508 >        FVECT  v;
509 >        FUNARGS  fa;
510  
511 <        if ((fa = getfargs(fin)) == NULL)
511 >        if (readfargs(&fa, fin) != 1)
512                  return(-1);
513 <        if (fa->niargs != 0 || (fa->nfargs != 9 &&
442 <                        fa->nfargs != 11 && fa->nfargs != 15))
513 >        if (fa.nfargs < 9)
514                  return(-1);
515                                          /* string arguments */
516 <        printf("%d", fa->nsargs);
517 <        for (i = 0; i < fa->nsargs; i++)
518 <                printf(" %s", fa->sarg[i]);
519 <        printf("\n0\n%d\n", fa->nfargs);
516 >        printf("%d", fa.nsargs);
517 >        for (i = 0; i < fa.nsargs; i++)
518 >                printf(" %s", fa.sarg[i]);
519 >        printf("\n0\n%d\n", fa.nfargs);
520                                          /* anchor point */
521 <        multp3(v, fa->farg, tot.xfm);
521 >        multp3(v, fa.farg, tot.xfm);
522          printf(" %18.12g %18.12g %18.12g\n", v[0], v[1], v[2]);
523                                          /* right vector */
524 <        multv3(v, fa->farg+3, tot.xfm);
524 >        multv3(v, fa.farg+3, tot.xfm);
525          printf(" %18.12g %18.12g %18.12g\n", v[0], v[1], v[2]);
526                                          /* down vector */
527 <        multv3(v, fa->farg+6, tot.xfm);
528 <        printf(" %18.12g %18.12g %18.12g\n", v[0], v[1], v[2]);
529 <                                        /* forground and background */
530 <        if (fa->nfargs == 11)
531 <                printf(" %18.12g %18.12g\n", fa->farg[9], fa->farg[10]);
532 <        else if (fa->nfargs == 15) {
533 <                printf(" %18.12g %18.12g %18.12g\n",
463 <                                fa->farg[9], fa->farg[10], fa->farg[11]);
464 <                printf(" %18.12g %18.12g %18.12g\n",
465 <                                fa->farg[12], fa->farg[13], fa->farg[14]);
527 >        multv3(v, fa.farg+6, tot.xfm);
528 >        printf(" %18.12g %18.12g %18.12g", v[0], v[1], v[2]);
529 >                                        /* remaining arguments */
530 >        for (i = 9; i < fa.nfargs; i++) {
531 >                if (i%3 == 0)
532 >                        putchar('\n');
533 >                printf(" %18.12g", fa.farg[i]);
534          }
535 <        freefargs(fa);
535 >        putchar('\n');
536 >        freefargs(&fa);
537          return(0);
538   }
539  
# Line 472 | Line 541 | FILE  *fin;
541   o_source(fin)                   /* transform source arguments */
542   FILE  *fin;
543   {
544 <        double  dv[3];
545 <        register FUNARGS  *fa;
544 >        FVECT  dv;
545 >        FUNARGS  fa;
546  
547 <        if ((fa = getfargs(fin)) == NULL)
547 >        if (readfargs(&fa, fin) != 1)
548                  return(-1);
549 <        if (fa->nsargs != 0 || fa->niargs != 0 || fa->nfargs != 4)
549 >        if (fa.nsargs != 0  || fa.nfargs != 4)
550                  return(-1);
551                                          /* transform direction vector */
552 <        multv3(dv, fa->farg, tot.xfm);
552 >        multv3(dv, fa.farg, tot.xfm);
553                                          /* output */
554          printf("0\n0\n4");
555          printf(" %18.12g %18.12g %18.12g %18.12g\n",
556 <                        dv[0], dv[1], dv[2], fa->farg[3]);
557 <        freefargs(fa);
556 >                        dv[0], dv[1], dv[2], fa.farg[3]);
557 >        freefargs(&fa);
558          return(0);
559   }
560  
# Line 493 | Line 562 | FILE  *fin;
562   o_sphere(fin)                   /* transform sphere arguments */
563   FILE  *fin;
564   {
565 <        double  cent[3], rad;
566 <        register FUNARGS  *fa;
565 >        FVECT  cent;
566 >        double  rad;
567 >        FUNARGS  fa;
568  
569 <        if ((fa = getfargs(fin)) == NULL)
569 >        if (readfargs(&fa, fin) != 1)
570                  return(-1);
571 <        if (fa->nsargs != 0 || fa->niargs != 0 || fa->nfargs != 4)
571 >        if (fa.nsargs != 0  || fa.nfargs != 4)
572                  return(-1);
573          
574 <        multp3(cent, fa->farg, tot.xfm);        /* transform center */
574 >        multp3(cent, fa.farg, tot.xfm); /* transform center */
575          
576 <        rad = fa->farg[3] * tot.sca;            /* scale radius */
576 >        rad = fa.farg[3] * tot.sca;             /* scale radius */
577          
578          printf("0\n0\n4");
579          printf(" %18.12g %18.12g %18.12g %18.12g\n",
580                          cent[0], cent[1], cent[2], rad);
581 <        freefargs(fa);
581 >        freefargs(&fa);
582          return(0);
583   }
584  
# Line 516 | Line 586 | FILE  *fin;
586   o_face(fin)                     /* transform face arguments */
587   FILE  *fin;
588   {
589 <        double  p[3];
589 >        FVECT  p;
590          register int  i;
591 <        register FUNARGS  *fa;
591 >        FUNARGS  fa;
592  
593 <        if ((fa = getfargs(fin)) == NULL)
593 >        if (readfargs(&fa, fin) != 1)
594                  return(-1);
595 <        if (fa->nsargs != 0 || fa->niargs != 0 || fa->nfargs % 3)
595 >        if (fa.nsargs != 0  || fa.nfargs % 3)
596                  return(-1);
597          
598 <        printf("0\n0\n%d\n", fa->nfargs);
598 >        printf("0\n0\n%d\n", fa.nfargs);
599          
600 <        for (i = 0; i < fa->nfargs; i += 3) {
600 >        for (i = 0; i < fa.nfargs; i += 3) {
601                  if (reverse)
602 <                        multp3(p, fa->farg+(fa->nfargs-i-3), tot.xfm);
602 >                        multp3(p, fa.farg+(fa.nfargs-i-3), tot.xfm);
603                  else
604 <                        multp3(p, fa->farg+i, tot.xfm);
604 >                        multp3(p, fa.farg+i, tot.xfm);
605                  printf(" %18.12g %18.12g %18.12g\n", p[0], p[1], p[2]);
606          }
607 <        freefargs(fa);
607 >        freefargs(&fa);
608          return(0);
609   }
610  
# Line 542 | Line 612 | FILE  *fin;
612   o_cone(fin)                     /* transform cone and cup arguments */
613   FILE  *fin;
614   {
615 <        double  p0[3], p1[3], r0, r1;
616 <        register FUNARGS  *fa;
615 >        FVECT  p0, p1;
616 >        double  r0, r1;
617 >        FUNARGS  fa;
618  
619 <        if ((fa = getfargs(fin)) == NULL)
619 >        if (readfargs(&fa, fin) != 1)
620                  return(-1);
621 <        if (fa->nsargs != 0 || fa->niargs != 0 || fa->nfargs != 8)
621 >        if (fa.nsargs != 0  || fa.nfargs != 8)
622                  return(-1);
623  
624          printf("0\n0\n8\n");
625  
626 <        multp3(p0, fa->farg, tot.xfm);
627 <        multp3(p1, fa->farg+3, tot.xfm);
628 <        r0 = fa->farg[6] * tot.sca;
629 <        r1 = fa->farg[7] * tot.sca;
626 >        multp3(p0, fa.farg, tot.xfm);
627 >        multp3(p1, fa.farg+3, tot.xfm);
628 >        r0 = fa.farg[6] * tot.sca;
629 >        r1 = fa.farg[7] * tot.sca;
630          printf(" %18.12g %18.12g %18.12g\n", p0[0], p0[1], p0[2]);
631          printf(" %18.12g %18.12g %18.12g\n", p1[0], p1[1], p1[2]);
632          printf(" %18.12g %18.12g\n", r0, r1);
633  
634 <        freefargs(fa);
634 >        freefargs(&fa);
635          return(0);
636   }
637  
# Line 568 | Line 639 | FILE  *fin;
639   o_cylinder(fin)                 /* transform cylinder and tube arguments */
640   FILE  *fin;
641   {
642 <        double  p0[3], p1[3], rad;
643 <        register FUNARGS  *fa;
642 >        FVECT  p0, p1;
643 >        double  rad;
644 >        FUNARGS  fa;
645  
646 <        if ((fa = getfargs(fin)) == NULL)
646 >        if (readfargs(&fa, fin) != 1)
647                  return(-1);
648 <        if (fa->nsargs != 0 || fa->niargs != 0 || fa->nfargs != 7)
648 >        if (fa.nsargs != 0  || fa.nfargs != 7)
649                  return(-1);
650  
651          printf("0\n0\n7\n");
652  
653 <        multp3(p0, fa->farg, tot.xfm);
654 <        multp3(p1, fa->farg+3, tot.xfm);
655 <        rad = fa->farg[6] * tot.sca;
653 >        multp3(p0, fa.farg, tot.xfm);
654 >        multp3(p1, fa.farg+3, tot.xfm);
655 >        rad = fa.farg[6] * tot.sca;
656          printf(" %18.12g %18.12g %18.12g\n", p0[0], p0[1], p0[2]);
657          printf(" %18.12g %18.12g %18.12g\n", p1[0], p1[1], p1[2]);
658          printf(" %18.12g\n", rad);
659 <        freefargs(fa);
659 >        freefargs(&fa);
660          return(0);
661   }
662  
# Line 592 | Line 664 | FILE  *fin;
664   o_ring(fin)                     /* transform ring arguments */
665   FILE  *fin;
666   {
667 <        double  p0[3], pd[3], r0, r1;
668 <        register FUNARGS  *fa;
667 >        FVECT  p0, pd;
668 >        double  r0, r1;
669 >        FUNARGS  fa;
670  
671 <        if ((fa = getfargs(fin)) == NULL)
671 >        if (readfargs(&fa, fin) != 1)
672                  return(-1);
673 <        if (fa->nsargs != 0 || fa->niargs != 0 || fa->nfargs != 8)
673 >        if (fa.nsargs != 0  || fa.nfargs != 8)
674                  return(-1);
675  
676          printf("0\n0\n8\n");
677  
678 <        multp3(p0, fa->farg, tot.xfm);
679 <        multv3(pd, fa->farg+3, tot.xfm);
680 <        r0 = fa->farg[6] * tot.sca;
681 <        r1 = fa->farg[7] * tot.sca;
678 >        multp3(p0, fa.farg, tot.xfm);
679 >        multv3(pd, fa.farg+3, tot.xfm);
680 >        if (invert) {
681 >                pd[0] = -pd[0];
682 >                pd[1] = -pd[1];
683 >                pd[2] = -pd[2];
684 >        }
685 >        r0 = fa.farg[6] * tot.sca;
686 >        r1 = fa.farg[7] * tot.sca;
687          printf(" %18.12g %18.12g %18.12g\n", p0[0], p0[1], p0[2]);
688          printf(" %18.12g %18.12g %18.12g\n", pd[0], pd[1], pd[2]);
689          printf(" %18.12g %18.12g\n", r0, r1);
690 <        freefargs(fa);
690 >        freefargs(&fa);
691          return(0);
692   }
693  
694  
617 – FUNARGS *
618 – getfargs(fp)            /* get function arguments from stream */
619 – FILE  *fp;
620 – {
621 –        char  *strcpy();
622 –        char  sbuf[MAXSTR];
623 –        int  n;
624 –        register FUNARGS  *fa;
625 –        register int  i;
626 –
627 –        if ((fa = (FUNARGS *)malloc((unsigned)sizeof(FUNARGS))) == NULL)
628 –                goto memerr;
629 –        if (fscanf(fp, "%d", &n) != 1 || n < 0)
630 –                return(NULL);
631 –        if (fa->nsargs = n) {
632 –                fa->sarg = (char **)malloc((unsigned)fa->nsargs*sizeof(char *));
633 –                if (fa->sarg == NULL)
634 –                        goto memerr;
635 –                for (i = 0; i < fa->nsargs; i++) {
636 –                        if (fscanf(fp, "%s", sbuf) != 1)
637 –                                return(NULL);
638 –                        if ((fa->sarg[i] = malloc((unsigned)strlen(sbuf)+1)) == NULL)
639 –                                goto memerr;
640 –                        strcpy(fa->sarg[i], sbuf);
641 –                }
642 –        } else
643 –                fa->sarg = NULL;
644 –        if (fscanf(fp, "%d", &n) != 1 || n < 0)
645 –                return(NULL);
646 –        if (fa->niargs = n) {
647 –                fa->iarg = (int *)malloc((unsigned)fa->niargs*sizeof(int));
648 –                if (fa->iarg == NULL)
649 –                        goto memerr;
650 –                for (i = 0; i < fa->niargs; i++)
651 –                        if (fscanf(fp, "%d", &fa->iarg[i]) != 1)
652 –                                return(NULL);
653 –        } else
654 –                fa->iarg = NULL;
655 –        if (fscanf(fp, "%d", &n) != 1 || n < 0)
656 –                return(NULL);
657 –        if (fa->nfargs = n) {
658 –                fa->farg = (double *)malloc((unsigned)fa->nfargs*sizeof(double));
659 –                if (fa->farg == NULL)
660 –                        goto memerr;
661 –                for (i = 0; i < fa->nfargs; i++)
662 –                        if (fscanf(fp, "%lf", &fa->farg[i]) != 1)
663 –                                return(NULL);
664 –        } else
665 –                fa->farg = NULL;
666 –        return(fa);
667 – memerr:
668 –        fprintf(stderr, "%s: out of memory in getfargs\n", progname);
669 –        exit(1);
670 – }
671 –
672 –
673 – freefargs(fa)                   /* free memory associated with fa */
674 – register FUNARGS  *fa;
675 – {
676 –        register int  i;
677 –
678 –        for (i = 0; i < fa->nsargs; i++)
679 –                free(fa->sarg[i]);
680 –        if (fa->nsargs)
681 –                free(fa->sarg);
682 –        if (fa->niargs)
683 –                free(fa->iarg);
684 –        if (fa->nfargs)
685 –                free(fa->farg);
686 –        free(fa);
687 – }
688 –
689 –
695   initotypes()                    /* initialize ofun[] array */
696   {
692 –        extern int  o_source();
693 –        extern int  o_sphere();
694 –        extern int  o_face();
695 –        extern int  o_cone();
696 –        extern int  o_cylinder();
697 –        extern int  o_ring();
698 –        extern int  m_glow();
699 –        extern int  m_spot();
700 –        extern int  m_dielectric();
701 –        extern int  m_interface();
702 –        extern int  text();
703 –        extern int  alias();
704 –        extern int  passargs();
705 –        extern int  addxform();
697          register int  i;
698  
699          if (ofun[OBJ_SOURCE].funp == o_source)
# Line 729 | Line 720 | initotypes()                   /* initialize ofun[] array */
720          ofun[MAT_SPOT].funp = m_spot;
721          ofun[MAT_DIELECTRIC].funp = m_dielectric;
722          ofun[MAT_INTERFACE].funp = m_interface;
723 +        ofun[MAT_MIST].funp = m_mist;
724          ofun[PAT_CTEXT].funp =
725          ofun[PAT_BTEXT].funp =
726          ofun[MIX_TEXT].funp = text;
727          ofun[ALIAS].funp = alias;
728 +                                        /* surface inverses */
729 +        tinvers[OBJ_FACE] = OBJ_FACE;
730 +        tinvers[OBJ_SOURCE] = OBJ_SOURCE;
731 +        tinvers[OBJ_CONE] = OBJ_CUP;
732 +        tinvers[OBJ_CUP] = OBJ_CONE;
733 +        tinvers[OBJ_SPHERE] = OBJ_BUBBLE;
734 +        tinvers[OBJ_BUBBLE] = OBJ_SPHERE;
735 +        tinvers[OBJ_RING] = OBJ_RING;
736 +        tinvers[OBJ_CYLINDER] = OBJ_TUBE;
737 +        tinvers[OBJ_TUBE] = OBJ_CYLINDER;
738 +        tinvers[OBJ_INSTANCE] = OBJ_INSTANCE;   /* oh, well */
739   }
740 +
741 +
742 + #ifdef  OLDXFORM
743 + openmain(fname)
744 + char  *fname;
745 + {
746 +        if (fname == NULL) {
747 +                strcpy(mainfn, "standard input");
748 +                mainfp = stdin;
749 +                return;
750 +        }
751 +        if (mainfp != NULL) {
752 +                if (!strcmp(fname, mainfn)) {
753 +                        rewind(mainfp);
754 +                        return;
755 +                }
756 +                fclose(mainfp);
757 +        }
758 +        if ((mainfp = fopen(fname, "r")) == NULL) {
759 +                fprintf(stderr, "%s: cannot open file \"%s\"\n",
760 +                                progname, fname);
761 +                exit(1);
762 +        }
763 +        strcpy(mainfn, fname);
764 + }
765 + #else
766 + openmain(fname)         /* open fname for input, changing to its directory */
767 + char  *fname;
768 + {
769 +        extern FILE  *tmpfile();
770 +        extern char  *getlibpath(), *getpath();
771 +        static char  origdir[MAXPATH];
772 +        static char  curfn[MAXPATH];
773 +        static int  diffdir;
774 +        register char  *fpath;
775 +
776 +        if (fname == NULL) {                    /* standard input */
777 +                if (mainfp == NULL) {
778 +                        register int  c;
779 +                        strcpy(mainfn, "standard input");
780 +                        if (nrept <= 1) {
781 +                                mainfp = stdin;
782 +                                return;                 /* just read once */
783 +                        }
784 +                                                        /* else copy */
785 +                        if ((mainfp = tmpfile()) == NULL) {
786 +                                fprintf(stderr,
787 +                                        "%s: cannot create temporary file\n",
788 +                                                progname);
789 +                                exit(1);
790 +                        }
791 +                        while ((c = getc(stdin)) != EOF)
792 +                                putc(c, mainfp);
793 +                        fclose(stdin);
794 +                }
795 +                rewind(mainfp);                 /* rewind copy */
796 +                return;
797 +        }
798 +        if (mainfp == NULL) {                   /* first call, initialize */
799 +                getwd(origdir);
800 +        } else if (!strcmp(fname, curfn)) {     /* just need to rewind? */
801 +                rewind(mainfp);
802 +                return;
803 +        } else {                                /* else close old stream */
804 +                fclose(mainfp);
805 +                if (diffdir) {
806 +                        chdir(origdir);
807 +                        diffdir = 0;
808 +                }
809 +        }
810 +        strcpy(curfn, fname);                   /* remember file name */
811 +                                                /* get full path */
812 +        if ((fpath = getpath(fname, getlibpath(), R_OK)) == NULL) {
813 +                fprintf(stderr, "%s: cannot find file \"%s\"\n",
814 +                                progname, fname);
815 +                exit(1);
816 +        }
817 +        if (fpath[0] == '.' && ISDIRSEP(fpath[1]))      /* remove leading ./ */
818 +                fpath += 2;
819 +                                                /* record path name */
820 +        strcpy(mainfn, fpath);
821 +        if (expand) {                           /* change to local directory */
822 +                register char  *cp = fpath + strlen(fpath);     /* get dir. */
823 +                while (cp > fpath) {
824 +                        cp--;
825 +                        if (ISDIRSEP(*cp)) {
826 +                                if (cp == fpath)
827 +                                        cp++;   /* root special case */
828 +                                break;
829 +                        }
830 +                }
831 +                *cp = '\0';
832 +                if (fpath[0]) {                 /* change to new directory? */
833 +                        if (chdir(fpath) < 0) {
834 +                                fprintf(stderr,
835 +                                "%s: cannot change directory to \"%s\"\n",
836 +                                                progname, fpath);
837 +                                exit(1);
838 +                        }
839 +                        diffdir++;
840 +                }
841 +                                                /* get final path component */
842 +                for (fpath = fname+strlen(fname);
843 +                                fpath > fname && !ISDIRSEP(fpath[-1]); fpath--)
844 +                        ;
845 +        }
846 +                                                /* open the file */
847 +        if ((mainfp = fopen(fpath, "r")) == NULL) {
848 +                fprintf(stderr, "%s: cannot open file \"%s\"\n",
849 +                                progname, mainfn);
850 +                exit(1);
851 +        }
852 + }
853 + #endif

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines