one of my scripts based on Based on the Volume rendering is not working and was
working fine
... Robin Williams Demo in 3Dgal is not working as well in the 3d Demos ...
here is the script
#############################################################
use PDL::Image2D;
use PDL; use PDL::Graphics::TriD; keeptwiddling3d();
for $f (1..628) {
$b=zeros(90,90,90);$b=sin($f*20.36000*$b->rvals+$b,
)**cos(20.27000*$b->rvals)**$b;$c= -0; ##}
$a=byte(($b<$c));foreach $jj(reverse
1..4){$t=($a->slice("0:-2")<<$_);$t+=$a->slice("1:-1") ;
$a = $t->mv(0,1);
for $rr (1..62) {
[($x,$y,$z)= whichND($tt=($a == -0) & ($a != 255))];
$r = sin($rr)*xvals($x);
$g = $rr*tan(($y));
$b = $rr*tan($z);
points3d [$x,$y,$z],[$r,$g,$b];
}
}}
################################################################
it says I need a package for whichND is there a module im not referencing ???
here is the warrning I get
whichND: WARNING - list context deprecated. Set $PDL::whichND. Details in pod.Ca
n't call method "dims" without a package or object reference at C:/strawberry/pe
rl/site/lib/PDL/Graphics/TriD.pm line 739, <DATA> line 387.
where and what is a pod ?
Mark R Baker
_______________________________________________
Perldl mailing list
[email protected]
http://mailman.jach.hawaii.edu/mailman/listinfo/perldl
