[% 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