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.