set: dim
   ^ self subclassResponsibility.

 surface
   ^ self subclassResponsibility.

 volume
   ^ self subclassResponsibility.

 printAsText
   ^ '{1} has the volume: {2} and a surface of {3}' format: {(self name) asString. self volume asString . self surface asString}.