Курсовая работа: Преломление света на границе раздела двух сред

SetLineStyle(SolidLn, 0, NormWidth);

Line(0, round(my/3), mx, round(my/3));

Line(0, my, mx, my);

Line(0, round(my/3), 0, my);

Line(mx, round(my/3), mx, my);

{выводим границу между средами и нормаль}

SetColor(LightGray);

SetLineStyle(DottedLn, 0, NormWidth);

Line(round(mx/2), round(my/3), round(mx/2), my);

Line(0, round(2*my/3), mx, round(2*my/3));

{выводим стрелочки}

SetLineStyle(SolidLn, 0, NormWidth);

Line(round(mx/2) - 3, round(my/3) +10, round(mx/2), round(my/3));

Line(round(mx/2) +3, round(my/3) +10, round(mx/2), round(my/3));

{выводим падающий луч}

SetColor(Blue);

SetLineStyle(SolidLn, 0, NormWidth);

Line(round(mx/2), round(2*my/3), round(mx/2+delta), round(my/3));

{выводим преломленный луч}

SetColor(Red);

SetLineStyle(SolidLn, 0, NormWidth);

Line(round(mx/2), round(2*my/3), round(mx/2-delta1), round(my));

end;

procedure OutTextChangeAl; {выводит вспомогательный текст при смене значения угла}

begin

SetColor(White);

SetTextStyle(8, 0, 1);

OutTextXY(0,0, 'Значение угла падения меняется клавишами ');

OutTextXY(0, 20, '"вверх" и "вниз"');