lines(t)
- To: mathgroup <mathgroup at yoda.physics.unc.edu>
- Subject: lines(t)
- From: Susan Rempe <rempe at carson.u.washington.edu>
- Date: Mon, 8 Mar 1993 10:50:04 -0800 (PST)
HI Mathgroup,
I want to animate a picture of points moving and a line connecting
them.
<<Graphics`Animation`
$RasterFunction = Identity
pts[t_] :={Point[{Sin[t],Cos[t],Sin[t]+Cos[t]}],
Point[{Cos[t],Sin[t],Sin[t]+Cos[t]}]}
lines[t_] :=Line[{{Sin[t],Cos[t],Sin[t]+Cos[t]},
{Cos[t],Sin[t],Sin[t]+Cos[t]}}]
Table[
Graphics3D[{PointSize[.05], N[ pts[t]]},
PlotRange -> {{-1.5, 1.5},{-1.5,1.5},{-1.5,1.5}}],
{t,0,2Pi,Pi/8}]
ShowAnimation[%]
The above code animates points. Where do I put lines[t] so
both points and lines are animated???????
Thanks for your help.
Susan Rempe
rempe at u.washington.edu