κουμπί1

a = 2 (slider from -15 to 15, step 1)
Ο = Point(xAxis)
Α: (a, 0)
b = Segment(Ο, Α)
Ο' = Mirror(Ο, Ο)
Β = Mirror(Α, Ο)
b' = Segment(Ο', Β)
c = false
ΦΑΣΗ = 1 (slider from 1 to 5, step 1)
e = Circle(Ο, abs(a))
Γ, Δ = Intersect(e, xAxis)
r = 1.5 (slider from 1 to 5, step 0.5)