#!/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).

% ----------fix_hole
{
   /ShapeFrameCanvas {
        gsave ParentCanvas setcanvas
        FrameX FrameY translate 0 0 FrameWidth FrameHeight FramePath
        FrameCanvas reshapecanvas grestore
    } def
} LiteWindow send

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