#lang racket (require (planet wcy/mpost-wrapper)) (provide main) (define (main) (let* ((T (unknown-transform)) (u '1cm) (z0 (point 0 0)) (z1 (point (op* 2 u) 0)) (z3 (rotate 90 z1)) (z2 (op+ z1 z3)) (p (op-- z0 z1 z2 z3 'cycle))) (for ((a (in-list (list z0 z1 z2))) (b (in-list (list z1 z2 z3)))) (eqn= (transform T a) (mediation 0.1 a b))) (for/fold ((p p)) ((i (in-range 201))) (fill p #:withcolor (if (= (modulo i 2) 0) (op* 0.8 'white) 'white)) (transform T p))))