/cropmarks {
/cm {72 mul 0.3937 mul} def
/mm {72 mul 0.3937 mul 0.1 mul} def
/markLength 1.5 cm def
/spaceFromCenter 0.5 cm def
/height exch def
/width exch def
/lineWidthBig 0.1 mm def
/lineWidthSmall 0.05 mm def
/doACircle
{0 360 arc stroke } def
/setMark{
newpath
0 cm 0 cm moveto
0 cm 0 cm spaceFromCenter add moveto
0 cm 0 cm spaceFromCenter add markLength add lineto
stroke
newpath
0 cm spaceFromCenter add 0 cm moveto
0 cm spaceFromCenter add markLength add 0 cm lineto
stroke
} def
/setRegistrationMark {
lineWidthSmall setlinewidth
0 0 0.2 cm doACircle
lineWidthBig setlinewidth
0 0 0.4 cm doACircle
lineWidthSmall setlinewidth
/length1 0.7 cm def
newpath
0 length1 moveto
0 cm length1 -1 mul lineto
stroke
newpath
length1 0 moveto
length1 -1 mul 0 cm lineto
stroke
-0.6 1.4142 div cm -0.6 1.4142 div cm translate
} def
gsave
lineWidthSmall mm setlinewidth 
180 rotate
setMark
-180 rotate
0 cm height translate
90 rotate
setMark
-90 rotate
-0 cm -1 height mul translate
width 0 cm translate
270 rotate
setMark
-270 rotate
-1 width mul -0 cm translate
width height translate
setMark
-1 width mul -1 height mul translate
gsave
width 2 div  spaceFromCenter -1 mul markLength -2 div add translate
setRegistrationMark
grestore
width 2 div markLength 2 div height spaceFromCenter add add translate
setRegistrationMark
grestore
}def