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