%!
% PostScript code to create image emailrelaying_background.png.
%
% Random font scale between 5 pt and 55 pt.
% Random font rotation between -90 deg and +90 deg.
% 400 x 400 image with wrapping of Silver text.
%
% Use a Ghostscript command similar to:  
% gswin32c -dSAFER -dBATCH -dNOPAUSE -sDEVICE=pnggray -g400x400 -r72 -dTextAlphaBits=4 -sOutputFile=emailrelaying_background.png emailrelaying_background.ps
%
/maxint 2147483647 def
/randscale { rand maxint div 50 mul 5 add dup matrix scale } def
/randrotate { rand maxint div 180 mul 90 sub matrix rotate } def
/randpos { rand maxint div 400 mul } def
40 srand  % Seed random number generator
192 255 div setgray  % Silver text

% Define font SPAMFont
/tempFont 20 dict def  % Font dictionary
/tempMetrics 3 dict def  % Kerning dictionary
tempMetrics /S [0 580] put
tempMetrics /P [0 450] put
tempMetrics /A [0 680] put
/URWBookmanL-DemiBold findfont {  % Copy Bookman font to tempFont
    exch dup /FID ne {
        exch tempFont 3 1 roll put  % key is not /FID so copy
    } {
        pop pop  % key is /FID so discard
    } ifelse
} forall
tempFont /FontName /SPAMFont put
tempFont /Metrics tempMetrics put
/SPAMFont tempFont definefont pop

% Show main text
40 {  % Main loop, lots of SPAM
    /SPAMFont findfont
    randscale randrotate matrix concatmatrix makefont
    setfont
    /xpos randpos def
    /ypos randpos def
    /xtemp xpos 400 sub def
    3 {  % Repeat in x
        /ytemp ypos 400 sub def
        3 {  % Repeat in y
            xtemp ytemp moveto (SPAM) show
            /ytemp ytemp 400 add def
        } repeat
        /xtemp xtemp 400 add def
    } repeat
} repeat

% Show final text
/NimbusRomNo9L-Regu findfont 12 scalefont setfont
50 100 moveto (Bloody Vikings!) show
showpage