99 |
|
if ((prms = fskip(prms)) == NULL) |
100 |
|
goto bad_params; |
101 |
|
while (isspace(*prms)) prms++; |
102 |
< |
prms += (*prms == ',') | (*prms == ';'); |
102 |
> |
prms += (*prms == ',') | (*prms == ';') | (*prms == ':'); |
103 |
|
varset(vname, '=', value); |
104 |
|
} |
105 |
|
eclock++; /* notify expression evaluator */ |
299 |
|
int n; |
300 |
|
|
301 |
|
if (fobj == NULL) |
302 |
< |
error(INTERNAL, "arg(n) called without a modifier context"); |
302 |
> |
error(USER, |
303 |
> |
"bad call to arg(n) - illegal constant in .cal file?"); |
304 |
|
|
305 |
|
n = argument(1) + .5; /* round to integer */ |
306 |
|
|
355 |
|
/ funcxf.sca ); |
356 |
|
|
357 |
|
if (n <= 8) { /* intersection point */ |
358 |
< |
if (fray->rot >= FHUGE) |
358 |
> |
if (fray->rot >= FHUGE*.99) |
359 |
|
return(0.0); /* XXX should be runtime error? */ |
360 |
|
|
361 |
|
return( fray->rop[0]*funcxf.xfm[0][n-6] + |