#lang racket (require (planet wcy/mpost-wrapper)) (provide main) (define (main) (draw (apply op.. `(,@(for/list ((i (in-range 0 361 10))) (op* '2cm (point (sind (* 2 i)) (cosd (* 3 i))))) cycle))))