;;; -*- Mode: Lisp; Package: DESIGN; Syntax: Ansi-common-lisp -*-

;;; Methods for calculating the physical center(s) of a design model.

;;; +++ get rest when needed

(defmethod physical-center ((region territory) &optional bmodel ignore)
  bmodel ignore
  (multiple-value-call #'rectangle-center (bounding-rectangle region)))