Page 67 - 6370

end;
7. Для перевірки цього пробного коду запускають команду
Run і клацають по кнопці Button4. Спостерігають за
змінами, які сталися (рисунок 45):

- На об’єкті Image1 відобразився промінь з початком у
точці (10,10).

0
- Промінь нахилений під кутом 45 оскільки величини l і r є
однаковими масивами нескінченої кількості членів, а це
значить, що процедура lineto(x[1],y[1]), як і наприклад
lineto(x[15],y[15]) спрямовує побудову відрізка у точку, що
рівновіддалена від верху об’єкта і від лівого боку об’єкта.
Це також означає і те, що хоч масиви складаються з
цілих чисел, але ці числа не є вказані, а відповідно, як
перший член масиву так і п’ятнадцятий можуть бути як
завгодно великими цілими числами. Тому побудований
відрізок це по суті промінь, який побудований у межах
об’єкту Image1 .

Рисунок 45 – Відображення на об’єкті класу TImage
0
променя нахиленого під куом 45 .

8. Якщо у тілі процедури figure_point залишити тільки
рядок (Sender as TImage).Canvas. lineto(x[0],y[0]) , то

69