#lang racket
(require (planet wcy/mpost-wrapper))
(provide main)
(define (A-B-C)
  (values (point 0 0)
          (point '1cm 0)
          (point 0 '1cm)))
(define (main)
  (call-with-values A-B-C
    (lambda (A B C)
      (for ((p (in-list (list (op-- A B)
                              (op-- B C)
                              (op-- C A)
                              )))
            (color (in-list (list 0.8 0.6 0.4))))
           (draw p
                 #:withpen (scale '2bp 'pencircle)
                 #:withcolor (op* color 'white)))
      )))