%% 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