#lang racket
(require (planet wcy/mpost-wrapper))
(provide main)
(define (main)
  (let* ((A (point 0  0))
         (B (point '2cm '1cm))
         (p (fullcircle (op-abs (op- B A))
                        (mediation 0.5 A B))))
    (for ((x (in-list (list A B))))
         (draw x #:withpen (scale '4bp 'pencircle)))
    (draw p)))