________________
I have been trying to get a binary 2D picture where the zeros are black and the
ones are white
but im having trouble trying to figure out how to put
[0 1 0 0 1 1 1 0 1 0 1 0]
[0 1 0 1 1 0 1 1 1 0 1 0]
[0 1 1 0 1 0 1 0 1 1 1 0]
something like this in a black and white picture
can any one help me with this ...
my attempt at rewriting the lucy demo to it
is but I feel really lost here...
use PDL; use PDL::Image2D; use PDL::Graphics::TriD;nokeeptwiddling3d;
for $x (0..1,1,1,0) {
for $y (reverse 0..1,0,0,1) {
for $z (reverse 1..999) {
$z = 0.001*$z;
$d=byte(random(zeroes(1000,100))>$z);
$k=byte [[$x,$y,$x,$y],[$y,$y,$x,$y],[$y,$x,$x,$x]];
do{ imagrgb [$d];
$s=conv2d($d,$k);
$d&=($s<5);
$d&=($s>1);
$d|=($s==3);
} while (!twiddle3d);
}
} }
Thanks
Mark R Baker
______________________
Perldl mailing list
[email protected]
http://mailman.jach.hawaii.edu/mailman/listinfo/perldl_______________________________________________
Perldl mailing list
[email protected]
http://mailman.jach.hawaii.edu/mailman/listinfo/perldl
