File: regmarks

package info (click to toggle)
libtemplate-perl 2.14-1
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k, sarge
  • size: 5,496 kB
  • ctags: 667
  • sloc: perl: 15,349; makefile: 62; xml: 7; sh: 5
file content (21 lines) | stat: -rw-r--r-- 631 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
[%  PROCESS ps/clip      UNLESS global.ps.loaded.clip;
    PROCESS ps/crosshair UNLESS global.ps.loaded.crosshair;
    PROCESS ps/border    UNLESS global.ps.loaded.border;
    PROCESS ps/lines     UNLESS global.ps.loaded.lines;
    global.ps.loaded.regmarks = 1;
-%]
% registration marks relative to clipping rectangle
/regmarks {
    % draw clipping edge if border > 0
    border 0 gt {
        line-dashed
	clip-box rectstroke
    } if

    % draw registration marks at corners
    line-normal
    clip-blx clip-bly crosshair
    clip-blx clip-try crosshair 
    clip-trx clip-try crosshair
    clip-trx clip-bly crosshair
} def