A = Intersect(xAxis, yAxis)
B = Point(xAxis)
a = Ray(A, B)
C = (7.154320987654319, 4.131111111111105)
b = Ray(A, C)
α = Angle(B, A, C)
D = Point(b)
c = OrthogonalLine(D, a)
E = Point(b)
d = OrthogonalLine(E, a)
e = OrthogonalLine(C, a)
f = OrthogonalLine(B, a)
G = Intersect(c, a)
H = Intersect(d, a)
I = Intersect(e, a)
distanceDG = Distance(D, G)
TextDG: Name[D] + (Name[G]) + " = " + distanceDG
distanceAG = Distance(A, G)
TextAG: Name[A] + (Name[G]) + " = " + distanceAG
F = Intersect(f, b)