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