#! /usr/NeWS/bin/psh
%
% This file is a product of Sun Microsystems, Inc. and is provided for
% unrestricted use provided that this legend is included on all tape
% media and as a part of the software program in whole or part.  Users
% may copy or modify this file without charge, but are not authorized to
% license or distribute it to anyone else except as part of a product
% or program developed by the user.
% 
% THIS FILE IS PROVIDED AS IS WITH NO WARRANTIES OF ANY KIND INCLUDING THE
% WARRANTIES OF DESIGN, MERCHANTIBILITY AND FITNESS FOR A PARTICULAR
% PURPOSE, OR ARISING FROM A COURSE OF DEALING, USAGE OR TRADE PRACTICE.
% 
% This file is provided with no support and without any obligation on the
% part of Sun Microsystems, Inc. to assist in its use, correction,
% modification or enhancement.
% 
% SUN MICROSYSTEMS, INC. SHALL HAVE NO LIABILITY WITH RESPECT TO THE
% INFRINGEMENT OF COPYRIGHTS, TRADE SECRETS OR ANY PATENTS BY THIS FILE
% OR ANY PART THEREOF.
% 
% In no event will Sun Microsystems, Inc. be liable for any lost revenue
% or profits or other special, indirect and consequential damages, even
% if Sun has been advised of the possibility of such damages.
% 
% Sun Microsystems, Inc.
% 2550 Garcia Avenue
% Mountain View, California  94043
%
%
%	test.psh 9.2 88/01/18
%
% define each of the four possible drawing routines
% Lines,  Circles, Rects, and Text.
% Note the use of pause in each drawing routine.  This allows other programs
% to run simultaneously.
%
% Copyright (c) 1987 by Sun Microsystems, Inc.
%
/Lines {
gsave					% It's a good idea to do a gsave... 
					% grestore around graphics operations.
    1 fillcanvas clippath pathbbox scale translate
    .1 .1 1 {0 0 moveto dup 1 lineto 0 0 moveto 1 exch lineto pause} for
    0 setgray stroke
grestore
} def
/Circles {
gsave
    1 fillcanvas clippath pathbbox scale translate
    0 .1 .4 {dup 0 0 1 1 insetrect ovalpath 2 mul setgray fill pause} for
grestore
} def
/Rects {
gsave
    1 fillcanvas clippath pathbbox scale translate
    0 .1 .4 {dup 0 0 1 1 insetrect rectpath 2 mul setgray fill pause} for
grestore
} def
/Text {
gsave
    1 fillcanvas 0 setgray
    /Fonts [				% This is an array of font names
        (Times-Roman) (Times-Bold) (Times-Italic)
        (Helvetica) (Helvetica-Bold) (Helvetica-Oblique)
        (Courier) (Courier-Bold) (Courier-Oblique)
        (Symbol) (Boston) (Cyrillic)
    ] def
    /PointSize 24 def
    /y 10 def
    Fonts {				% The forall operator below performs
					% this procedure for each font in the
					% Fonts array
        dup findfont PointSize scalefont setfont 10 y moveto
        10 {dup show 15 0 rmoveto} repeat pop
        /y y PointSize 1.1 mul add def
        pause
    } forall
grestore
} def
/Draw {Text} def			% Initial drawing procedure is Text
% CallDraw has the window draw me so that I inherit certain
% side effects, such as forking the PaintClient procedure
% and setting the graphics state.
/CallDraw {/paintclient win send} def
/main {
    /win framebuffer /new DefaultWindow send def	% Create a window
    {	% Modify the window.  There are default
	% procedures for each of these.
        /PaintClient {Draw} def		% /PaintClient will be called
					% whenever my image needs to be
					% repaired or redisplayed.
        /FrameLabel (Demos!) def
        /IconImage /hello_world def
	/ClientMenu [			% Make the menu and give it to the
					% window event manager to handle.
            (Lines)         {/Draw {Lines} store CallDraw}
            (Ovals)         {/Draw {Circles} store CallDraw}
            (Rectangles)    {/Draw {Rects} store CallDraw}
            (Text)          {/Draw {Text} store CallDraw}
            (All!)          {/Draw {Lines Circles Rects Text} store CallDraw}
	] /new DefaultMenu send def	% /new is one of the well-known
					% methods in the menu class.
    } win send				% Sending a procedure to an object
					% will cause it to be executed in
					% the object's context.
    /reshapefromuser win send		% Ask the user to shape the window.

    % Do initialization.  Then have my window mapped (made visible)
    % which will cause the paint procedure to be called.

    /map win send			% Map (& activate) the window.
					% Damage will cause PaintClient
					% to be called.
} def

main					% start everything going