#lang racket
(require (planet wcy/mpost-wrapper))
(provide main)
(define (main)
  (let* ((A (point 0 0))
         (B (point '3cm 0))
         (C (point '1cm '2cm))
         (AA (mediation 0.5 B C))
         (BB (mediation 0.5 A C))
         (CC (mediation 0.5 A B))
         (G (unknown-point)))
    (eqn= G
          (mediation (whatever) A AA)
          (mediation (whatever) B BB))
    (draw (op-- A B C 'cycle))
    (for ((a (list A B C))
          (b (list AA BB CC)))
         (draw  (op-- a b) #:dashed  'withdots))
    (draw G #:withpen (scale '4bp 'pencircle))))