#lang racket (require (planet wcy/mpost-wrapper)) (provide main) (define (main) (let ((u '1cm) (tension " tension 4 ")) (draw (path (polar u 90) (dir-spec (dir 0)) '.. tension '.. (polar u -150 ) (dir-spec (dir 120)) '.. tension '.. (polar u -30 ) (dir-spec (dir -120)) '.. tension '.. 'cycle))))