Grid

A_1: (1.64502, 1)
B_1: (19.67184, 1)
C: (14.91279, 17.6)
A = (4.049143962802074, 17.822819836602463)
B = (13.69666602262242, 4.806547244640285)
list1 = Sequence(Line[(0, i), (1, i)], i, -10, 30, 1)
list2 = Sequence(Line[(i, 0), (i, 1)], i, -10, 30, 1)
a = false
D: (19.08, y(C))