Download raw (1.3 KB)

%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 252 145
%%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 89 mm def
/height 51 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

% Original dotted line def
% To be called outside a for loop
/dottedline {
    gsave
    1 setlinecap
    [1 3] 0 setdash
    margin margin moveto
    width margin sub margin lineto
    stroke
    grestore
} 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

% variation on dottedline
/dottedline2 {
    gsave
    1 setlinecap
    [0 3] 0 setdash
    margin exch moveto
    width margin sub margin lineto
    stroke
    grestore
} def




0.25 setlinewidth

margin 2 height margin sub {
    dottedline
} for

width 2 div height 2 div moveto
3 rotate
0 0 moveto

margin 2 height margin sub {
    dottedline
} for

% sets debuggin
%showframe

showpage
eps_state restore