|
# The Rectangle class
|
|
(class +Rectangle +Shape)
|
|
# dx dy
|
|
|
|
(dm T (X Y DX DY)
|
|
(super X Y)
|
|
(=: dx DX)
|
|
(=: dy DY) )
|
|
|
|
(dm area> ()
|
|
(* (: dx) (: dy)) )
|
|
|
|
(dm perimeter> ()
|
|
(* 2 (+ (: dx) (: dy))) )
|
|
|
|
(dm draw> ()
|
|
(drawRect (: x) (: y) (: dx) (: dy)) ) # Hypothetical function 'drawRect'
|