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