#!/usr/NeWS/bin/psh
%
% Date: Thu, 21 Apr 88 04:05:01 EDT
% To: NeWS-makers@brillig.umd.edu
% Subject: strange shaped windows
% From: siegel@hc.dspo.gov  (Josh Siegel)
% 
% Thought I would throw these out for your general viewing pleasure.
% 
% Make shell scripts out of them and then run them.  Now, make a new
% window (start a psterm or something).

% --------- make_round -----------------

{
/ShapeFrameCanvas {
            gsave ParentCanvas setcanvas
            FrameX FrameY translate
            FrameWidth FrameHeight scale
			.5 .5 .5 360 0 arcn
			.5 .5 .3 0 360 arc
            FrameCanvas setcanvasshape grestore
        } def
} LiteWindow send

% --
% Josh Siegel		(siegel@hc.dspo.gov)
% I like using a C-47A "puff dragon" to go hunting with.