(include-file "include/flavors.lfe")

;; Define the rectangle flavor.
(defflavor rectangle (width height)
           (shape)
  ;; Settables are also gettable and inittable.
  (settable-instance-variables width height))

(defmethod (draw) ()
  (lfe_io:format "Drawing rectangle at (~p ~p), width ~p, height ~p~n"
                 (list (get 'x) (get 'y)
                       (get 'width) (get 'height))))

(endflavor rectangle)
