stephenf@softway.oz (Stephen Frede) (12/15/89)
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