Implement
in VisualWorks a class SimpleCircle. The class should have the following methods.
Class
methods
origin:
aPoint radius: aNumber
"Returns
an instance with the given origin and radius"
radius:
aNumber origin: aPoint
"Returns
an instance with the given origin and radius"
Instance
methods
radius "returns
the radius of the circle"
origin "returns
the origin of the circle"
area "returns
the area of the circle"
includes:
aPoint
"Returns
true if aPoint is on or inside the circle"
The
class methods are to be in a category called "instance creation". The method
includes: is to be in a category called "testing". The remaining methods are to
be in a category called: "accessing".