| 1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465 |
- /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
|
