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.17 by greg, Wed Oct 23 15:37:47 1991 UTC vs.
Revision 2.12 by greg, Wed Jun 12 11:55:27 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"
# Line 35 | Line 37 | 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   short  tinvers[NUMOTYPE];               /* inverse types for surfaces */
47  
48 + int  nrept = 1;                         /* number of array repetitions */
49 +
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();
56 <        FILE  *fp;
62 >        char  *fname;
63          int  a;
64                                          /* check for array */
65          for (a = 1; a < argc; a++)
# Line 112 | Line 118 | char  *argv[];
118                  printf(" %s", xav[a]);
119          putchar('\n');
120                                          /* transform input */
121 <        if (xac == argc)
122 <                xform("standard input", stdin);
123 <        else
121 >        if (xac == argc) {
122 >                openmain(NULL);
123 >                xform(mainfn, mainfp);
124 >        } else
125                  for (a = xac; a < argc; a++) {
126 <                        if ((fp = fopen(argv[a], "r")) == NULL) {
127 <                                fprintf(stderr, "%s: cannot open \"%s\"\n",
121 <                                                progname, argv[a]);
122 <                                exit(1);
123 <                        }
124 <                        xform(argv[a], fp);
125 <                        fclose(fp);
126 >                        openmain(argv[a]);
127 >                        xform(mainfn, mainfp);
128                  }
129  
130          return(0);
# Line 136 | Line 138 | int  ac, ai;
138          char  *newav[256], **avp;
139          char  newid[128], repts[32];
140          char  *oldid = NULL;
141 <        int  i, err;
141 >        int  n, i, err;
142          
143          avp = newav+2;
144          avp[0] = av[0];
# Line 156 | Line 158 | int  ac, ai;
158                  avp = newav;
159                  ac += 2;
160          }
161 +        nrept *= n = atoi(av[ai+1]);
162          err = 0;
163 <        for (i = 0; i < atoi(av[ai+1]); i++) {
163 >        for (i = 0; i < n; i++) {
164                  if (oldid == NULL)
165                          sprintf(newid, "a%d", i);
166                  else
# Line 173 | Line 176 | xform(name, fin)                       /* transform stream by tot.xfm */
176   char  *name;
177   register FILE  *fin;
178   {
179 +        int  nobjs = 0;
180          register int  c;
181  
182          while ((c = getc(fin)) != EOF) {
# Line 188 | Line 192 | register FILE  *fin;
192                  } else if (c == '!') {                  /* command */
193                          ungetc(c, fin);
194                          xfcomm(name, fin);
195 +                        nobjs++;
196                  } else {                                /* object */
197                          ungetc(c, fin);
198                          xfobject(name, fin);
199 +                        nobjs++;
200                  }
201          }
202 +        if (nobjs == 0)
203 +                fprintf(stderr, "%s: (%s): warning - empty file\n",
204 +                                progname, name);
205   }
206  
207  
208   xfcomm(fname, fin)                      /* transform a command */
209 + char  *fname;
210   FILE  *fin;
211   {
212 <        FILE  *popen();
213 <        char  *fgetline();
212 >        extern FILE  *popen();
213 >        extern char  *fgetline();
214          FILE  *pin;
215          char  buf[512];
216          int  i;
217  
218          fgetline(buf, sizeof(buf), fin);
219          if (expand) {
220 <                if (xac > 2) {
221 <                        if ((pin = popen(buf+1, "r")) == NULL) {
222 <                                fprintf(stderr,
223 <                                "%s: (%s): cannot execute \"%s\"\n",
214 <                                                progname, fname, buf);
215 <                                exit(1);
216 <                        }
217 <                        xform(buf, pin);
218 <                        pclose(pin);
219 <                } else {
220 <                        fflush(stdout);
221 <                        system(buf+1);
220 >                if ((pin = popen(buf+1, "r")) == NULL) {
221 >                        fprintf(stderr, "%s: (%s): cannot execute \"%s\"\n",
222 >                                        progname, fname, buf);
223 >                        exit(1);
224                  }
225 +                xform(buf, pin);
226 +                pclose(pin);
227          } else {
228                  printf("\n%s", buf);
229                  if (xac > 1) {
# Line 248 | Line 252 | FILE  *fin;
252                                  progname, fname, typ);
253                  exit(1);
254          }
255 <        if (issurface(fn))
255 >        if (ismodifier(fn))
256 >                printf("\n%s %s ", nam, typ);
257 >        else
258                  printf("\n%s %s ", newmod != NULL ? newmod : nam,
259                                  invert ? ofun[tinvers[fn]].funame : typ);
254 –        else
255 –                printf("\n%s %s ", nam, typ);
260                                                  /* object name */
261          fgetword(nam, sizeof(nam), fin);
262 <        if (idprefix != NULL && issurface(fn))
259 <                printf("%s.%s\n", idprefix, nam);
260 <        else
262 >        if (idprefix == NULL || ismodifier(fn))
263                  printf("%s\n", nam);
264 +        else
265 +                printf("%s.%s\n", idprefix, nam);
266                                                  /* transform arguments */
267          if ((*ofun[fn].funp)(fin) < 0) {
268                  fprintf(stderr, "%s: (%s): bad %s \"%s\"\n",
# Line 272 | Line 276 | o_default(fin)                 /* pass on arguments unchanged */
276   FILE  *fin;
277   {
278          register int  i;
279 <        FUNARGS  fa;
279 >        FUNARGS  fa;
280  
281          if (readfargs(&fa, fin) != 1)
282                  return(-1);
# Line 281 | Line 285 | FILE  *fin;
285          for (i = 0; i < fa.nsargs; i++)
286                  printf(" %s", fa.sarg[i]);
287          printf("\n");
288 < #ifdef  IARGS
288 > #ifdef  IARGS
289                                          /* integer arguments */
290          printf("%d", fa.niargs);
291          for (i = 0; i < fa.niargs; i++)
# Line 304 | Line 308 | addxform(fin)                  /* add xf arguments to strings */
308   FILE  *fin;
309   {
310          register int  i;
311 <        FUNARGS  fa;
311 >        int  resetarr = 0;
312 >        FUNARGS  fa;
313  
314          if (readfargs(&fa, fin) != 1)
315                  return(-1);
316                                          /* string arguments */
317 <        printf("%d", fa.nsargs + xac-xfa);
317 >        if (xac > xfa && strcmp(xav[xfa], "-i"))
318 >                resetarr = 2;
319 >        printf("%d", fa.nsargs + resetarr + xac-xfa);
320          for (i = 0; i < fa.nsargs; i++)
321                  printf(" %s", fa.sarg[i]);
322 +        if (resetarr)
323 +                printf(" -i 1");
324          for (i = xfa; i < xac; i++)     /* add xf arguments */
325                  printf(" %s", xav[i]);
326          printf("\n");
327 < #ifdef  IARGS
327 > #ifdef  IARGS
328                                          /* integer arguments */
329          printf("%d", fa.niargs);
330          for (i = 0; i < fa.niargs; i++)
# Line 363 | Line 372 | FILE  *fin;
372   m_glow(fin)                     /* transform arguments for proximity light */
373   FILE  *fin;
374   {
375 <        FUNARGS  fa;
375 >        FUNARGS  fa;
376  
377          if (readfargs(&fa, fin) != 1)
378                  return(-1);
# Line 382 | Line 391 | m_spot(fin)                    /* transform arguments for spotlight */
391   FILE  *fin;
392   {
393          FVECT  v;
394 <        FUNARGS  fa;
394 >        FUNARGS  fa;
395  
396          if (readfargs(&fa, fin) != 1)
397                  return(-1);
# Line 398 | Line 407 | FILE  *fin;
407   }
408  
409  
410 + m_mist(fin)             /* transform arguments for mist */
411 + FILE  *fin;
412 + {
413 +        FUNARGS  fa;
414 +        int     i;
415 +
416 +        if (readfargs(&fa, fin) != 1)
417 +                return(-1);
418 +        if (fa.nfargs > 5)
419 +                return(-1);
420 +        printf("%d", fa.nsargs);
421 +        if (idprefix == NULL)
422 +                for (i = 0; i < fa.nsargs; i++)
423 +                        printf(" %s", fa.sarg[i]);
424 +        else
425 +                for (i = 0; i < fa.nsargs; i++) {
426 +                        char    sname[256], *sp;
427 +                        register char   *cp1, *cp2 = sname;
428 +                                                        /* add idprefix */
429 +                        for (sp = fa.sarg[i]; *sp; sp = cp1) {
430 +                                for (cp1 = idprefix; *cp1; )
431 +                                        *cp2++ = *cp1++;
432 +                                *cp2++ = '.';
433 +                                for (cp1 = sp; *cp1 &&
434 +                                                (*cp2++ = *cp1++) != '>'; )
435 +                                        ;
436 +                        }
437 +                        *cp2 = '\0';
438 +                        printf(" %s", sname);
439 +                }
440 +        printf("\n0\n%d", fa.nfargs);
441 +        if (fa.nfargs > 2)
442 +                printf(" %12.6g %12.6g %12.6g", fa.farg[0]/tot.sca,
443 +                                fa.farg[1]/tot.sca, fa.farg[2]/tot.sca);
444 +        if (fa.nfargs > 3)
445 +                printf(" %12.6g", fa.farg[3]);
446 +        if (fa.nfargs > 4)
447 +                printf(" %12.6g", fa.farg[4]);
448 +        printf("\n");
449 +        freefargs(&fa);
450 +        return(0);
451 + }
452 +
453 +
454   m_dielectric(fin)               /* transform arguments for dielectric */
455   FILE  *fin;
456   {
457 <        double  pow();
405 <        FUNARGS  fa;
457 >        FUNARGS  fa;
458  
459          if (readfargs(&fa, fin) != 1)
460                  return(-1);
461          if (fa.nsargs != 0  || fa.nfargs != 5)
462                  return(-1);
463          printf("0\n0\n5");
464 <        printf(" %18.12g %18.12g %18.12g",
464 >        printf(" %12.6g %12.6g %12.6g",
465                  pow(fa.farg[0], 1.0/tot.sca),
466                  pow(fa.farg[1], 1.0/tot.sca),
467                  pow(fa.farg[2], 1.0/tot.sca));
468 <        printf(" %18.12g %18.12g\n", fa.farg[3], fa.farg[4]);
468 >        printf(" %12.6g %12.6g\n", fa.farg[3], fa.farg[4]);
469          freefargs(&fa);
470          return(0);
471   }
# Line 422 | Line 474 | FILE  *fin;
474   m_interface(fin)                /* transform arguments for interface */
475   FILE  *fin;
476   {
477 <        double  pow();
426 <        FUNARGS  fa;
477 >        FUNARGS  fa;
478  
479          if (readfargs(&fa, fin) != 1)
480                  return(-1);
481          if (fa.nsargs != 0  || fa.nfargs != 8)
482                  return(-1);
483          printf("0\n0\n8\n");
484 <        printf("%18.12g %18.12g %18.12g",
484 >        printf("%12.6g %12.6g %12.6g",
485                  pow(fa.farg[0], 1.0/tot.sca),
486                  pow(fa.farg[1], 1.0/tot.sca),
487                  pow(fa.farg[2], 1.0/tot.sca));
488 <        printf(" %18.12g\n", fa.farg[3]);
489 <        printf("%18.12g %18.12g %18.12g",
488 >        printf(" %12.6g\n", fa.farg[3]);
489 >        printf("%12.6g %12.6g %12.6g",
490                  pow(fa.farg[4], 1.0/tot.sca),
491                  pow(fa.farg[5], 1.0/tot.sca),
492                  pow(fa.farg[6], 1.0/tot.sca));
493 <        printf(" %18.12g\n", fa.farg[7]);
493 >        printf(" %12.6g\n", fa.farg[7]);
494          freefargs(&fa);
495          return(0);
496   }
# Line 450 | Line 501 | FILE  *fin;
501   {
502          int  i;
503          FVECT  v;
504 <        FUNARGS  fa;
504 >        FUNARGS  fa;
505  
506          if (readfargs(&fa, fin) != 1)
507                  return(-1);
508 <        if (fa.nfargs != 9 && fa.nfargs != 11 && fa.nfargs != 15)
508 >        if (fa.nfargs < 9)
509                  return(-1);
510                                          /* string arguments */
511          printf("%d", fa.nsargs);
# Line 469 | Line 520 | FILE  *fin;
520          printf(" %18.12g %18.12g %18.12g\n", v[0], v[1], v[2]);
521                                          /* down vector */
522          multv3(v, fa.farg+6, tot.xfm);
523 <        printf(" %18.12g %18.12g %18.12g\n", v[0], v[1], v[2]);
524 <                                        /* forground and background */
525 <        if (fa.nfargs == 11)
526 <                printf(" %18.12g %18.12g\n", fa.farg[9], fa.farg[10]);
527 <        else if (fa.nfargs == 15) {
528 <                printf(" %18.12g %18.12g %18.12g\n",
478 <                                fa.farg[9], fa.farg[10], fa.farg[11]);
479 <                printf(" %18.12g %18.12g %18.12g\n",
480 <                                fa.farg[12], fa.farg[13], fa.farg[14]);
523 >        printf(" %18.12g %18.12g %18.12g", v[0], v[1], v[2]);
524 >                                        /* remaining arguments */
525 >        for (i = 9; i < fa.nfargs; i++) {
526 >                if (i%3 == 0)
527 >                        putchar('\n');
528 >                printf(" %18.12g", fa.farg[i]);
529          }
530 +        putchar('\n');
531          freefargs(&fa);
532          return(0);
533   }
# Line 488 | Line 537 | o_source(fin)                  /* transform source arguments */
537   FILE  *fin;
538   {
539          FVECT  dv;
540 <        FUNARGS  fa;
540 >        FUNARGS  fa;
541  
542          if (readfargs(&fa, fin) != 1)
543                  return(-1);
# Line 509 | Line 558 | o_sphere(fin)                  /* transform sphere arguments */
558   FILE  *fin;
559   {
560          FVECT  cent;
561 <        double  rad;
562 <        FUNARGS  fa;
561 >        double  rad;
562 >        FUNARGS  fa;
563  
564          if (readfargs(&fa, fin) != 1)
565                  return(-1);
566          if (fa.nsargs != 0  || fa.nfargs != 4)
567                  return(-1);
568          
569 <        multp3(cent, fa.farg, tot.xfm); /* transform center */
569 >        multp3(cent, fa.farg, tot.xfm); /* transform center */
570          
571          rad = fa.farg[3] * tot.sca;             /* scale radius */
572          
# Line 534 | Line 583 | FILE  *fin;
583   {
584          FVECT  p;
585          register int  i;
586 <        FUNARGS  fa;
586 >        FUNARGS  fa;
587  
588          if (readfargs(&fa, fin) != 1)
589                  return(-1);
# Line 559 | Line 608 | o_cone(fin)                    /* transform cone and cup arguments */
608   FILE  *fin;
609   {
610          FVECT  p0, p1;
611 <        double  r0, r1;
612 <        FUNARGS  fa;
611 >        double  r0, r1;
612 >        FUNARGS  fa;
613  
614          if (readfargs(&fa, fin) != 1)
615                  return(-1);
# Line 586 | Line 635 | o_cylinder(fin)                        /* transform cylinder and tube argum
635   FILE  *fin;
636   {
637          FVECT  p0, p1;
638 <        double  rad;
639 <        FUNARGS  fa;
638 >        double  rad;
639 >        FUNARGS  fa;
640  
641          if (readfargs(&fa, fin) != 1)
642                  return(-1);
# Line 611 | Line 660 | o_ring(fin)                    /* transform ring arguments */
660   FILE  *fin;
661   {
662          FVECT  p0, pd;
663 <        double  r0, r1;
664 <        FUNARGS  fa;
663 >        double  r0, r1;
664 >        FUNARGS  fa;
665  
666          if (readfargs(&fa, fin) != 1)
667                  return(-1);
# Line 640 | Line 689 | FILE  *fin;
689  
690   initotypes()                    /* initialize ofun[] array */
691   {
643 –        extern int  o_source();
644 –        extern int  o_sphere();
645 –        extern int  o_face();
646 –        extern int  o_cone();
647 –        extern int  o_cylinder();
648 –        extern int  o_ring();
649 –        extern int  m_glow();
650 –        extern int  m_spot();
651 –        extern int  m_dielectric();
652 –        extern int  m_interface();
653 –        extern int  text();
654 –        extern int  alias();
655 –        extern int  passargs();
656 –        extern int  addxform();
692          register int  i;
693  
694          if (ofun[OBJ_SOURCE].funp == o_source)
# Line 680 | Line 715 | initotypes()                   /* initialize ofun[] array */
715          ofun[MAT_SPOT].funp = m_spot;
716          ofun[MAT_DIELECTRIC].funp = m_dielectric;
717          ofun[MAT_INTERFACE].funp = m_interface;
718 +        ofun[MAT_MIST].funp = m_mist;
719          ofun[PAT_CTEXT].funp =
720          ofun[PAT_BTEXT].funp =
721          ofun[MIX_TEXT].funp = text;
722          ofun[ALIAS].funp = alias;
723                                          /* surface inverses */
724 +        tinvers[OBJ_FACE] = OBJ_FACE;
725          tinvers[OBJ_SOURCE] = OBJ_SOURCE;
726          tinvers[OBJ_CONE] = OBJ_CUP;
727          tinvers[OBJ_CUP] = OBJ_CONE;
# Line 695 | Line 732 | initotypes()                   /* initialize ofun[] array */
732          tinvers[OBJ_TUBE] = OBJ_CYLINDER;
733          tinvers[OBJ_INSTANCE] = OBJ_INSTANCE;   /* oh, well */
734   }
735 +
736 +
737 + #ifdef  OLDXFORM
738 + openmain(fname)
739 + char  *fname;
740 + {
741 +        if (fname == NULL) {
742 +                strcpy(mainfn, "standard input");
743 +                mainfp = stdin;
744 +                return;
745 +        }
746 +        if (mainfp != NULL) {
747 +                if (!strcmp(fname, mainfn)) {
748 +                        rewind(mainfp);
749 +                        return;
750 +                }
751 +                fclose(mainfp);
752 +        }
753 +        if ((mainfp = fopen(fname, "r")) == NULL) {
754 +                fprintf(stderr, "%s: cannot open file \"%s\"\n",
755 +                                progname, fname);
756 +                exit(1);
757 +        }
758 +        strcpy(mainfn, fname);
759 + }
760 + #else
761 + openmain(fname)         /* open fname for input, changing to its directory */
762 + char  *fname;
763 + {
764 +        extern FILE  *tmpfile();
765 +        extern char  *getlibpath(), *getpath();
766 +        static char  origdir[MAXPATH];
767 +        static char  curdir[MAXPATH];
768 +        char  newdir[MAXPATH], *cp;
769 +
770 +        if (fname == NULL) {                    /* standard input */
771 +                if (mainfp == NULL) {
772 +                        register int  c;
773 +                        strcpy(mainfn, "standard input");
774 +                        if (nrept <= 1) {
775 +                                mainfp = stdin;
776 +                                return;                 /* just read once */
777 +                        }
778 +                                                        /* else copy */
779 +                        if ((mainfp = tmpfile()) == NULL) {
780 +                                fprintf(stderr,
781 +                                        "%s: cannot create temporary file\n",
782 +                                                progname);
783 +                                exit(1);
784 +                        }
785 +                        while ((c = getc(stdin)) != EOF)
786 +                                putc(c, mainfp);
787 +                        fclose(stdin);
788 +                }
789 +                rewind(mainfp);                 /* rewind copy */
790 +                return;
791 +        }
792 +                                                /* get full path */
793 +        if ((cp = getpath(fname, getlibpath(), R_OK)) == NULL) {
794 +                fprintf(stderr, "%s: cannot find file \"%s\"\n",
795 +                                progname, fname);
796 +                exit(1);
797 +        }
798 +        if (cp[0] == '.' && ISDIRSEP(cp[1]))    /* remove leading ./ */
799 +                cp += 2;
800 +        if (mainfp == NULL) {                   /* first call, initialize */
801 +                getwd(origdir);
802 +                strcpy(curdir, origdir);
803 +        } else if (!strcmp(cp, mainfn)) {       /* just need to rewind? */
804 +                rewind(mainfp);
805 +                return;
806 +        } else                                  /* else close old stream */
807 +                fclose(mainfp);
808 +                                                /* record path name */
809 +        strcpy(mainfn, cp);
810 +        if (expand) {                           /* get directory component */
811 +                if (ISDIRSEP(cp[0]))
812 +                        strcpy(newdir, cp);
813 +                else
814 +                        sprintf(newdir, "%s%c%s", origdir, DIRSEP, cp);
815 +                for (cp = newdir+strlen(newdir); !ISDIRSEP(cp[-1]); cp--)
816 +                        ;
817 +                *cp = '\0';
818 +                if (strcmp(newdir, curdir)) {   /* change to new directory? */
819 +                        if (chdir(newdir) < 0) {
820 +                                fprintf(stderr,
821 +                                "%s: cannot change directory to \"%s\"\n",
822 +                                                progname, newdir);
823 +                                exit(1);
824 +                        }
825 +                        strcpy(curdir, newdir);
826 +                }
827 +                                                /* get final path component */
828 +                for (cp = fname+strlen(fname);
829 +                                cp > fname && !ISDIRSEP(cp[-1]); cp--)
830 +                        ;
831 +        }
832 +                                                /* open the file */
833 +        if ((mainfp = fopen(cp, "r")) == NULL) {
834 +                fprintf(stderr, "%s: cannot open file \"%s\"\n",
835 +                                progname, mainfn);
836 +                exit(1);
837 +        }
838 + }
839 + #endif

Diff Legend

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