Get["c:/creflector.m"];

MaxIterationNumber = 10;

vyrezGrafu = {{0. , 6. }, {-5. , 5. }};

Paprsky = {{3. , 4. }, {2. , 3.7}, {1. , 1. }};

PoleOptickychSegmentu = 
        Join[{
{{1. , -4. }, {1. , 4. }, {1. , 
                1. }}, 
{{5. , -4. }, {5. , 4. }, {1. , 
                1. }}
}];
paprskyProGrafiku = {{{0, 0}, {0, 0}}};
SledujPaprsekEx[Paprsky,  PoleOptickychSegmentu, 1, 
        0];
NakresliKonfiguraciEx[PoleOptickychSegmentu,  
      paprskyProGrafiku]

PoleOptickychSegmentu = 
        Join[{
{{1. , -4. }, {1. , 4. }, {1. , 
                1. }}, 
{{5. , -4. }, {5. , 4. }, {1. , 
                1. }}, 
{{3. , 2. }, {2. , 0. }, {2. , 
                0. }, {1. , 1.52}}, 
{{2. , 0. }, {4. , 
                0. }, {2. , 0. }, {1. , 1.52}}, 
{{3. , 
                2. }, {4. , 0. }, {2. , 0. }, {1. , 
                1.52}}
}];
paprskyProGrafiku = {{{0, 0}, {0, 0}}};
SledujPaprsekEx[Paprsky,  PoleOptickychSegmentu, 1, 
        0];
NakresliKonfiguraciEx[PoleOptickychSegmentu,  
      paprskyProGrafiku]

\(	\)