Prolungamento raggio incidente

Sorgente apparente

Raggio riflesso

Raggio incidente

e = 3 (slider from -6 to 9, step 1)
specchio = (-4, 1)
B = (8, 1)
a = Segment(specchio, B)
Sorgente = (-2, 2)
D: (e, -(3.0))
b = Segment(Sorgente, D)
C' = Mirror(Sorgente, a)
riflesso = Mirror(D, a)
I = Intersect(a, b)
rr = Segment(I, riflesso)
c = Segment(C', I)
ri = Segment(Sorgente, I)