vallog: PostScript Expanded and constant width lines, matrix

2009/11/17

PostScript Expanded and constant width lines, matrix

% Expanded and constant width lines
% BlueBook P.136 - 137

% --- procedures -----------------------
/pow {
    /n 1.75 def
    2 {
        n mul
        exch
    } repeat
} def

/inch {
72 mul
} def

/centersquare {
    .5 .5 pow moveto
    -.5 .5 pow lineto
    -.5 -.5 pow lineto
    .5 -.5 pow lineto
    closepath
} def

/tran {
    /proc exch def
    /proc load
    gsave
    proc
    grestore
} def

% --- main -----------------------------
{
    2.5 inch 6 inch translate
    1 16 div setlinewidth
    1 1 5 {
        {
            pop .5 mul inch dup scale
            centersquare
            stroke
        } tran
    } for
} tran

{
    6 inch 6 inch translate
    1 setlinewidth
    /cmtx matrix currentmatrix def
    1 1 5 {
        {
            pop .5 mul inch dup scale
            centersquare
            cmtx setmatrix
            stroke
        } tran
    } for
} tran

showpage