GENERIC MODULE Squat(Elem);
IMPORT Axis;
IMPORT VBT;
REVEAL
  T = Elem.T BRANDED OBJECT
  OVERRIDES
    shape := Shape;
  END;
PROCEDURE Shape(self: T; ax: Axis.T; n: CARDINAL): VBT.SizeRange =
  CONST
    size = 16;
  BEGIN
    IF ax = Axis.T.Ver THEN
      RETURN VBT.SizeRange{size-1,size,size+1};
    ELSE
      RETURN Elem.T.shape(self, ax, n);
    END;
  END Shape;
BEGIN
END Squat.