39 lines
527 B
Plaintext
39 lines
527 B
Plaintext
class Point
|
|
feat
|
|
x
|
|
y
|
|
|
|
meth init(x:X<=0.0 y:Y<=0.0)
|
|
self.x = X
|
|
self.y = Y
|
|
end
|
|
|
|
meth print
|
|
{System.showInfo
|
|
"Point("#
|
|
"x:"#self.x#
|
|
", y:"#self.y#
|
|
")"}
|
|
end
|
|
end
|
|
|
|
class Circle
|
|
feat
|
|
center
|
|
r
|
|
|
|
meth init(center:C<={New Point init} r:R<=1.0)
|
|
self.center = C
|
|
self.r = R
|
|
end
|
|
|
|
meth print
|
|
{System.showInfo
|
|
"Circle("#
|
|
"x:"#self.center.x#
|
|
", y:"#self.center.y#
|
|
", r:"#self.r#
|
|
")"}
|
|
end
|
|
end
|