341 |
|
|
342 |
|
setdefaults() /* set default values for unassigned var's */ |
343 |
|
{ |
344 |
< |
double org[3], size; |
344 |
> |
double org[3], lim[3], size; |
345 |
|
char buf[128]; |
346 |
|
|
347 |
|
if (!vdef(ZONE)) { |
350 |
|
org[1], org[1]+size, org[2], org[2]+size); |
351 |
|
vval(ZONE) = savqstr(buf); |
352 |
|
vdef(ZONE)++; |
353 |
+ |
} |
354 |
+ |
if (!vdef(EYESEP)) { |
355 |
+ |
if (sscanf(vval(ZONE), "%*s %lf %lf %lf %lf %lf %lf", |
356 |
+ |
&org[0], &lim[0], &org[1], &lim[1], |
357 |
+ |
&org[2], &lim[2]) != 6) |
358 |
+ |
badvalue(ZONE); |
359 |
+ |
sprintf(buf, "%f", |
360 |
+ |
0.01*(lim[0]-org[0]+lim[1]-org[1]+lim[2]-org[2])); |
361 |
+ |
vval(EYESEP) = savqstr(buf); |
362 |
+ |
vdef(EYESEP)++; |
363 |
|
} |
364 |
|
if (!vdef(INDIRECT)) { |
365 |
|
vval(INDIRECT) = "0"; |