#lang racket
(require (planet wcy/mpost-wrapper))
(provide main)
(define (main)
  (let* ((u '1cm)
         (p (path (point 0 0) (dir-spec 'up) '..
                  (point u (op* 2 u)) (dir-spec 'up)))
         (q (path (point u 0) (dir-spec 'up) '..
                  (point 0 (op* 2 u)) (dir-spec 'up))))
    (draw p)
    (draw (subpath-of 0 0.4 q) #:withpen (scale '1bp 'pencircle))
    (draw (subpath-of 0.6 1 q) #:withpen (scale '1bp 'pencircle))))