cow = ExampleData[{"Geometry3D", "Cow"}]; Manipulate[ cow /. GraphicsComplex[array1_, rest___] :> (GraphicsComplex[ Map[# (Norm[#]^(-coeff)) &, array1, {1}], rest]), {{coeff, .25}, 0, 1}] 
andre314
- 19.6k
- 1
- 39
- 77
cow = ExampleData[{"Geometry3D", "Cow"}]; Manipulate[ cow /. GraphicsComplex[array1_, rest___] :> (GraphicsComplex[ Map[# (Norm[#]^(-coeff)) &, array1, {1}], rest]), {{coeff, .25}, 0, 1}]