#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)))