examples/ex-107.rkt
#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)))