#lang racket
(require (planet wcy/mpost-wrapper))
(provide main)
(define (A-B-C-D)
  (values (point 0 0)
          (point '1cm 0)
          (point '1cm '1cm)
          (point 0 '1cm)))
(define (main)
  (call-with-values A-B-C-D
    (lambda (A B C D)
      (draw (op-- A  B  C 'cycle))
      (draw (op-- (mediation '.5 B C) A) #:dashed 'evenly)
      (draw (op-- (mediation '.5 A C) B) #:dashed 'evenly)
      (draw (op-- (mediation '.5 B A) C) #:dashed 'evenly)
      (draw (op* 1/3
                 (op+ A B C)) #:withpen (scale '4bp 'pencircle)
                 #:withcolor 'red)
      )))