siegel@hc.DSPO.GOV (Josh Siegel) (04/21/88)
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.