Построение изображений по линиям.. Очистка экрана ClearDevice – очистка экрана в графическом режиме. С момента начала ее выполнения все установки по цвету, - презентация

1 Построение изображений по линиям.

2 Очистка экрана ClearDevice – очистка экрана в графическом режиме. С момента начала ее выполнения все установки по цвету, фону и окнам анулируются и текущий указатель СР (Curent Pointer) помещается в точку с координатами (0,0).

3 Отображение отрезков прямых линий : Line (X1, Y1, Х 2, Y2: Integer) Рисует линию от точки X1, Y1 до точки Х 2, Y2. LineRel(DX, DY: Integer) Рисует линию от текущего указателя к точке, заданной приращением координат. LineTo(X, Y: Integer) Рисует линию от текущего указателя к точке X, Y.

4 Установка стиля линии : SetLineStyle(LineStyle, Pattern, Thickness: Word) Устанавливает толщину и стиль линии. Параметром LineStyle задается тип строки, Pattern - шаблон, Thickness – толщина линии. Тип Значение Характеристика SolidLn 0 Сплошная DottedLn 1 Точечная CenterLn 2 Штрихпунктирная DashedLn 3 Пунктирная UserBitLn 4 Тип определяется пользователем NormWidth 1 Нормальная толщина ThickWidth 3 Тройная толщина

5 Установка цвета Для разных адаптеров количество цветов, одновременно отображаемых на экране в графическом режиме может быть различным, но чаще (0 до 15). GetMaxColor – узнать максимальный номер цвета, воспринимаемый данным адаптером в текущем графическом режиме. SetColor (Color: Word) Устанавливает основной цвет, которым будет осуществляться рисование. Set Bk Color (Color: Word) Устанавливает новый цвет фона, который определяется значением Color.

6 Стиль и цвет заливки SetFillStyle (Pattern, Color: Word) Устанавливает образец штриховки и цвет. Константа Значение Описание узора EmptyFill 0 Нет штриховки SolidFill 1 Сплошная штриховка LineFill штриховка LtSlashFill 3 /// штриховка нормальной толщины SlashFill 4 /// штриховка удвоенной толщины BkSlashFill 5 \\\ штриховка удвоенной толщины LtBkSlashFill 6 \\\ штриховка нормальной толщины HatchFill штриховка XHatchFill 8 ххх штриховка InterleaveFill 9 Штриховка в клетку WideDotFill 10 Штриховка редкими точками CloseDotFill 11 Штриховка частыми точками UserFill 12 Штриховка задается пользователем

7 Заполнение областей изображения : FloodFill (X, Y; Integer; Border:Word) Штрихует замкнутую область, содержащую внутреннюю точку с координатами X, Y и ограниченную линией с цветом Border. Используется текущий образец штриховки и цвет. В зависимости от расположения указанной точки по отношению к контуру будет производиться заполнение текущим узором либо области ограниченной контуром, либо части экрана, расположенной вне границ контура. Если указанный контур не является замкнутым, то будет заполнен весь экран.

8 Примеры работы процедур закрашивания : SetFillStyle (1,2); FloodFill (X,Y; 1) FloodFill (X,Y;4);

9 Практическая работа : Нарисовать квадрат с вписанным в него треугольником и неправильную звезду и заштриховать каждую из замкнутых областей своим стилем и своим цветом.

10 Домашнее задание : Написать программу, которая вычерчивает на экране рисунок. ( Домик, кораблик и т. п ) Продумать координаты точек рисунка.