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

Comparing ray/src/rt/func.c (file contents):
Revision 2.12 by greg, Thu Apr 14 04:50:29 1994 UTC vs.
Revision 2.24 by greg, Tue Feb 22 16:45:12 2011 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   *  func.c - interface to calcomp functions.
9 – *
10 – *     4/7/86
6   */
7  
8 < #include  "ray.h"
8 > #include "copyright.h"
9  
10 + #include  "ray.h"
11 + #include  "paths.h"
12   #include  "otypes.h"
16 –
13   #include  "func.h"
14  
15  
# Line 34 | Line 30 | XF  funcxf;                    /* current transformation */
30   static OBJREC  *fobj = NULL;    /* current function object */
31   static RAY  *fray = NULL;       /* current function ray */
32  
33 < static double  l_erf(), l_erfc(), l_arg();
33 > static double  l_erf(char *), l_erfc(char *), l_arg(char *);
34  
35  
36 < MFUNC *
37 < getfunc(m, ff, ef, dofwd)       /* get function for this modifier */
38 < OBJREC  *m;
39 < int  ff;
40 < unsigned  ef;
41 < int  dofwd;
36 > extern MFUNC *
37 > getfunc(        /* get function for this modifier */
38 >        OBJREC  *m,
39 >        int  ff,
40 >        unsigned int  ef,
41 >        int  dofwd
42 > )
43   {
47 –        extern EPNODE  *curfunc;
44          static char  initfile[] = INITFILE;
45          char  sbuf[MAXSTR];
46          register char  **arg;
# Line 56 | Line 52 | int  dofwd;
52                  return(f);
53          fobj = NULL; fray = NULL;
54          if (initfile[0]) {              /* initialize on first call */
55 +                esupport |= E_VARIABLE|E_FUNCTION|E_INCHAN|E_RCONST|E_REDEFW;
56 +                esupport &= ~(E_OUTCHAN);
57                  setcontext("");
58                  scompile("Dx=$1;Dy=$2;Dz=$3;", NULL, 0);
59                  scompile("Nx=$4;Ny=$5;Nz=$6;", NULL, 0);
# Line 65 | Line 63 | int  dofwd;
63                  scompile("Ix=$16;Iy=$17;Iz=$18;", NULL, 0);
64                  scompile("Jx=$19;Jy=$20;Jz=$21;", NULL, 0);
65                  scompile("Kx=$22;Ky=$23;Kz=$24;", NULL, 0);
66 +                scompile("Lu=$26;Lv=$27;", NULL, 0);
67                  funset("arg", 1, '=', l_arg);
68                  funset("erf", 1, ':', l_erf);
69                  funset("erfc", 1, ':', l_erfc);
# Line 82 | Line 81 | int  dofwd;
81          if (i == 1 && arg[ff][0] == '.')
82                  setcontext(f->ctx = "");        /* "." means no file */
83          else {
84 <                strcpy(sbuf,arg[ff]);   /* file name is context */
84 >                strcpy(sbuf,arg[ff]);           /* file name is context */
85                  if (i > LCALSUF && !strcmp(sbuf+i-LCALSUF, CALSUF))
86                          sbuf[i-LCALSUF] = '\0'; /* remove suffix */
87                  setcontext(f->ctx = savestr(sbuf));
# Line 132 | Line 131 | toofew:
131          objerror(m, USER, "too few string arguments");
132   memerr:
133          error(SYSTEM, "out of memory in getfunc");
134 +        return NULL; /* pro forma return */
135   }
136  
137  
138 < freefunc(m)                     /* free memory associated with modifier */
139 < OBJREC  *m;
138 > extern void
139 > freefunc(                       /* free memory associated with modifier */
140 >        OBJREC  *m
141 > )
142   {
143          register MFUNC  *f;
144          register int  i;
# Line 155 | Line 157 | OBJREC  *m;
157                  freestr(f->ctx);
158          }
159          if (f->b != &unitxf)
160 <                free((char *)f->b);
160 >                free((void *)f->b);
161          if (f->f != NULL && f->f != &unitxf)
162 <                free((char *)f->f);
163 <        free((char *)f);
162 >                free((void *)f->f);
163 >        free((void *)f);
164          m->os = NULL;
165   }
166  
167  
168 < setfunc(m, r)                   /* set channels for function call */
169 < OBJREC  *m;
170 < register RAY  *r;
168 > extern int
169 > setfunc(                        /* set channels for function call */
170 >        OBJREC  *m,
171 >        register RAY  *r
172 > )
173   {
174 <        static unsigned long  lastrno = ~0;
174 >        static RNUMBER  lastrno = ~0;
175          register MFUNC  *f;
176                                          /* get function */
177          if ((f = (MFUNC *)m->os) == NULL)
178 <                error(m, CONSISTENCY, "setfunc called before getfunc");
178 >                objerror(m, CONSISTENCY, "setfunc called before getfunc");
179                                          /* set evaluator context */
180          setcontext(f->ctx);
181                                          /* check to see if matrix set */
# Line 184 | Line 188 | register RAY  *r;
188                          funcxf.sca = r->rox->b.sca * f->b->sca;
189                          multmat4(funcxf.xfm, r->rox->b.xfm, f->b->xfm);
190                  } else
191 <                        copystruct(&funcxf, &r->rox->b);
191 >                        funcxf = r->rox->b;
192          else
193 <                copystruct(&funcxf, f->b);
193 >                funcxf = *(f->b);
194          lastrno = r->rno;
195          eclock++;               /* notify expression evaluator */
196          return(1);
197   }
198  
199  
200 < loadfunc(fname)                 /* load definition file */
201 < char  *fname;
200 > extern void
201 > loadfunc(                       /* load definition file */
202 >        char  *fname
203 > )
204   {
199 –        extern char  *getlibpath();     /* library search path */
205          char  *ffname;
206  
207 <        if ((ffname = getpath(fname, getlibpath(), R_OK)) == NULL) {
207 >        if ((ffname = getpath(fname, getrlibpath(), R_OK)) == NULL) {
208                  sprintf(errmsg, "cannot find function file \"%s\"", fname);
209                  error(USER, errmsg);
210          }
# Line 208 | Line 213 | char  *fname;
213  
214  
215   static double
216 < l_arg()                         /* return nth real argument */
216 > l_arg(char *nm)                 /* return nth real argument */
217   {
213 –        extern double  argument();
218          register int  n;
219  
220          if (fobj == NULL)
# Line 230 | Line 234 | l_arg()                                /* return nth real argument */
234  
235  
236   static double
237 < l_erf()                         /* error function */
237 > l_erf(char *nm)                 /* error function */
238   {
235 –        extern double  erf();
236 –
239          return(erf(argument(1)));
240   }
241  
242  
243   static double
244 < l_erfc()                        /* cumulative error function */
244 > l_erfc(char *nm)                /* cumulative error function */
245   {
244 –        extern double  erfc();
245 –
246          return(erfc(argument(1)));
247   }
248  
249  
250 < double
251 < chanvalue(n)                    /* return channel n to calcomp */
252 < register int  n;
250 > extern double
251 > chanvalue(                      /* return channel n to calcomp */
252 >        register int  n
253 > )
254   {
254 –        double  sum;
255 –        register RAY  *r;
256 –
255          if (fray == NULL)
256                  syntax("ray parameter used in constant expression");
257  
258          if (--n < 0)
259                  goto badchan;
260  
261 <        if (n < 3)                      /* ray direction */
261 >        if (n <= 2)                     /* ray direction */
262  
263                  return( (       fray->rdir[0]*funcxf.xfm[0][n] +
264                                  fray->rdir[1]*funcxf.xfm[1][n] +
265                                  fray->rdir[2]*funcxf.xfm[2][n]  )
266                           / funcxf.sca );
267  
268 <        if (n < 6)                      /* surface normal */
268 >        if (n <= 5)                     /* surface normal */
269  
270                  return( (       fray->ron[0]*funcxf.xfm[0][n-3] +
271                                  fray->ron[1]*funcxf.xfm[1][n-3] +
272                                  fray->ron[2]*funcxf.xfm[2][n-3] )
273                           / funcxf.sca );
274  
275 <        if (n < 9)                      /* intersection */
275 >        if (n <= 8)                     /* intersection */
276  
277                  return( fray->rop[0]*funcxf.xfm[0][n-6] +
278                                  fray->rop[1]*funcxf.xfm[1][n-6] +
279                                  fray->rop[2]*funcxf.xfm[2][n-6] +
280                                               funcxf.xfm[3][n-6] );
281  
282 <        if (n == 9) {                   /* total distance */
283 <                sum = fray->rot;
286 <                for (r = fray->parent; r != NULL; r = r->parent)
287 <                        sum += r->rot;
288 <                return(sum * funcxf.sca);
282 >        if (n == 9)                     /* total distance */
283 >                return(raydist(fray,PRIMARY) * funcxf.sca);
284  
290 –        }
291 –
285          if (n == 10)                    /* dot product (range [-1,1]) */
286                  return( fray->rod <= -1.0 ? -1.0 :
287                          fray->rod >= 1.0 ? 1.0 :
# Line 297 | Line 290 | register int  n;
290          if (n == 11)                    /* scale */
291                  return(funcxf.sca);
292  
293 <        if (n < 15)                     /* origin */
293 >        if (n <= 14)                    /* origin */
294                  return(funcxf.xfm[3][n-12]);
295  
296 <        if (n < 18)                     /* i unit vector */
296 >        if (n <= 17)                    /* i unit vector */
297                  return(funcxf.xfm[0][n-15] / funcxf.sca);
298  
299 <        if (n < 21)                     /* j unit vector */
300 <                return(funcxf.xfm[1][n-15] / funcxf.sca);
299 >        if (n <= 20)                    /* j unit vector */
300 >                return(funcxf.xfm[1][n-18] / funcxf.sca);
301  
302 <        if (n < 24)                     /* k unit vector */
302 >        if (n <= 23)                    /* k unit vector */
303                  return(funcxf.xfm[2][n-21] / funcxf.sca);
304  
305 <        if (n == 24) {                  /* single ray (shadow) distance */
306 <                sum = fray->rot;
307 <                for (r = fray->parent; r != NULL && r->crtype&SHADOW;
308 <                                r = r->parent)
309 <                        sum += r->rot;
317 <                return(sum * funcxf.sca);
318 <        }
305 >        if (n == 24)                    /* single ray (shadow) distance */
306 >                return((fray->rot+raydist(fray->parent,SHADOW)) * funcxf.sca);
307 >
308 >        if (n <= 26)                    /* local (u,v) coordinates */
309 >                return(fray->uv[n-25]);
310   badchan:
311          error(USER, "illegal channel number");
312 +        return(0.0);
313   }

Diff Legend

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