#lang racket (require (planet wcy/mpost-wrapper)) (provide main) (define (main) (let ((p (path (point '5mm '-5mm) (dir-spec 'right) '.. (point '2cm 0)))) (for ((n (in-range 10))) (draw (rotate (* 10 n) p)))))