Path: utzoo!attcan!utgpu!jarvis.csri.toronto.edu!cs.utexas.edu!swrinde!zaphod.mps.ohio-state.edu!samsung!munnari.oz.au!basser!softway!stephenf
From: stephenf@softway.oz (Stephen Frede)
Newsgroups: comp.graphics
Subject: popi transform
Message-ID: <2468@softway.oz>
Date: 15 Dec 89 02:44:35 GMT
Organization: Softway Pty Ltd, Sydney, Australia
Lines: 23

To encourage people to post interesting popi transforms that they
come up with, here is one of the entries for the AUUG competition
by Mark Palmer, University of Queensland.

A simple way of producing the image is with:

#read "dmr"
x < X/2 ? dmr[X-x,y] : dmr[x,y]
#write "dmrmirror"
#read "dmrmirror"
r > R/3 ? dmrmirror{r-R/3,a} : dmr{2*r,a}

This also illustrates a (current) deficiency with the popi syntax.
It should be possible to create the dmrmirror image without resorting
to the write then read. Any suggestions on syntax are welcome.

			Regards,

				- Stephen Frede

Softway Pty Ltd, P.O. Box 305, Strawberry Hills, NSW 2012, AUSTRALIA
Phone: +61 2 698 2322; Fax: +61 2 699 9174; Telex: AA27987
ACSnet: stephenf@softway.oz	UUCP: ...!uunet!softway.oz!stephenf