a = 7.9 (slider from 5 to 15, step 0.1)
D: y = a x
A = Intersect(d, D')
B = Intersect(D, D')
C = Intersect(D, d)
b = OrthogonalLine(C, xAxis)