schotter.ps

%!PS

% Postscript implementation of Georg Nees "Schotter"
% Nicolas Seriot, 2022-09-20
% https://collections.vam.ac.uk/item/O221321/schotter-print-nees-georg

/COLS 12 def
/ROWS 24 def
/SIZE 28 def

100 770 translate
1 -1 scale

/jig { rand r mod 2 mul r sub 1 add } def

1 1 COLS {
    /c exch def
    1 1 ROWS {
        /r exch def

        gsave
        c SIZE mul r SIZE mul translate
        jig rotate
        jig jig SIZE SIZE rectstroke
        grestore

    } for
} for

showpage