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