examples/ex-14.rkt
#lang racket
(require (planet wcy/mpost-wrapper))
(provide main)
(define (main)
  (draw (op-- (point 0 0)
              (point '3cm 0)) #:dashed (scale 2 'evenly)))