Закрашивание объекта.

Дата добавления: 2015-06-12; просмотров: 647; Нарушение авторских прав

Для изменения текущего цвета рисования, т.е. для задания цвета рисования прямых, окружностей, точек и пр. используется процедура SetColor. В качестве единственного её параметра Color нужно указать целое число, являющееся кодом цвета. Цвета кодируются в соответствии с п таблицей, которое было применено к текстовому режиму. Если Вы хорошо знаете английский язык, то Вам будет удобнее использовать не числа, а соответствующие им идентификаторы; если же Вы английский знаете плохо, то всё равно полезнее запомнить английские названия цветов, чем запоминать числа, кодирующие цвета. Program Ex_3; { цветной треугольник }Uses Graph;Var Gd, Gm: integer;Begin Gd:=VGA; { графический адаптер VGA } Gm:=VGAhi; { графический режим VGAhi (640x480)x16 } Initgraph(Gd,Gm,''); { Включить графический режим if GraphResult = grOk then { Если режим включился успешно } begin setcolor(lightmagenta); line(120,210,520,210); { основание } setcolor(lightcyan); line(120,210,320,10); { левая сторона } setcolor(green); line(320,10,520,210); { правая сторона } end;End.Задания для самостоятельного выполнения1. Нарисовать много окружности из разных цветов, радиус равен от 1 до 100, с шагом 10.2. Создать программу движения шарика по горизонтали.3. Нарисовать "пирамиду" сложенную из прямоугольников одинакового размера, заполненных разным орнаментом, разного цвета. В основании пирамиды 20 прямоугольников.4. Нарисовать "сетку" размером 15x15, состоящую из одинаковых по размеру ромбов, заполненных разным орнаментом, разного цвета.5. Нарисуйте олимпийский флаг.6. Нарисуйте фрагмент страницы из тетрадки в косую линейку.7. Изобразите год вашего рождения в виде прямоугольников.

<== предыдущая лекция	\|	следующая лекция ==>
Табдица 7	\|	Использование цикла с предусловием, правила записи цикла