Презентация на тему по информатике на тему Модуль GraphABC Pascal

ее модключения после заголовка программы необходимо написать Uses GraphABC. Модуль GraphABC

содержит константы, типы, процедуры и функции для рисования в графическом окне. Они подразделяются на несколько групп:

Рассмотрим сразу пример:
Program Gr01;
Uses GraphABC;
begin
SetWindowSize(256,256);
SetPenColor(RGB(0,0,255));
Line(0,0, WindowWidth, WindowHeight)
Line(0,WindowHeight, WindowWidth, 0)
end.

SetPenColor определяет цвет рисования линий. Функция RGB возвращает цвет,

заданный своими Red, Green, Blue компонентами. Процедура Line рисует линию из точки, заданной первой парой координат, в точку, заданную второй парой координат. Функции WindowWidth и WindowHeight возвращают текущие значения ширины и высоты графического окна (следовательно, если вы поменяете размер окна в процедуре SetWindowSize, то линии все равно будут проводиться из угла в угол).
Оконные координаты
* Координата x растет слева на право от 0 до значения WindowWidth
* Координата y растет сверху вниз от 0 до значения WindowHeight

Основываясь на этом, в графических библиотеках используется именно такое

трехкомпонентное представление цвета. Цвет задается с помощью функции rgb(Red, Green,Blue)
Здесь:
* Red – число от 0 до 255, соответствующее интенсивности красной компоненты
* Green – число от 0 до 255, соответствующее интенсивности зеленой компоненты
* Blue – число от 0 до 255, соответствующее интенсивности синей компоненты

Функция формирует целое число (integer), которое может использоваться везде в графической библиотеке, где требуется указание цвета. Есть несколько предопределенных цветов:

цвет пера, задаваемый параметром color.
* SetPenWidth(ширина) – устанавливает ширину

пера.
* SetPenStyle(стиль) – устанавливает стиль пера (сплошной, пунктир и т.п.), возможные значения указаны в таблице (стиль применим только к ширине пера 1 пиксел)








Текущее перо используется для рисования линий, прямоугольников, ломаных, окружностей, эллипсов, дуг и т.п.
Пример:
Program Gr02;
Uses GraphABC;
Var i : integer;
begin
SetWindowSize(512,512);
SetPenStyle(psDash);
SetBrushStyle(bsClear);
Circle (256,256,WindowHeight div 2);
end.