ΝΤΟΝΤΟΡΟΣ ΗΛΙΑΣ

s = 2.6 (slider from 0 to 10, step 0.1)
Α = (3.62, -2.44)
a_1: abs(s)
Β = Point(Circle[Α, abs(s)])
a = Segment(Α, Β)
t = 1.361356816555577 rad (slider from 0 to 180*°, step 0.017453292519943295)
Α' = Rotate(Α, t, Β)
α = Angle(Α, Β, Α')
b = Segment(Α', Β)
c = Line(Α', a)
d = Line(Α, b)
Γ = Intersect(c, d)
e = Segment(Γ, Α)
f = Segment(Γ, Α')