Re: scaling/translating Polyhedra - is this how??
- To: mathgroup at smc.vnet.net
- Subject: [mg38617] Re: scaling/translating Polyhedra - is this how??
- From: digrpat at aol.com (Patrick Callahan)
- Date: Wed, 1 Jan 2003 03:39:40 -0500 (EST)
- References: <aur7f0$889$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
>Is there some easier way to translate/scale a polyhedron (or polygon)?
<<Graphics`Shapes`
<<Graphics`Polyhedra`
t0=Tetrahedron[];
Show[TranslateShape[AffineShape[Graphics3D[t0],{.2,.2,.2}],{0,0,
2}],Graphics3D[t0]]