Download raw (943 bytes)

%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 595.28 841.89
%%LanguageLevel: 2


% Definitions
% ===========

/eps_state save def
/showpage { } def

% defines millimeters: 1pt = (25.4 / 72)mm
%/mm { 72 mul 25.4 div } def
/mm { 2.83465 mul } def

% defines the document geometry
/width 85 mm def
/height 55 mm def
/margin 0 mm def

% shows the document bounding box
/showframe {
    newpath
    0 0 moveto
    width 0 lineto
    width height lineto
    0 height lineto
    closepath
    stroke
} def

% To be called inside a for loop
/dottedline {
    gsave
    1 setlinecap
    [0 3] 0 setdash
    dup margin exch moveto
    width margin sub exch lineto
    stroke
    grestore
} def

/line {
    gsave
    1 setlinecap
    dup margin exch moveto
    width margin sub exch lineto
    stroke
    grestore
} def

0.25 setlinewidth

margin 2 height margin sub {
    %dottedline
    line
} for

% sets debuggin
%showframe

showpage
eps_state restore