initialize
   super initialize.
   radius := 0.

 set: dim
   radius := dim.

 surface
   ^ 12.56 * (radius * radius).

 volume
   ^ 12.56 / 3 * radius * radius * radius.