19 lines
270 B
Text
19 lines
270 B
Text
(class +Point)
|
|
# x y
|
|
|
|
(dm T (X Y)
|
|
(=: x (or X 0))
|
|
(=: y (or Y 0)) )
|
|
|
|
(dm print> ()
|
|
(prinl "Point " (: x) "," (: y)) )
|
|
|
|
(class +Circle +Point)
|
|
# r
|
|
|
|
(dm T (X Y R)
|
|
(super X Y)
|
|
(=: r (or R 0)) )
|
|
|
|
(dm print> ()
|
|
(prinl "Circle " (: x) "," (: y) "," (: r)) )
|