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