#lang racket
(require (planet wcy/mpost-wrapper))
(provide main)
(define (main)
  (let* ((origin (point 0 0))
         (A (point '1cm '2cm))
         (B (point '2cm '1cm))
         (alpha (op- (op-angle A)
                     (op-angle B))))
    (drawarrow (op-- origin A))
    (drawarrow (op-- origin B))
    (for ((i (in-range 3)))
         (drawarrow (rotate (op* (* i -1/3) alpha)
                            (op-- origin A))))
    ))