Select Code to Download

##################################
########### Ready to go
...
print time - $t, "\n";

print @pixels[ @$_ ], "\n" for @{ $indexed-> unpdl };

##################################
########### Ready to go
...
print time - $t, "\n";

print @pixels[ @$_ ], "\n" for @{ $indexed-> unpdl };

$fat_rgb-> sever-> inplace-> and2( 0b1111_1110 );

pdl> $x = zeroes 3,2,2; $y = $x-> clump( 1,2 )
pdl> $x .= 3
...
[
 [0 0 0]
]

pdl> $x = zeroes 3,2,2; $y = $x-> clump( 1,2 )
pdl> p $y
...
[
 [0 0 0]
]