#lang racket (require (planet wcy/mpost-wrapper)) (provide main) (define (main) (let* ((u '2cm) (A (point 0 0)) (B (point u 0)) (C (point u u)) (D (point 0 u)) (T (unknown-transform)) (p (op-- A B C D 'cycle)) ) (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)) (draw p) (draw (transform T p))))