côté = 27 (slider from 10 to 50, step 0.1)
h1: y = côté
α = 0.4886921905584123 rad (slider from 0 to 90°, step 0.1°)
dp = Line((0, 0), Vector[(cos(α), sin(α))])
A = (0, 0)
B = Intersect(h1, dp)
dv = OrthogonalLine(B, xAxis)
C = Intersect(dv, xAxis)
b = Segment(A, C)
c = Segment(A, B)
a = Segment(C, B)
CC' = Segment(C, Intersect[OrthogonalLine[C, dp], dp])
C' = Intersect(OrthogonalLine[C, dp], dp)
distAC' = Length(Segment[A, C'])
distBC' = Length(Segment[B, C'])