#lang racket
(require (planet wcy/mpost-wrapper))
(provide main)
(define (main)
  (for ((i (in-range 1.0 0.0 -0.01 )))
       (fill (fullcircle (op* i '2cm))
             #:withcolor (op* i 'white)))
  (draw (fullcircle '2cm)
        #:withpen (scale '2bp 'pencircle)))