#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)))
         (a (unknown-numeric))
         (b (unknown-numeric)))
    (draw p)
    (draw q)
    (eqn= (point a (whatever))
          (intersectiontimes p q))
    (draw (point-of a p) #:withpen (scale '4bp 'pencircle))))