#lang racket
(require (planet wcy/mpost-wrapper))
(provide main)
(define (main)
  (let ((A (point 0 0))
        (B (point '3cm 0))
        (C (point '1cm '2cm))
        (H (unknown-point)))
    (eqn= (op- H A)
          (rotate 90 (op* (whatever)
                          (op- B C))))
    (eqn= (op- H B)
          (rotate 90 (op* (whatever)
                          (op- A C))))
    (draw (op-- A  B  C  'cycle))
    (draw H #:withpen (scale '4bp 'pencircle))
    ))