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

Comparing ray/src/rt/func.c (file contents):
Revision 2.16 by greg, Tue Mar 11 17:08:55 2003 UTC vs.
Revision 2.24 by greg, Tue Feb 22 16:45:12 2011 UTC

# Line 8 | Line 8 | static const char      RCSid[] = "$Id$";
8   #include "copyright.h"
9  
10   #include  "ray.h"
11 <
11 > #include  "paths.h"
12   #include  "otypes.h"
13 –
13   #include  "func.h"
14  
15  
# Line 31 | 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 int  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   {
44          static char  initfile[] = INITFILE;
45          char  sbuf[MAXSTR];
# Line 63 | 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=$25;Lv=$26;", 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 131 | 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 < void
139 < freefunc(m)                     /* free memory associated with modifier */
140 < 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 163 | Line 165 | OBJREC  *m;
165   }
166  
167  
168 < int
169 < setfunc(m, r)                   /* set channels for function call */
170 < OBJREC  *m;
171 < 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)
# Line 185 | 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 < void
201 < loadfunc(fname)                 /* load definition file */
202 < char  *fname;
200 > extern void
201 > loadfunc(                       /* load definition file */
202 >        char  *fname
203 > )
204   {
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 209 | 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   {
218          register int  n;
219  
# 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   {
255          if (fray == NULL)
256                  syntax("ray parameter used in constant expression");
# Line 257 | Line 258 | register int  n;
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] +
# Line 289 | 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 < 25)                     /* single ray (shadow) distance */
305 >        if (n == 24)                    /* single ray (shadow) distance */
306                  return((fray->rot+raydist(fray->parent,SHADOW)) * funcxf.sca);
307  
308 <        if (n < 27)                     /* local (u,v) coordinates */
309 <                return(fray->uv[n-26]);
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);

Diff Legend

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