#lang racket
(require (planet wcy/mpost-wrapper))
(provide main)
(define (main)
  (let* ((u '1cm)
         (p (path (op-- (point 0 0)
                        (point u 0))))
         (A (point u (op* -1 u)))
         (alpha 90))
    (drawarrow p #:withpen (scale '1bp 'pencircle))
    (drawarrow ((rotate-around A alpha) p))
    (drawarrow
     (shift A (rotate alpha (shift (op* -1 A) p)))
     #:withpen (scale '1bp 'pencircle) #:dashed 'withdots)))