Another neat thing to do is to change
$_->{tip}[0] = sin($_->{ang})*$_->{len}[0]+$midh;
to
$_->{tip}[0] = -sin($_->{ang})*$_->{len}[0]+$midh;
Then the whole thing flips over and runs backwards.
-jeff lowrey
***** Want to unsubscribe from this list?
***** Send mail with body "unsubscribe" to mac-perl-request@iis.ee.ethz.ch