Download raw (2.0 KB)

%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 504 725
%%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 5 mul def
/height 51 mm 5 mul 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

/rect {
    newpath
    0 0  moveto
    0 25 mm  lineto
    25 mm 25 mm lineto
    25 mm 0 lineto
    closepath
    %fill
} def

/triangle {
    1.2 1.2 scale
    newpath
    0 0  moveto
    12.5 mm 19.5 mm  lineto
    25 mm 0 mm lineto
    closepath
    %fill
} def

/circle {
    12.5 mm 12.5 mm 12.5 mm 0 360 arc closepath
} def

0.25 setlinewidth

margin 2 height margin sub {
    dottedline
} for


gsave
100 100 translate
3 rotate
2 1 scale
rect clip
0 2 25 mm {
    dottedline
} for
grestore

gsave
200 200 translate
19 rotate
rect clip
0 2 25 mm {
    dottedline
} for
grestore

gsave
300 300 translate
23 rotate
rect clip
0 2 25 mm {
    dottedline
} for
grestore

gsave
130 110 translate
-11 rotate
triangle clip
0 2 25 mm {
    dottedline
} for
grestore

gsave
90 70 translate
-23 rotate
circle clip
0 2 25 mm {
    dottedline
} for
grestore

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




% sets debuggin
%showframe

showpage
eps_state restore