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