#lang racket (require (planet wcy/mpost-wrapper)) (provide main) (define (main) (let* ((u '5mm) (p (path (point 0 0) (dir-spec '(curl 0)) '.. (point u (op* 2 u)) '.. (point (op* 2 u) (op* 1.5 u)) '.. (point (op* 3 u) (op* 2 u)) '.. (dir-spec '(curl 0)) (point (op* 4 u) 0)))) (draw (subpath-of 0 1 p) #:withcolor 'red) (draw (subpath-of 1 2 p) #:withcolor 'green) (draw (subpath-of 2 3 p) #:withcolor 'blue) (draw (subpath-of 3 3.5 p) #:dashed 'evenly) (draw (subpath-of 3.5 4 p) #:dashed 'withdots)))