examples/ex-148.rkt
#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)
                               )))))