#lang racket
(require (planet wcy/mpost-wrapper))
(provide main)
(define (main)
  (let* ((u '1cm)
         (A (point 0 0))
         (B (polar u  60))
         (C (polar u -60))
         (D (point (op* 2 u) 0)))
    (for ((x (in-list (list A B C D))))
         (draw x #:withpen (scale '4bp 'pencircle)))
    (draw (op-- A D B D C))
    (for ((x (in-list (list (path A (dir-spec 'up) ".." B)
                            (path A (dir-spec 'down) ".." C)
                            (path A (dir-spec (dir  30)) ".." B)
                            (path A (dir-spec (dir -30)) ".." C)))))
         (draw x)
         )))