examples/ex-86.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))
         (p (op-- A B C D E 'cycle))
         (T (unknown-transform)))
    (eqn= (transform T A)
          (mediation 1/5 A B))
    (eqn= (transform T B)
          (mediation 1/5 B C))
    (eqn= (transform T C)
          (mediation 1/5 C D))
    (for/fold
        ((p p))
        ((i (in-range 0 3)))
      (draw p)
      (transform T p))))