examples/ex-77.rkt
#lang racket
(require (planet wcy/mpost-wrapper))
(provide main)
(define (main)
  (let* ((A (point '1cm 0))
         (B (rotate 72 A))
         (C (rotate 72 B))
         (D (rotate 72 C))
         (E (rotate 72 D))
         (AA (unknown-point))
         (BB (unknown-point))
         (CC (unknown-point))
         (DD (unknown-point))
         (EE (unknown-point)))
    (eqn= AA (mediation (whatever) A C))
    (eqn= AA (mediation (whatever) B D))
    (eqn= BB (mediation (whatever) B D))
    (eqn= BB (mediation (whatever) C E))
    (eqn= CC (mediation (whatever) C E))
    (eqn= CC (mediation (whatever) D A))
    (eqn= DD (mediation (whatever) D A))
    (eqn= DD (mediation (whatever) E B))
    (eqn= EE (mediation (whatever) E B))
    (eqn= EE (mediation (whatever) A C))
    (fill (op-- A C  E B D 'cycle) #:withcolor (op* 0.8 'white))
    (fill (op-- AA  BB  CC  DD  EE  'cycle) #:withcolor 'white)
    (draw (op-- A  C  E  B  D  'cycle))))