#lang racket (require (planet wcy/mpost-wrapper)) (provide main) (define (main) (for ((i (in-range 0 361 0.5))) (let ((col (/ i 360))) (draw (op* '2cm (point (sind (* 2 i)) (cosd (* 3 i)))) #:withpen (scale '2bp 'pencircle) #:withcolor (if (> col 0.5) (mediation (* 2 (- 1 col)) 'red 'blue) (mediation (- 1 (* 2 col)) 'blue 'red) )))))