rewrite of Pimage
subset.Pimage and fix for [[<-.Pimage i argument
tidy
method madness