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