(define (parent item)
  ... get the parent of item somehow ...)

(define (center-of accessor)
  (lambda (item)
    (calculate-center-of (accessor item))))