Path: utzoo!attcan!uunet!samsung!uakari.primate.wisc.edu!sdd.hp.com!wuarchive!julius.cs.uiuc.edu!apple!sun-barr!newstop!exodus!bendenweyr!flar
From: flar@bendenweyr.Eng.Sun.COM (Jim Graham)
Newsgroups: comp.lang.postscript
Subject: Re: Byte's fern postscript program
Message-ID: <1990Oct19.160619@bendenweyr.Eng.Sun.COM>
Date: 19 Oct 90 23:06:19 GMT
References: <1990Oct18.182149.861@infonode.ingr.com> <1990Oct18.204534.9186@julius.cs.uiuc.edu>
Sender: news@exodus.Eng.Sun.COM
Reply-To: flar@bendenweyr.Eng.Sun.COM (Jim Graham)
Distribution: na
Organization: Sun Microsystems, Inc.
Lines: 28

In article <1990Oct18.204534.9186@julius.cs.uiuc.edu>,
nelson@melodian.cs.uiuc.edu (Taed Nelson) writes:

|> /doit {
|>         problistcreate 1 1 20 {
|>                 problist rand -24 bitshift get transform 2 copy
|>                 moveto 0.001 10 rlineto
|>         }
|>         repeat newpath numdots {
|>                 problist rand -24 bitshift get transform 2 copy
|>                 moveto 0.001 0 rlineto stroke
|>         }
|>         repeat
|> }
|> bind def

What am I missing here?  In the first repeat loop, a lot of moveto
rlineto's get generated but the result is never stroked or filled,
it is just thrown away with a newpath.  What's the point (only side
effect that I can see is the execution of 20 rand's, so it essentially
just throws out 20 random numbers and takes a long time to do it.

The other posting of this same piece of code was the same (modulo
indentation), so it doesn't seem to be a posting error.  Also, the
"10 rlineto" doesn't have to be a "0 rlineto" since the result of
the rlineto is thrown out anyway.

					...jim