Re: Translations

*To*: mathgroup at smc.vnet.net*Subject*: [mg32456] Re: Translations*From*: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>*Date*: Tue, 22 Jan 2002 03:19:18 -0500 (EST)*Organization*: Universitaet Leipzig*References*: <a2gi1g$kl$1@smc.vnet.net>*Reply-to*: kuska at informatik.uni-leipzig.de*Sender*: owner-wri-mathgroup at wolfram.com

Hi, Move[obj_,vec_,t_?NumericQ]:= obj /. {Point[a_]:> Point[a_+t*vec], Polygon[pnts_]:> Polygon[(#+t*vec) & /@ pnts]} Show /@ Table[Move[yourPolygon,{6,6},t],{t,0,1,1/30}] ?? Regards Jens manuel avalos wrote: > > Hello > > Perhaps if I state my problem you might suggest a method using > mathematica how it could be accomplished. > How can I translate a graph, say a triangle, in an R2 coordinate system > to another given position on the x y plane showing all the various > stages from the one position to the other? > The triangle was formed by connecting the points (-4,4),(-3,-2) and > (-2,-4) by straight lines...and another triangle was formed by > translating that triangle by (6,6). Suppose you want to move the first > triangle smoothly to the position of the second triangle using, let's > say, a total of 31 frames numbered- 0, 1, 2,...30. How would one go > about generating each frame? > Thanks for whatever > Manuel