#lang racket
(require (planet wcy/mpost-wrapper))
(provide main)
(define (main)
  (let* ((p (path (point 0 0) (dir-spec 'up) '..
                  (point '2cm 0) (dir-spec 'up)))
         (q (path (point 0 '1cm) (dir-spec (dir -60)) '..
                  (point '1cm '-1cm) '..
                  (dir-spec (dir 60)) (point '2cm '1cm))))
    (draw p)
    (draw q)
    (draw (intersectionpoint p q) #:withpen (scale '4bp 'pencircle))))