#lang racket
(require (planet wcy/mpost-wrapper))
(provide main)
(define (main)
  (let* ((T (unknown-transform))
         (u '1cm)
         (z (point 0 (op* 2 u)))
         (n 5)
         (zn (map (lambda (i) (rotate (/ (* 360 i) n)
                                      z))
                  (stream->list (in-range n))))
         (p (apply op--  `(,@zn cycle))))
    (for ((i (in-range 1 4)))
         (eqn= (transform T (list-ref zn i))
               (mediation 0.1 
                          (list-ref zn i)
                          (list-ref zn (+ 1 i)))))
    (for/fold ((p p))
        ((i (in-range 201)))
      (fill p #:withcolor (if (= (modulo i 2) 0)
                              (op* 0.8 'white)
                              'white))
      (transform T p))))