examples/ex-110.rkt
#lang racket
(require (planet wcy/mpost-wrapper))
(provide main)
(define (main)
  (let* ((u '1cm)
         (c1 (fullcircle u))
         (c2 (fullcircle u (point 0 (op* 0.5 u)))))
    (draw c1 #:dashed 'evenly)
    (draw c2 #:dashed 'evenly)
    (draw (buildcycle c1 c2) #:withpen (scale '1bp 'pencircle))))