Λάμπρος Βλάχας

s = 3.4 (slider from 0 to 10, step 0.1)
Α = (0.42, -1.08)
a_1: abs(s)
Β = Point(Circle[Α, abs(s)])
a = Segment(Α, Β)
t = 1.0471975511965976 rad (slider from 0 to 6.283185307179586, step 0.017453292519943295)
Α' = Rotate(Α, t, Β)
α = Angle(Α, Β, Α')
b = Segment(Β, Α')
c = Line(Α', a)
d = Line(Α, b)
Γ = Intersect(d, c)
e = Segment(Α, Γ)
f = Segment(Γ, Α')