| 1 |
< |
/* Copyright (c) 1994 Regents of the University of California */ |
| 1 |
> |
/* Copyright (c) 1995 Regents of the University of California */ |
| 2 |
|
|
| 3 |
|
#ifndef lint |
| 4 |
|
static char SCCSid[] = "$SunId$ LBL"; |
| 497 |
|
extern int ambdiv; |
| 498 |
|
extern int ambssamp; |
| 499 |
|
extern int ambounce; |
| 500 |
+ |
extern COLOR cextinction; |
| 501 |
+ |
extern double salbedo; |
| 502 |
+ |
extern double seccg; |
| 503 |
+ |
extern double ssampdist; |
| 504 |
|
extern int directvis; |
| 505 |
|
extern double srcsizerat; |
| 506 |
|
extern int do_irrad; |
| 511 |
|
|
| 512 |
|
if (s[0] == '\0') { |
| 513 |
|
(*dev->comout)( |
| 514 |
< |
"aa ab ad ar as av b dc dv dj ds dt i lr lw ps pt sj st bv: "); |
| 514 |
> |
"aa ab ad ar as av b dc dv dj ds dt i lr lw me ma mg ms ps pt sj st bv: "); |
| 515 |
|
(*dev->comin)(buf, NULL); |
| 516 |
|
s = buf; |
| 517 |
|
} |
| 589 |
|
case 'r': |
| 590 |
|
if (getparam(s+2, "ambient resolution", 'i', &ambres)) |
| 591 |
|
setambres(ambres); |
| 592 |
+ |
break; |
| 593 |
+ |
default: |
| 594 |
+ |
goto badparam; |
| 595 |
+ |
} |
| 596 |
+ |
break; |
| 597 |
+ |
case 'm': /* medium */ |
| 598 |
+ |
switch (s[1]) { |
| 599 |
+ |
case 'e': /* extinction coefficient */ |
| 600 |
+ |
getparam(s+2, "extinction coefficient", 'C', |
| 601 |
+ |
(COLOR *)cextinction); |
| 602 |
+ |
break; |
| 603 |
+ |
case 'a': /* scattering albedo */ |
| 604 |
+ |
getparam(s+2, "scattering albedo", 'r', &salbedo); |
| 605 |
+ |
break; |
| 606 |
+ |
case 'g': /* scattering eccentricity */ |
| 607 |
+ |
getparam(s+2, "scattering eccentricity", 'r', &seccg); |
| 608 |
+ |
break; |
| 609 |
+ |
case 's': /* sampling distance */ |
| 610 |
+ |
getparam(s+2, "mist sampling distance", 'r', |
| 611 |
+ |
&ssampdist); |
| 612 |
|
break; |
| 613 |
|
default: |
| 614 |
|
goto badparam; |
