Animated Butterfly

Definition using ParametricPlot command

[Graphics:../HTMLFiles/MATH5_TUT1_195.gif]

Color the butterfly

Show[Graphics[Table[{Hue[i ], Polygon @@ Map[# i&, butterfly[[1, 1, 1]], {-1}]}, {i, 1, 0.05, -0.05}]], AspectRatio→Automatic] ;

[Graphics:../HTMLFiles/MATH5_TUT1_197.gif]

Show[Graphics[Table[{Hue[i/.15 ], Polygon @@ Map[# i&, butterfly[[1, 1, 1]], {-1}]}, {i, 1, 0.05, -0.05}]], AspectRatio→Automatic] ;

[Graphics:../HTMLFiles/MATH5_TUT1_199.gif]

Define now as a delay function

colorbutt[n_] := Show[Graphics[Table[{Hue[i/n ], Polygon @@ Map[# i&, butterfly[[1, 1, 1]], {-1}]}, {i, 1, 0.05, -0.05}]], AspectRatio→Automatic] ;

Consider a series of figure, and click on the outer bracket and animate by going to Cell nenu and select
Animate Seleceted Graphics

Table[colorbutt[n], {n, 6., .15, -.025}] ;

[Graphics:../HTMLFiles/MATH5_TUT1_437.gif]

Created by Mathematica  (September 7, 2006) Valid XHTML 1.1!