examples/ex-4.rkt
#lang racket
(require (planet wcy/mpost-wrapper))
(provide main)
(define (main)
  (draw (point 0 0)
        #:withpen (scale '4bp 'pencircle)))