pdl> ( $im, $palette ) = rimage( 'test2.png', { palette => 1 })
pdl> $x = sequence( 255 )-> dummy( 0, 100 )-> byte
pdl> $x-> wimage( 'grad.png', { palette => $palette })