МОДУЛЬ GRAPH. ПОСТРОЕНИЕ ЭЛЕМЕНТАРНЫХ ГРАФИЧЕСКИХ ИЗОБРАЖЕНИЙ
| Назначение | Формат описания | Особенности |
| Линии и их стили | ||
| вывода линии (отрезка) на экран (в текущем цвете и стиле) | Line(X1, Y1, X2, Y2: Integer) | Здесь задаются координатами начала (X1,Y1) и конца (Y1,Y2) отрезка. |
| рисования отрезков из текущей точки в точку с заданными координатами (X,Y) процедурой | LineTo(x, y: Integer); | Координаты концов могут превышать границы графического окна. При этом часть отрезка может быть обрезана (но текущий указатель переместиться в координаты конца отрезка). |
| Рисование линии от текущей точки с приростом | LineRel(dx, dy: Integer); | dx, dy – на сколько сделать прирост |
| управлять стилем линий | SetLineStyle(LineStyle, Pattern, Thickness: Word), | задавать толщину, тип (сплошные линии, пунктирные и т.п.). Чтобы установить новый стиль линий |
| Окружности, эллипсы и дуги | ||
| Для изображения окружностей | Circle(x, y,: Integer; Radius: Word) | Здесь (X,Y) - координаты центра окружности, Radius - ее радиус. |
| Рисование дуги | Arc(X,Y: Integer; StartAngle,EndAngle,Radius: Word) | радиуса Radius из центра с координатами (X,Y) от угла StartAngle до EndAngle: |
| Рисование эллиптической дуги:с аналогичными параметрами | Ellipse(X,Y: Integer; StartAngle, EndAngle, XRadius, YRadius: Word) | где XRadius и YRadius - размеры горизонтальной и вертикальной полуосей соответственно. |
| Построение прямоугольников и ломанных | ||
| Для построения прямоугольника | Rectangle(X1, Y1, X2, Y2: Integer), | изобразит на экране прямоугольник с диагональю (X1,Y1)-(X2,Y2). |
| Рисование ломаной линии | Drawpoly (N, координаты: Integer) | N – количество точек слома, координаты – массив координат точек слома |
| Рисует точку | Putpixel (x,y,color:integer); | Выводить в заданную позицию точку указанного цвета |
Таблица 1. СТИЛИ И ТОЛЩИНА ЛИНИЙ. Таблица 2. ОБРАЗЦЫ ДЛЯ ЗАПОЛНЕНИЯ ОБЛАСТИ
| Константа | Значение | Стиль | Константа | Значение | Описание | |
| EmptyFill | сплошная заливка цветом фона | |||||
| LineStyle (стиль линии) | SolidLn DottedLn CenterLn DashedLn UserBitLn | сплошная линия точечная штрих пунктирная пунктирная пользовательская | SolidFill | сплошная заливка текущим цветом | ||
| LineFill | заливка типа --- | |||||
| LtSlashFill | заливка типа /// | |||||
| SlashFill | заливка жирными линиями типа /// | |||||
| Thickness (толщина) | NormWidth ThickWidth | нормальная линия толстая | BkSlashFill | заливка жирными линиями типа \\\ | ||
| LtBkSlashFill | заливка типа \\\ | |||||
| HatchFill | заливка редкой штриховкой | |||||
| Константа | Значение | Описание | XhatchFill | заливка частой штриховкой | ||
| CloseDotFill | заливка частыми точками | InterleaveFill | заливка прерывистой линией | |||
| UserFill | заливка, определенная программистом | WideDotFill | заливка редкими точками |
МОДУЛЬ GRAPH. ЗАЛИВКА ФИГУР, ОПЕРАТОРЫ ЗАЛИВКИ.
На экране всегда различаются цвет фона и цвет пера. Все процедуры изображения фигур, если не содержат в себе явной установки цвета, рисуют эти фигуры цветом пера (как символы в текстовом режиме).
| Назначение процедуры | Формат записи | особенности |
| Задание цвета фона и пера | ||
| Установка и изменение цвет и пера | SetColor(Color: Word) | Можно написать название цвета по-английски |
| Цвет фона | SetBkColor (Color: Word) | всегда един в поле экрана. |
| Задание типа заливки | ||
| Заполнение (заливка) | SetFillStyle(Pattern: Word; Color: Word) | параметр Pattern определяет вид шаблона заливки, а Color – его цвет. |
| Заливка областей изображения | ||
| рисует прямоугольник, внутренняя область которого залита по текущему шаблону. | Bar(X1, Y1, X2, Y2: Integer) | Параметры (X1,Y1) и (X2,Y2) – координаты верхнего левого и правого нижнего углов прямоугольника. |
| рисует параллелепипед, лицевая сторона которого заливается по текущему шаблону, глубина задается в пикселях параметром D3. | Bar3D(X1, Y1, X2, Y2: Integer; D3: Word; Top: Boolean) | Параметр Top задает режим отображения верхней плоскости: True - отображать, False - не отображать. Этот параметр необходим для того, например, чтобы можно было рисовать столбцы, стоящие друг на друге. |
| Рисование сектора эллипса, который будет залит цветом по текущему шаблону | Sector(X, Y: Integer; StartAngle, EndAngle, XRadius, YRadius: Word) | Параметры процедуры имеют тот же смысл, что и в процедурах Arc, Ellipse. |
| рисует сектор окружности, площадь которого заливается по текущему шаблону. | PieSlice(X, Y: Integer; StartAngle, EndAngle, Radius: Word) | Параметры этой процедуры имеют такой же смысл, как и параметры процедуры Ellipse. |
| заливает всю область | FloodFill(X, Y: Integer; Border: Word) | вокруг точки (X,Y), ограниченную линиями цвета Border. |
| Рисует замкнутый многоугольник и зарисовывает его текущим типом заливки | Fillpoly (N, координаты: integer); | Указывается общее число точек и координаты этих точек |
Если точка (X,Y) находится внутри области, ограниченной окружностью, то вся область будет залита по шаблону и цветом, установленными процедурами SetFillPattern или SetFillStyle. Если же точка будет находиться вне этой области, то залитым будет весь экран за исключением этой области. Обратите внимание на то, что если область не будет замкнута сплошной линией или границами экрана, то по шаблону заполнится весь экран.
Таблица 1. Константа Color.
| константа | Значение | Цвет | Константа | Значение | Цвет |
| Black Blue Green Cyan Red Magenta Brown LightGray | черный синий зеленый циан(голубой) красный фиолетовый коричневый светло-серый | DarkGray LightBlue LightGreen LightCyan LightRed LightMagenta Yellow White | темно-серый голубой ярко-зеленый светл. циан (светло-голубой) ярко-красный сиреневый желтый белый |
