#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) ))