[%  DEFAULT ps_cross_radius = '5 mm';
    PROCESS ps/mm UNLESS global.ps.loaded.mm;
    global.ps.loaded.cross = 1;
-%]
/cross {
    newpath
    moveto
   -[% ps_cross_radius %] 0 rmoveto
    [% ps_cross_radius %] 0 rlineto
    [% ps_cross_radius %] 0 rlineto
   -[% ps_cross_radius %] -[% ps_cross_radius %] rmoveto
    0 [% ps_cross_radius %] rlineto
    0 [% ps_cross_radius %] rlineto
    stroke
} def