#lang racket
(require (planet wcy/mpost-wrapper))
(provide main)
(define (main)
  (let* ((u '1cm)
         (p (yscale (op* 3 u) (xscale (op* -1 u) 'fullcircle))))
    (draw p)
    (define (draw-point x) (draw x #:withpen (scale '4bp 'pencircle)))
    (for ((i (in-range 2 6.1 0.5)))
         (draw (path (point-of 2 p) (dir-spec 'down) 
                     '..
                     (point-of i p))))))