1 |
< |
/* Copyright (c) 1987 Regents of the University of California */ |
1 |
> |
/* Copyright (c) 1991 Regents of the University of California */ |
2 |
|
|
3 |
|
#ifndef lint |
4 |
|
static char SCCSid[] = "$SunId$ LBL"; |
301 |
|
} |
302 |
|
|
303 |
|
|
304 |
+ |
getparam(str, dsc, typ, ptr) /* get variable from user */ |
305 |
+ |
char *str, *dsc; |
306 |
+ |
int typ; |
307 |
+ |
register union {int i; double d; COLOR C;} *ptr; |
308 |
+ |
{ |
309 |
+ |
extern char *index(); |
310 |
+ |
int i0; |
311 |
+ |
double d0, d1, d2; |
312 |
+ |
char buf[48]; |
313 |
+ |
|
314 |
+ |
switch (typ) { |
315 |
+ |
case 'i': /* integer */ |
316 |
+ |
if (sscanf(str, "%d", &i0) != 1) { |
317 |
+ |
(*dev->comout)(dsc); |
318 |
+ |
sprintf(buf, " (%d): ", ptr->i); |
319 |
+ |
(*dev->comout)(buf); |
320 |
+ |
(*dev->comin)(buf, NULL); |
321 |
+ |
if (sscanf(buf, "%d", &i0) != 1) |
322 |
+ |
break; |
323 |
+ |
} |
324 |
+ |
ptr->i = i0; |
325 |
+ |
break; |
326 |
+ |
case 'r': /* real */ |
327 |
+ |
if (sscanf(str, "%lf", &d0) != 1) { |
328 |
+ |
(*dev->comout)(dsc); |
329 |
+ |
sprintf(buf, " (%.6g): ", ptr->d); |
330 |
+ |
(*dev->comout)(buf); |
331 |
+ |
(*dev->comin)(buf, NULL); |
332 |
+ |
if (sscanf(buf, "%lf", &d0) != 1) |
333 |
+ |
break; |
334 |
+ |
} |
335 |
+ |
ptr->d = d0; |
336 |
+ |
break; |
337 |
+ |
case 'b': /* boolean */ |
338 |
+ |
if (sscanf(str, "%1s", buf) != 1) { |
339 |
+ |
(*dev->comout)(dsc); |
340 |
+ |
sprintf(buf, " (%c): ", ptr->i ? 'y' : 'n'); |
341 |
+ |
(*dev->comout)(buf); |
342 |
+ |
(*dev->comin)(buf, NULL); |
343 |
+ |
if (buf[0] == '\0' || |
344 |
+ |
index("yY+1tTnN-0fF", buf[0]) == NULL) |
345 |
+ |
break; |
346 |
+ |
} |
347 |
+ |
ptr->i = index("yY+1tT", buf[0]) != NULL; |
348 |
+ |
break; |
349 |
+ |
case 'C': /* color */ |
350 |
+ |
if (sscanf(str, "%lf %lf %lf", &d0, &d1, &d2) != 3) { |
351 |
+ |
(*dev->comout)(dsc); |
352 |
+ |
sprintf(buf, " (%.6g %.6g %.6g): ", |
353 |
+ |
colval(ptr->C,RED), |
354 |
+ |
colval(ptr->C,GRN), |
355 |
+ |
colval(ptr->C,BLU)); |
356 |
+ |
(*dev->comout)(buf); |
357 |
+ |
(*dev->comin)(buf, NULL); |
358 |
+ |
if (sscanf(buf, "%lf %lf %lf", &d0, &d1, &d2) != 3) |
359 |
+ |
break; |
360 |
+ |
} |
361 |
+ |
setcolor(ptr->C, d0, d1, d2); |
362 |
+ |
break; |
363 |
+ |
} |
364 |
+ |
} |
365 |
+ |
|
366 |
+ |
|
367 |
|
setparam(s) /* get/set program parameter */ |
368 |
|
register char *s; |
369 |
|
{ |
383 |
|
extern int ambounce; |
384 |
|
extern int directinvis; |
385 |
|
extern int do_irrad; |
386 |
< |
int i0; |
324 |
< |
double d0, d1, d2; |
325 |
< |
char buf[128], ans[4]; |
386 |
> |
char buf[128]; |
387 |
|
|
388 |
|
if (s[0] == '\0') { |
389 |
|
(*dev->comout)( |
390 |
< |
"aa ab ad ar as av b dc dj di dt i lr lw sp st: "); |
390 |
> |
"aa ab ad ar as av b dc di dj dt i lr lw sp st: "); |
391 |
|
(*dev->comin)(buf, NULL); |
392 |
|
s = buf; |
393 |
|
} |
395 |
|
case 'l': /* limit */ |
396 |
|
switch (s[1]) { |
397 |
|
case 'w': /* weight */ |
398 |
< |
if (sscanf(s+2, "%lf", &d0) != 1) { |
338 |
< |
sprintf(buf, "limit weight (%.6g): ", |
339 |
< |
minweight); |
340 |
< |
(*dev->comout)(buf); |
341 |
< |
(*dev->comin)(buf, NULL); |
342 |
< |
if (sscanf(buf, "%lf", &d0) != 1) |
343 |
< |
break; |
344 |
< |
} |
345 |
< |
minweight = d0; |
398 |
> |
getparam(s+2, "limit weight", 'r', &minweight); |
399 |
|
break; |
400 |
|
case 'r': /* reflection */ |
401 |
< |
if (sscanf(s+2, "%d", &i0) != 1) { |
349 |
< |
sprintf(buf, "limit reflection (%d): ", |
350 |
< |
maxdepth); |
351 |
< |
(*dev->comout)(buf); |
352 |
< |
(*dev->comin)(buf, NULL); |
353 |
< |
if (sscanf(buf, "%d", &i0) != 1) |
354 |
< |
break; |
355 |
< |
} |
356 |
< |
maxdepth = i0; |
401 |
> |
getparam(s+2, "limit reflection", 'i', &maxdepth); |
402 |
|
break; |
403 |
|
default: |
404 |
|
goto badparam; |
407 |
|
case 'd': /* direct */ |
408 |
|
switch (s[1]) { |
409 |
|
case 'j': /* jitter */ |
410 |
< |
if (sscanf(s+2, "%lf", &d0) != 1) { |
366 |
< |
sprintf(buf, "direct jitter (%.6g): ", |
367 |
< |
dstrsrc); |
368 |
< |
(*dev->comout)(buf); |
369 |
< |
(*dev->comin)(buf, NULL); |
370 |
< |
if (sscanf(buf, "%lf", &d0) != 1) |
371 |
< |
break; |
372 |
< |
} |
373 |
< |
dstrsrc = d0; |
410 |
> |
getparam(s+2, "direct jitter", 'r', &dstrsrc); |
411 |
|
break; |
412 |
|
case 'c': /* certainty */ |
413 |
< |
if (sscanf(s+2, "%lf", &d0) != 1) { |
377 |
< |
sprintf(buf, "direct certainty (%.6g): ", |
378 |
< |
shadcert); |
379 |
< |
(*dev->comout)(buf); |
380 |
< |
(*dev->comin)(buf, NULL); |
381 |
< |
if (sscanf(buf, "%lf", &d0) != 1) |
382 |
< |
break; |
383 |
< |
} |
384 |
< |
shadcert = d0; |
413 |
> |
getparam(s+2, "direct certainty", 'r', &shadcert); |
414 |
|
break; |
415 |
|
case 't': /* threshold */ |
416 |
< |
if (sscanf(s+2, "%lf", &d0) != 1) { |
388 |
< |
sprintf(buf, "direct threshold (%.6g): ", |
389 |
< |
shadthresh); |
390 |
< |
(*dev->comout)(buf); |
391 |
< |
(*dev->comin)(buf, NULL); |
392 |
< |
if (sscanf(buf, "%lf", &d0) != 1) |
393 |
< |
break; |
394 |
< |
} |
395 |
< |
shadthresh = d0; |
416 |
> |
getparam(s+2, "direct threshold", 'r', &shadthresh); |
417 |
|
break; |
418 |
|
case 'i': /* invisibility */ |
419 |
< |
if (sscanf(s+2, "%1s", ans) != 1) { |
420 |
< |
sprintf(buf, "direct invisibility (%c): ", |
400 |
< |
directinvis ? 'y' : 'n'); |
401 |
< |
(*dev->comout)(buf); |
402 |
< |
(*dev->comin)(buf, NULL); |
403 |
< |
if (sscanf(buf, "%1s", ans) != 1) |
404 |
< |
break; |
405 |
< |
} |
406 |
< |
directinvis = tolower(ans[0]) == 'y'; |
419 |
> |
getparam(s+2, "direct invisibility", |
420 |
> |
'b', &directinvis); |
421 |
|
break; |
422 |
|
default: |
423 |
|
goto badparam; |
424 |
|
} |
425 |
|
break; |
426 |
|
case 'b': /* black and white */ |
427 |
< |
if (sscanf(s+1, "%1s", ans) != 1) { |
414 |
< |
sprintf(buf, "black and white (%c): ", |
415 |
< |
greyscale ? 'y' : 'n'); |
416 |
< |
(*dev->comout)(buf); |
417 |
< |
(*dev->comin)(buf, NULL); |
418 |
< |
if (sscanf(buf, "%1s", ans) != 1) |
419 |
< |
break; |
420 |
< |
} |
421 |
< |
greyscale = tolower(ans[0]) == 'y'; |
427 |
> |
getparam(s+1, "black and white", 'b', &greyscale); |
428 |
|
break; |
429 |
|
case 'i': /* irradiance */ |
430 |
< |
if (sscanf(s+1, "%1s", ans) != 1) { |
425 |
< |
sprintf(buf, "irradiance (%c): ", |
426 |
< |
do_irrad ? 'y' : 'n'); |
427 |
< |
(*dev->comout)(buf); |
428 |
< |
(*dev->comin)(buf, NULL); |
429 |
< |
if (sscanf(buf, "%1s", ans) != 1) |
430 |
< |
break; |
431 |
< |
} |
432 |
< |
do_irrad = tolower(ans[0]) == 'y'; |
430 |
> |
getparam(s+1, "irradiance", 'b', &do_irrad); |
431 |
|
break; |
432 |
|
case 'a': /* ambient */ |
433 |
|
switch (s[1]) { |
434 |
|
case 'v': /* value */ |
435 |
< |
if (sscanf(s+2, "%lf %lf %lf", &d0, &d1, &d2) != 3) { |
438 |
< |
sprintf(buf, |
439 |
< |
"ambient value (%.6g %.6g %.6g): ", |
440 |
< |
colval(ambval,RED), |
441 |
< |
colval(ambval,GRN), |
442 |
< |
colval(ambval,BLU)); |
443 |
< |
(*dev->comout)(buf); |
444 |
< |
(*dev->comin)(buf, NULL); |
445 |
< |
if (sscanf(buf, "%lf %lf %lf", |
446 |
< |
&d0, &d1, &d2) != 3) |
447 |
< |
break; |
448 |
< |
} |
449 |
< |
setcolor(ambval, d0, d1, d2); |
435 |
> |
getparam(s+2, "ambient value", 'C', ambval); |
436 |
|
break; |
437 |
|
case 'a': /* accuracy */ |
438 |
< |
if (sscanf(s+2, "%lf", &d0) != 1) { |
453 |
< |
sprintf(buf, "ambient accuracy (%.6g): ", |
454 |
< |
ambacc); |
455 |
< |
(*dev->comout)(buf); |
456 |
< |
(*dev->comin)(buf, NULL); |
457 |
< |
if (sscanf(buf, "%lf", &d0) != 1) |
458 |
< |
break; |
459 |
< |
} |
460 |
< |
ambacc = d0; |
438 |
> |
getparam(s+2, "ambient accuracy", 'r', &ambacc); |
439 |
|
break; |
440 |
|
case 'd': /* divisions */ |
441 |
< |
if (sscanf(s+2, "%d", &i0) != 1) { |
464 |
< |
sprintf(buf, "ambient divisions (%d): ", |
465 |
< |
ambdiv); |
466 |
< |
(*dev->comout)(buf); |
467 |
< |
(*dev->comin)(buf, NULL); |
468 |
< |
if (sscanf(buf, "%d", &i0) != 1) |
469 |
< |
break; |
470 |
< |
} |
471 |
< |
ambdiv = i0; |
441 |
> |
getparam(s+2, "ambient divisions", 'i', &ambdiv); |
442 |
|
break; |
443 |
|
case 's': /* samples */ |
444 |
< |
if (sscanf(s+2, "%d", &i0) != 1) { |
475 |
< |
sprintf(buf, "ambient super-samples (%d): ", |
476 |
< |
ambssamp); |
477 |
< |
(*dev->comout)(buf); |
478 |
< |
(*dev->comin)(buf, NULL); |
479 |
< |
if (sscanf(buf, "%d", &i0) != 1) |
480 |
< |
break; |
481 |
< |
} |
482 |
< |
ambssamp = i0; |
444 |
> |
getparam(s+2, "ambient super-samples", 'i', &ambssamp); |
445 |
|
break; |
446 |
|
case 'b': /* bounces */ |
447 |
< |
if (sscanf(s+2, "%d", &i0) != 1) { |
486 |
< |
sprintf(buf, "ambient bounces (%d): ", |
487 |
< |
ambounce); |
488 |
< |
(*dev->comout)(buf); |
489 |
< |
(*dev->comin)(buf, NULL); |
490 |
< |
if (sscanf(buf, "%d", &i0) != 1) |
491 |
< |
break; |
492 |
< |
} |
493 |
< |
ambounce = i0; |
447 |
> |
getparam(s+2, "ambient bounces", 'i', &ambounce); |
448 |
|
break; |
449 |
|
case 'r': |
450 |
< |
if (sscanf(s+2, "%d", &i0) != 1) { |
497 |
< |
sprintf(buf, "ambient resolution (%d): ", |
498 |
< |
ambres); |
499 |
< |
(*dev->comout)(buf); |
500 |
< |
(*dev->comin)(buf, NULL); |
501 |
< |
if (sscanf(buf, "%d", &i0) != 1) |
502 |
< |
break; |
503 |
< |
} |
504 |
< |
ambres = i0; |
450 |
> |
getparam(s+2, "ambient resolution", 'i', &ambres); |
451 |
|
minarad = ambres > 0 ? thescene.cusize/ambres : 0.0; |
452 |
|
break; |
453 |
|
default: |
457 |
|
case 's': /* sample */ |
458 |
|
switch (s[1]) { |
459 |
|
case 'p': /* pixel */ |
460 |
< |
if (sscanf(s+2, "%d", &i0) != 1) { |
515 |
< |
sprintf(buf, "sample pixel (%d): ", psample); |
516 |
< |
(*dev->comout)(buf); |
517 |
< |
(*dev->comin)(buf, NULL); |
518 |
< |
if (sscanf(buf, "%d", &i0) != 1) |
519 |
< |
break; |
520 |
< |
} |
521 |
< |
psample = i0; |
460 |
> |
getparam(s+2, "sample pixel", 'i', &psample); |
461 |
|
pdepth = 0; |
462 |
|
break; |
463 |
|
case 't': /* threshold */ |
464 |
< |
if (sscanf(s+2, "%lf", &d0) != 1) { |
526 |
< |
sprintf(buf, "sample threshold (%.6g): ", |
527 |
< |
maxdiff); |
528 |
< |
(*dev->comout)(buf); |
529 |
< |
(*dev->comin)(buf, NULL); |
530 |
< |
if (sscanf(buf, "%lf", &d0) != 1) |
531 |
< |
break; |
532 |
< |
} |
533 |
< |
maxdiff = d0; |
464 |
> |
getparam(s+2, "sample threshold", 'r', &maxdiff); |
465 |
|
pdepth = 0; |
466 |
|
break; |
467 |
|
default: |
472 |
|
break; |
473 |
|
default:; |
474 |
|
badparam: |
475 |
+ |
*sskip(s) = '\0'; |
476 |
|
sprintf(errmsg, "%s: unknown variable", s); |
477 |
|
error(COMMAND, errmsg); |
478 |
|
break; |
574 |
|
fputresolu(YMAJOR|YDECR, hresolu, vresolu, fp); |
575 |
|
|
576 |
|
scanline = (COLR *)malloc(hresolu*sizeof(COLR)); |
577 |
< |
if (scanline == NULL) |
578 |
< |
error(SYSTEM, "out of memory in writepict"); |
577 |
> |
if (scanline == NULL) { |
578 |
> |
error(COMMAND, "not enough memory!"); |
579 |
> |
fclose(fp); |
580 |
> |
unlink(fname); |
581 |
> |
return; |
582 |
> |
} |
583 |
|
for (y = vresolu-1; y >= 0; y--) { |
584 |
|
getpictcolrs(y, scanline, &ptrunk, hresolu, vresolu); |
585 |
|
if (fwritecolrs(scanline, hresolu, fp) < 0) |
586 |
|
break; |
587 |
|
} |
588 |
+ |
free((char *)scanline); |
589 |
|
if (fclose(fp) < 0) |
590 |
|
error(COMMAND, "write error"); |
654 |
– |
free((char *)scanline); |
591 |
|
} |