%!
% From NeWS-makers-request@brillig.umd.edu  Tue Oct 13 20:22:38 1987
% Date: Tue, 13 Oct 87 19:02:47 EST
% To: NeWS-makers@brillig.umd.edu
% Subject: Re:  Setting a background
% From: gregm@Sun.COM (Greg McLaughlin)
% Sender: NeWS-makers-request@brillig.umd.edu (Don Hopkins)
% 
% Here is some code from my user.ps that does this very thing...

/ImagePaintRoot { % string => -
        gsave
                readcanvas
                framebuffer setcanvas clippath pathbbox scale pop pop
                imagecanvas
        grestore
        } def

/imagemenu [
    (founders)          { /PaintRoot
                                /ImagePaintRoot
                                {(NEWSHOME) getenv (/smi/founders.im8) append}
                                        {} modifyproc
                                store PaintRoot }
    (cartoon)           { /PaintRoot
                                /ImagePaintRoot {(Backgrounds/cartoon.im1) } {}
                                        modifyproc
                                store PaintRoot }

%	:
%	:
%	:
] makemenu def

% Just add imagemenu to your main menu and select all the image backgrounds you
% like.
% 
% This works best if the framebuffer is retained since readcanvas stops up the
% works on you for a while.
% 
% 
% Greg McLaughlin
% Portable NeWS
% Sun Microsystems Inc