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