examples/ex-105.rkt
#lang racket
(require (planet wcy/mpost-wrapper))
(provide main)
(define (main)
  (let* ((p (path (point 0 0) (dir-spec 'up) '..
                  (point '2cm 0) (dir-spec 'down))))
    (draw p)
    (for ((i (in-list (list 0 0.5 1))))
         (draw (point-of i p) #:withpen (scale '4bp 'pencircle)))
    ))