#lang racket (require (planet wcy/mpost-wrapper)) (provide main) (define (main) (let* ((u '5mm) (p (shift (point -1 0) (op.. (point 0 0) (point -1 1) (point 2 0) (point 0 -3) 'cycle)))) (for ((i (in-range 1.0 0.0 -0.01 ))) (fill (scale (op* i u) p) #:withcolor (op* i 'white))) (draw (scale u p) #:withpen (scale '2bp 'pencircle))))