examples/ex-43.rkt
#lang racket
(require (planet wcy/mpost-wrapper))
(provide main)
(define (main)
  (draw (path (point 0    0) (dir-spec (point 0 1))  ".."
              (point '2cm 0) (dir-spec (point 1 0)))))