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 1.18 by greg, Tue Jun 18 08:59:52 1991 UTC vs.
Revision 1.19 by greg, Wed Jun 19 15:08:39 1991 UTC

# Line 33 | Line 33 | OBJREC  *m;
33   register RAY  *r;
34   XF  *bx;
35   {
36 <        extern double  l_arg();
36 >        extern double  l_arg(), l_erf(), l_erfc();
37          extern long  eclock;
38          static char  *initfile = "rayinit.cal";
39          static long  lastrno = -1;
# Line 52 | Line 52 | XF  *bx;
52                  scompile("Jx=$19;Jy=$20;Jz=$21;", NULL, 0);
53                  scompile("Kx=$22;Ky=$23;Kz=$24;", NULL, 0);
54                  funset("arg", 1, '=', l_arg);
55 +                funset("erf", 1, ':', l_erf);
56 +                funset("erfc", 1, ':', l_erfc);
57                  setnoisefuncs();
58                  initfile = NULL;
59          }
# Line 133 | Line 135 | l_arg()                                /* return nth real argument */
135                  objerror(fobj, USER, errmsg);
136          }
137          return(fobj->oargs.farg[n-1]);
138 + }
139 +
140 +
141 + double
142 + l_erf()                         /* error function */
143 + {
144 +        extern double  erf();
145 +
146 +        return(erf(argument(1)));
147 + }
148 +
149 +
150 + double
151 + l_erfc()                        /* cumulative error function */
152 + {
153 +        extern double  erfc();
154 +
155 +        return(erfc(argument(1)));
156   }
157  
158  

Diff Legend

– Removed lines
+ Added lines
< Changed lines (old)
> Changed lines (new)