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