Trascinare il punto T

A = Point(xAxis)
B = Point(xAxis)
a = Line(A, B)
C = Point(yAxis)
D = Point(yAxis)
b = Line(C, D)
O = Intersect(a, b)
E = Point(a)
c = Circle(O, E)
F = Point(b)
d = Circle(O, F)
T = Point(c)
e = Ray(O, T)
R = Intersect(d, e, 1)
f = Line(R, a)
g = OrthogonalLine(T, f)
P = Intersect(f, g)
luogo1 = Locus(P, T)
h = Line(R, g)
K = Intersect(a, g)
H = Intersect(a, h)
α = Angle(K, O, T)