y = tg x

A = Intersect(xAxis, yAxis)
c = Circle(A, 1)
B = (1.3764548650015995, 1.1619385301015612)
a = Ray(A, B)
C = Intersect(c, a, 1)
b = OrthogonalLine(C, xAxis)
α = Angle(xAxis, a)
f = OrthogonalLine(C, yAxis)
F = (1.0010647097061807, 2.3912156848379458)
i = Line(F, yAxis)
G = Intersect(i, a)
H = Intersect(c, i, 1)
I = Point(i)
j = Segment(G, I)
k = Line(B, A)
J = Intersect(i, k)
l = Segment(J, I)