examples/ex-111.rkt
#lang racket
(require (planet wcy/mpost-wrapper))
(provide main)
(define (main)
  (let* ((u '1cm)
         (a (fullcircle (op* 2 u) (point (op* 0.5 u) 0)))
         (b (rotate (/ 360 3) a))
         (c (rotate (/ 360 3) b)))
    (fill a #:withcolor 'red)
    (fill b #:withcolor 'green)
    (fill c #:withcolor 'blue)
    (fill (buildcycle a b) #:withcolor (op+ 'red   'green))
    (fill (buildcycle b c) #:withcolor (op+ 'green 'blue))
    (fill (buildcycle c a) #:withcolor (op+ 'blue  'red))
    (fill (buildcycle a b c) #:withcolor 'white)
    (draw a) (draw b) (draw c)
    ))