examples/ex-15.rkt
#lang racket
(require (planet wcy/mpost-wrapper))
(provide main)
(define (main)
  (draw (op-- (point 0 0)
              (point '3cm 0))
        #:dashed (dashpattern "on 2bp off 3bp")))