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"; |
346 |
|
error(COMMAND, "missing angle"); |
347 |
|
return; |
348 |
|
} |
349 |
< |
if (getinterest(sskip(sskip(s)), 0, vc, &mag) < 0) |
349 |
> |
if (getinterest(sskip2(s,2), 0, vc, &mag) < 0) |
350 |
|
return; |
351 |
|
moveview(angle, elev, mag, vc); |
352 |
|
} |
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 di 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 |
|
} |
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; |
615 |
+ |
} |
616 |
+ |
break; |
617 |
|
case 'p': /* pixel */ |
618 |
|
switch (s[1]) { |
619 |
|
case 's': /* sample */ |
662 |
|
thisray.rmax = 0.0; |
663 |
|
|
664 |
|
if (!sscanvec(s, thisray.rorg) || |
665 |
< |
!sscanvec(sskip(sskip(sskip(s))), thisray.rdir)) { |
665 |
> |
!sscanvec(sskip2(s,3), thisray.rdir)) { |
666 |
|
|
667 |
|
if (dev->getcur == NULL) |
668 |
|
return; |