Графика в PascalABC.net Библиотека. GraphABC

Подключение дополнительных
библиотек

Для работы в графическом режиме необходимо подключение модуля GraphABC.

Графический режим

Графический экран PasсalABC (по умолчанию) содержит 640 точек по горизонтали

Управление экраном

SetWindowWidth(w) –
Устанавливает ширину графического окна;

SetWindowHeight(h) -
Устанавливает высоту

Очистка графического окна

ClearWindow; - очищает графическое окно белым цветом.
ClearWindow(color); - очищает

Программа Рабочий стол

Графические примитивы

Точка
Линия
Прямоугольник
Окружность
Эллипс
Сектор
Дуга

Точка

SetPixel(x,y,color) - Закрашивает один пиксель с координатами (x,y) цветом color

Линии

LineTo(x,y) - рисует отрезок от текущего положения пера до точки (x,y);

Линии

Line(x1,y1,x2,y2) - рисует отрезок с началом в точке (x1,y1) и концом

Используемые цвета

Random(16777215) – случайный цвет из всей палитры цветов Паскаля

Цвет линии

SetPenColor(c: Color);
Устанавливает цвет текущего пера

Стили пера

Толщина линии

SetPenWidth(n) - устанавливает ширину (толщину) пера, равную n пикселям.

Треугольник

Line(x1,y1,x2,y2); LineTo(x,y);
   Рисует отрезок от текущей позиции
до точки (x,y) цветом c.

Прямоугольник

Rectangle(x1,y1,x2,y2) - рисует прямоугольник, заданный координатами противоположных вершин (x1,y1) и (x2,y2).

Заливка цветом

FloodFill(x,y,color) - заливает область одного цвета цветом color, начиная с

Заливка кистью

SetBrushColor(color) –
устанавливает цвет кисти.
Заливка кистью распространяется на замкнутый контур,

Цвет и толщина контура

Задаются процедурами
SetPenWidth(w);
SetPenColor(color);

Окружность

DrawCircle(x,y,r) - рисует окружность с центром в точке (x,y) и радиусом

Эллипс

Ellipse(x1,y1,x2,y2) - рисует эллипс, заданный своим описанным прямоугольником с координатами противоположных

Дуга окружности

Arc(x,y,r,a1,a2) - Рисует дугу окружности с центром в точке (x,y)

Сектор

Pie(x,y,r,a1,a2) - рисует сектор окружности, ограниченный дугой (параметры процедуры имеют тот