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

Comparing ray/src/rt/ambio.c (file contents):
Revision 2.3 by greg, Tue May 28 13:42:46 1996 UTC vs.
Revision 2.15 by greg, Wed Nov 15 18:02:52 2023 UTC

# Line 1 | Line 1
1 – /* Copyright (c) 1992 Regents of the University of California */
2 –
1   #ifndef lint
2 < static char SCCSid[] = "$SunId$ LBL";
2 > static const char       RCSid[] = "$Id$";
3   #endif
6 –
4   /*
5   * Read and write portable ambient values
6 + *
7 + *  Declarations of external symbols in ambient.h
8   */
9  
10 < #include <stdio.h>
10 > #include "copyright.h"
11  
12 < #include "color.h"
14 <
15 < #include "fvect.h"
16 <
12 > #include "ray.h"
13   #include "ambient.h"
14  
15  
16 < #define  putvec(v,fp)   putflt((v)[0],fp);putflt((v)[1],fp);putflt((v)[2],fp)
16 > int     *AMB_CNDX = CNDX;       /* open ambient file RGBE indices */
17 > float   *AMB_WLPART = WLPART;   /* open ambient file limits+partitions (nm) */
18  
22 – #define  getvec(v,fp)   (v)[0]=getflt(fp);(v)[1]=getflt(fp);(v)[2]=getflt(fp)
19  
20 < #define  badflt(x)      ((x) < -FHUGE || (x) > FHUGE)
20 > #define  badflt(x)      (((x) < -FHUGE) | ((x) > FHUGE))
21  
22 < #define  badvec(v)      (badflt((v)[0]) || badflt((v)[1]) || badflt((v)[2]))
22 > #define  badvec(v)      (badflt((v)[0]) | badflt((v)[1]) | badflt((v)[2]))
23  
24  
25 < extern double  getflt();
26 < extern long  getint();
25 > int
26 > amb_headline(           /* check ambient headline (copy to file if *p) */
27 >        char *hl,
28 >        void *p
29 > )
30 > {
31 >        static int      ambcndx[4];
32 >        static float    ambwlpart[4];
33 >        FILE            *fout = (FILE *)p;
34 >        char            fmt[MAXFMTLEN];
35  
36 +        if (formatval(fmt, hl)) {
37 +                if (strcmp(fmt, AMBFMT))
38 +                        return(-1);
39 +                return(0);
40 +        }
41 +        if (isncomp(hl)) {
42 +                ambcndx[3] = ncompval(hl);
43 +                if ((ambcndx[3] < 3) | (ambcndx[3] > MAXCSAMP))
44 +                        return(-1);
45 +                AMB_CNDX = ambcndx;
46 +                return(1);
47 +        }
48 +        if (iswlsplit(hl)) {
49 +                if (!wlsplitval(ambwlpart, hl))
50 +                        return(-1);
51 +                AMB_WLPART = ambwlpart;
52 +                return(1);
53 +        }
54 +        if (fout)
55 +                fputs(hl, fout);
56 +        return(0);
57 + }
58  
59 +
60 + void
61   putambmagic(fp)                 /* write out ambient value magic number */
62   FILE  *fp;
63   {
64 <        putint((long)AMBMAGIC, 2, fp);
64 >        putint(AMBMAGIC, 2, fp);
65   }
66  
67  
68 + int
69   hasambmagic(fp)                 /* read in and check validity of magic # */
70   FILE  *fp;
71   {
72 <        register int  magic;
72 >        int  magic;
73  
74          magic = getint(2, fp);
75          if (feof(fp))
# Line 49 | Line 78 | FILE  *fp;
78   }
79  
80  
81 < writambval(av, fp)              /* write ambient value to stream */
82 < register AMBVAL  *av;
83 < FILE  *fp;
81 > #define  putpos(v,fp)   putflt((v)[0],fp);putflt((v)[1],fp);putflt((v)[2],fp)
82 >
83 > #define  getpos(v,fp)   (v)[0]=getflt(fp);(v)[1]=getflt(fp);(v)[2]=getflt(fp)
84 >
85 > #define  putv2(v2,fp)   putflt((v2)[0],fp);putflt((v2)[1],fp)
86 >
87 > #define  getv2(v2,fp)   (v2)[0]=getflt(fp);(v2)[1]=getflt(fp)
88 >
89 > int
90 > writambval(                     /* write ambient value to stream */
91 >        AMBVAL  *av,
92 >        FILE  *fp
93 > )
94   {
95 <        COLR  col;
95 >        SCOLR  sclr;
96  
97 <        putint((long)av->lvl, 1, fp);
97 >        putint(av->lvl, 1, fp);
98          putflt(av->weight, fp);
99 <        putvec(av->pos, fp);
100 <        putvec(av->dir, fp);
101 <        setcolr(col, colval(av->val,RED),
102 <                        colval(av->val,GRN), colval(av->val,BLU));
103 <        fwrite((char *)col, sizeof(col), 1, fp);
104 <        putflt(av->rad, fp);
105 <        putvec(av->gpos, fp);
106 <        putvec(av->gdir, fp);
99 >        putpos(av->pos, fp);
100 >        putint(av->ndir, sizeof(av->ndir), fp);
101 >        putint(av->udir, sizeof(av->udir), fp);
102 >        putv2(av->rad, fp);
103 >        putv2(av->gpos, fp);
104 >        putv2(av->gdir, fp);
105 >        putint(av->corral, sizeof(av->corral), fp);
106 >        if ((AMB_CNDX == CNDX) & (AMB_WLPART == WLPART)) {
107 >                scolor_scolr(sclr, av->val);
108 >        } else {
109 >                SCOLOR  scol;
110 >                convertscolor(scol, AMB_CNDX[3], AMB_WLPART[0], AMB_WLPART[3],
111 >                                av->val, NCSAMP, WLPART[0], WLPART[3]);
112 >                scolor2scolr(sclr, scol, AMB_CNDX[3]);
113 >        }
114 >        putbinary(sclr, AMB_CNDX[3]+1, 1, fp);
115 >
116          return(ferror(fp) ? -1 : 0);
117   }
118  
119  
120   int
121 < ambvalOK(av)                    /* check consistency of ambient value */
122 < register AMBVAL  *av;
121 > ambvalOK(                       /* check consistency of ambient value */
122 >        AMBVAL  *av
123 > )
124   {
125 <        double  d;
125 >        int     i;
126  
127          if (badvec(av->pos)) return(0);
128 <        if (badvec(av->dir)) return(0);
129 <        d = DOT(av->dir,av->dir);
130 <        if (d < 0.9999 || d > 1.0001) return(0);
131 <        if (av->lvl < 0 || av->lvl > 100) return(0);
132 <        if (av->weight <= 0. || av->weight > 1.) return(0);
133 <        if (av->rad <= 0. || av->rad >= FHUGE) return(0);
134 <        if (colval(av->val,RED) < 0. ||
135 <                        colval(av->val,RED) > FHUGE ||
136 <                        colval(av->val,GRN) < 0. ||
137 <                        colval(av->val,GRN) > FHUGE ||
89 <                        colval(av->val,BLU) < 0. ||
90 <                        colval(av->val,BLU) > FHUGE) return(0);
91 <        if (badvec(av->gpos)) return(0);
92 <        if (badvec(av->gdir)) return(0);
128 >        if (!av->ndir | !av->udir) return(0);
129 >        if ((av->weight <= 0.) | (av->weight > 1.)) return(0);
130 >        if ((av->rad[0] <= 0.) | (av->rad[0] >= FHUGE)) return(0);
131 >        if ((av->rad[1] <= 0.) | (av->rad[1] >= FHUGE)) return(0);
132 >        if (av->rad[0] > av->rad[1]+FTINY) return(0);
133 >        if (badflt(av->gpos[0]) | badflt(av->gpos[1])) return(0);
134 >        if (badflt(av->gdir[0]) | badflt(av->gdir[1])) return(0);
135 >        for (i = AMB_CNDX[3]; i-- > 0; )
136 >                if ((av->val[i] < 0.) | (av->val[i] >= FHUGE))
137 >                        return(0);
138          return(1);
139   }
140  
141  
142 < readambval(av, fp)              /* read ambient value from stream */
143 < register AMBVAL  *av;
144 < FILE  *fp;
142 > int
143 > readambval(                     /* read ambient value from stream */
144 >        AMBVAL  *av,
145 >        FILE  *fp
146 > )
147   {
148 <        COLR  col;
148 >        SCOLR  sclr;
149  
150 <        av->lvl = getint(1, fp);
150 >        av->lvl = getint(1, fp) & 0xff;
151          if (feof(fp))
152                  return(0);
153          av->weight = getflt(fp);
154 <        getvec(av->pos, fp);
155 <        getvec(av->dir, fp);
156 <        if (fread((char *)col, sizeof(col), 1, fp) != 1)
154 >        getpos(av->pos, fp);
155 >        av->ndir = getint(sizeof(av->ndir), fp);
156 >        av->udir = getint(sizeof(av->udir), fp);
157 >        getv2(av->rad, fp);
158 >        getv2(av->gpos, fp);
159 >        getv2(av->gdir, fp);
160 >        av->corral = (uint32)getint(sizeof(av->corral), fp);
161 >        if (getbinary(sclr, AMB_CNDX[3]+1, 1, fp) != 1)
162                  return(0);
163 <        colr_color(av->val, col);
164 <        av->rad = getflt(fp);
165 <        getvec(av->gpos, fp);
166 <        getvec(av->gdir, fp);
163 >        if ((AMB_CNDX == CNDX) & (AMB_WLPART == WLPART)) {
164 >                scolr_scolor(av->val, sclr);
165 >        } else {
166 >                SCOLOR  scol;
167 >                scolr2scolor(scol, sclr, AMB_CNDX[3]);
168 >                convertscolor(av->val, NCSAMP, WLPART[0], WLPART[3],
169 >                                scol, AMB_CNDX[3], AMB_WLPART[0], AMB_WLPART[3]);
170 >        }
171          return(feof(fp) ? 0 : ambvalOK(av));
172   }

Diff Legend

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