Path: utzoo!mnetor!uunet!husc6!mailrus!ames!hc!siegel
From: siegel@hc.DSPO.GOV (Josh Siegel)
Newsgroups: comp.windows.news
Subject: strange shaped windows
Message-ID: <14289@hc.DSPO.GOV>
Date: 20 Apr 88 18:29:07 GMT
Organization: Los Alamos National Laboratory
Lines: 48


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 -----------------
#! /usr/NeWS/bin/psh
{
/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


--------- make_hole
#! /usr/NeWS/bin/psh
{
/ShapeFrameCanvas {
            gsave ParentCanvas setcanvas
            FrameX FrameY translate
            FrameWidth FrameHeight scale
            0 0 moveto 1 0 lineto 1 1 lineto 0 1 lineto 0 0 lineto
            .4 .4 moveto .4 .6 lineto .6 .6 lineto .6 .4 lineto .4 .4 lineto
            FrameCanvas setcanvasshape grestore
        } def
} LiteWindow send

----------fix_hole
#! /usr/NeWS/bin/psh
{
   /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.