Skip to main content
Mathematica

Return to Answer

added 53 characters in body; added 82 characters in body
Source Link
bill s
bill s
  • 70.1k
  • 4
  • 105
  • 200

Here's a simlesimple way of making the blow-up cow:

Manipulate[ Show[ExampleData[Manipulate[Show[ExampleData[{"Geometry3D", "Cow"}], Graphics3D[Sphere[{-.1, 0, 0.05}, r]]], {r, 0, 0.5},   ContinuousAction -> False, SynchronousUpdating -> False]

enter image description here

Changing r changes the size of the sphere. If your computer is slow, you may need to add the ContinuousAction -> False option.

Here's a simle way of making the blow-up cow:

Manipulate[ Show[ExampleData[{"Geometry3D", "Cow"}], Graphics3D[Sphere[{-.1, 0, 0.05}, r]]], {r, 0, 0.5},   ContinuousAction -> False, SynchronousUpdating -> False]

Here's a simple way of making the blow-up cow:

Manipulate[Show[ExampleData[{"Geometry3D", "Cow"}], Graphics3D[Sphere[{-.1, 0, 0.05}, r]]], {r, 0, 0.5}, SynchronousUpdating -> False]

enter image description here

Changing r changes the size of the sphere. If your computer is slow, you may need to add the ContinuousAction -> False option.

Source Link
bill s
bill s
  • 70.1k
  • 4
  • 105
  • 200

Here's a simle way of making the blow-up cow:

Manipulate[ Show[ExampleData[{"Geometry3D", "Cow"}], Graphics3D[Sphere[{-.1, 0, 0.05}, r]]], {r, 0, 0.5}, ContinuousAction -> False, SynchronousUpdating -> False]