ps.map + area fill patterns

Hi !
Has anyone written a command ps.map which plot area fill patterns ?

Paola Borio