* <2005-03-28 Po>
** nahonde cislo (mpost): uniformdeviate 1
** cutafter pplabox cutbefore pplabox;
** clip currentpicture to path expression

