1.  \text{ Priamky: }p_a=BC,  \; p_b=AC,  \; p_c=AB

2.  \text{ Výšky: }v_a=AA_0,  \; v_b=BB_0,  \; v_c=CC_0

3. \text{ Ortocentrum: }V=v_a \; ∩ \; v_b \; ∩ \; v_c

4.  \text{ Aktivujeme stopu bodu }V

5.  \text{ Pohybujeme vrcholom }C

A = (2.339485369479841, -1.0052411556631866)
B = (8.424014482826173, -0.5164561435412316)
D = (5.491305159495806, 3.2252773975302858)
p = Line(D, Vector[A, B])
C = Point(p)
t1, c, a, b = Polygon(A, B, C)
p_a = Line(B, C)
p_c = Line(A, B)
p_b = Line(A, C)
v_a = OrthogonalLine(A, p_a)
A_0 = Intersect(v_a, p_a)
v_b = OrthogonalLine(B, p_b)
B_0 = Intersect(v_b, p_b)
v_c = OrthogonalLine(C, p_c)
C_0 = Intersect(v_c, p_c)
V = Intersect(v_a, v_b)