%% auteur : gh
% 100 setxlength
autocrop

/coul1 {.5 .5 1 setrgbcolor} def

% /A {0 -1} def
% /O {0 0} def

/A {-5 1.5} def
/B {-2.5 1.5} def
/C {0 1.5} def
% /D {2.5 1.5} def
% /E {5 1.5} def
/u {.1 -.5} def
/v {.1 .5} def

blanc
/fillstyle {{coul1} {blanc} 0 gradientfill} def 
-1.5 -1 8 1 mframe* 
-1.5 0 8 1 mframe*

noir
(a) 2.5 1 [.5 dup] dltext
(b) 2.5 0 [.5 dup] ultext
(c) 2.5 0 [.5 dup] dltext
(d) 2.5 -1 [.5 dup] ultext

% =============================================================
% 0 réflexion
% =============================================================
% 2 setlinewidth
% vert
% A A u 6 mulv addv (->) line


% =============================================================
% 1 réflexion
% =============================================================
% 2 setlinewidth
% noir
% /A1 {A u 3 mulv addv} def
% /B1 {B u 5 mulv addv} def
% A A1 (-) line
% B B1 (-) line
% 2 setlinewidth
% vert
% A1 A1 v 3 mulv addv (->) line
% B1 B1 v 5 mulv addv (->) line



% =============================================================
% 2 réflexions
% =============================================================
2 setlinewidth
noir
/A1 {A u 3 mulv addv} def
/A2 {A1 v 2 mulv addv} def
/B1 {B u 5 mulv addv} def
/B2 {B1 v 4 mulv addv} def
/C1 {C u 5 mulv addv} def
/C2 {C1 v 2 mulv addv} def
A A1 (-) line
B B1 (-) line
C C1 (-) line
2 setlinewidth
noir
A1 A2 (-) line
B1 B2 (-) line
C1 C2 (-) line
2 setlinewidth
vert
A2 A2 u 5 mulv addv (->) line
B2 B2 u 5 mulv addv (->) line
rouge
C2 C2 u 3 mulv addv (->) line


% =============================================================
% 3 réflexions
% =============================================================
% 2 setlinewidth
% noir
% /A1 {A u 3 mulv addv} def
% /A2 {A1 v 2 mulv addv} def
% /A3 {A2 u 4 mulv addv} def
% /A3bis {A2 u 2 mulv addv} def
% /B1 {B u 5 mulv addv} def
% /B2 {B1 v 4 mulv addv} def
% /B3 {B2 u 4 mulv addv} def
% /B3bis {B2 u 2 mulv addv} def
% /C1 {C u 5 mulv addv} def
% /C2 {C1 v 2 mulv addv} def
% /C3 {C2 u 2 mulv addv} def
% A A1 (-) line
% B B1 (-) line
% C C1 (-) line
% 2 setlinewidth
% noir
% A1 A2 (-) line
% B1 B2 (-) line
% C1 C2 (-) line
% 2 setlinewidth
% noir
% A2 A3 (-) line
% B2 B3 (-) line
% C2 C3 (-) line
% 2 setlinewidth
% vert
% A3 A3 v 5 mulv addv (->) line
% B3 B3 v 5 mulv addv (->) line
% C3 C3 v 5 mulv addv (->) line
% 2 setlinewidth
% rouge
% A3bis A3bis v 3 mulv addv (->) line
% B3bis B3bis v 3 mulv addv (->) line




% =============================================================
% 4 réflexions
% =============================================================
% 2 setlinewidth
% noir
% /A1 {A u 3 mulv addv} def
% /A2 {A1 v 2 mulv addv} def
% /A3 {A2 u 4 mulv addv} def
% /A3bis {A2 u 2 mulv addv} def
% /A4 {A3 v 4 mulv addv} def
% /A4bis {A3bis v 2 mulv addv} def
% /A4ter {A3 v 2 mulv addv} def
% /B1 {B u 5 mulv addv} def
% /B2 {B1 v 4 mulv addv} def
% /B3 {B2 u 4 mulv addv} def
% /B4 {B3 v 4 mulv addv} def
% /B3bis {B2 u 2 mulv addv} def
% /B4bis {B3bis v 2 mulv addv} def
% /B4ter {B3 v 2 mulv addv} def
% /C1 {C u 5 mulv addv} def
% /C2 {C1 v 2 mulv addv} def
% /C3 {C2 u 2 mulv addv} def
% /C4 {C3 v 4 mulv addv} def
% A A1 (>-) line
% B B1 (>-) line
% C C1 (>-) line
% 2 setlinewidth
% noir
% A1 A2 (-) line
% B1 B2 (-) line
% C1 C2 (-) line
% 2 setlinewidth
% noir
% A2 A3 (-) line
% B2 B3 (-) line
% C2 C3 (-) line
% 2 setlinewidth
% noir
% A3 A4 (-) line
% B3 B4 (-) line
% C3 C4 (-) line
% 2 setlinewidth
% noir
% A3bis A4bis (-) line
% B3bis B4bis (-) line
% =============================================================
% Les rayons réfléchis sur $a$
% 2 setlinewidth
% vert
% A4 A4 u 5 mulv addv (->) line
% A4bis A4bis u 5 mulv addv (->) line
% B4 B4 u 5 mulv addv (->) line
% B4bis B4bis u 5 mulv addv (->) line
% C4 C4 u 5 mulv addv (->) line
% =============================================================
% % Les rayons réfléchis sur $c$
% % 2 setlinewidth
% % rouge
% % A4ter A4ter u 3 mulv addv (->) line
% % B4ter B4ter u 3 mulv addv (->) line
%