Re: Graphics manipulation question
- To: mathgroup at smc.vnet.net
- Subject: [mg8396] Re: [mg8318] Graphics manipulation question
- From: Fabian Haas <b5hafa at rz.uni-jena.de>
- Date: Tue, 26 Aug 1997 20:41:36 -0400
- Sender: owner-wri-mathgroup at wolfram.com
"Seth J. Chandler" <SChandler at uh.edu> wrote
>Suppose one has a Mathematica Graphics expression called g. And suppose
>further that one has a list of graphics primitives called p. And one has
>a boolean test function t. I want to transform the graphics expression g
>in the following way. Each time I encounter a primitive q in g that
>satisfies the boolean test function t I want to replace that primitive q
>with {q,First[p]} and to then delete the first element of p. If the
>primitive q does not satisfy t, then I want to leave q alone. A
>practical application of this concept might be to ascribe different
>colors to some points scattered through a graphics expression.
>
>Any ideas how to do this with a modicum of elegance?
>
>Seth J. Chandler
>Associate Professor of Law
>University of Houston Law Center
Well,
if I am right you could do it with a If[] statement within the Graphics comm=
and.
Show[ Graphics[ If[ t =3D=3D True, {q, First}, q]]]
So you primitive or the modified primitive is return.
Cheers
=46abian
-------------------------------------------------------------------------
Dipl.Biol. Fabian Haas, MPhil
Institut f=FCr Spezielle Zoologie und Evolutionsbiologie
Erbertstr. 1
D-07743 Jena
b5hafa at pop3.uni-jena.de
http://www.zoo.uni-jena.de/~fabian/
Deutschland / Germany
TEL ++ 49 3641 630 424
=46AX ++ 49 3641 630 392
:-) (-:
-------------------------------------------------------------------------