#lang racket (require (planet wcy/mpost-wrapper)) (provide main) (define (main) (let* ((A (point 0 '1cm)) (B (rotate 120 A)) (p (path A (dir-spec (dir 0)) '.. 'tension 2 '.. B (dir-spec (dir 120))))) (for ((p (in-list (list p (rotate 120 p) (rotate -120 p))))) (draw p)) ))