#lang racket (require (planet wcy/mpost-wrapper)) (provide main) (define (A-B-C-D) (values (point 0 0) (point '1cm 0) (point '1cm '1cm) (point 0 '1cm))) (define (main) (call-with-values A-B-C-D (lambda (A B C D) (draw (op-- A B C 'cycle)) (draw (op-- (mediation '.5 B C) A) #:dashed 'evenly) (draw (op-- (mediation '.5 A C) B) #:dashed 'evenly) (draw (op-- (mediation '.5 B A) C) #:dashed 'evenly) (draw (op* 1/3 (op+ A B C)) #:withpen (scale '4bp 'pencircle) #:withcolor 'red) )))