Sorgente

Fuoco

Raggio incidente

Raggio riflesso

S = (-1, 0)
F = (4, 0)
DefEllisse = (1.08, 2.7)
k = Ellipse(S, F, DefEllisse)
Muovi = Point(k)
a = Segment(S, Muovi)
c = Segment(Muovi, F)
b, d = AngularBisector(a, c)
Lspecchio = 0.5 (slider from 0.1 to 1.5, step 0.1)
e = Circle(Muovi, Lspecchio)
B, C = Intersect(e, b)
f = Segment(B, C)
raggiEbisettrice = true
direzioneSpecchioi: true
lineaSpecchi = false