Работа с графикой.

Mihail

Модератор
#1
После запуска PascalABC, по умолчанию, запускается текстовый режим. Для работы с графикой служит отдельное графическое окно.

Чтобы его открыть, необходимо подключить модуль GraphABC. В этом модуле содержится набор процедур и функций, предназначенных для работы с графическим экраном, а также некоторые встроенные константы и переменные, которые могут быть использованы в программах с графикой.

С их помощью можно создавать разнообразные графические изображения и сопровождать их текстовыми надписями.

Подключение осуществляется в разделе описаний.

Формат подключения модуля GraphABC:

Uses GraphABC;



Графический экран PascalABC (по умолчанию) содержит 640 точек по горизонтали и 400 точек по вертикали. Начало отсчета – левый верхний угол экрана. Ось x направлена вправо, а ось y –вниз. Координаты исчисляются в пикселях.

Все команды библиотеки GraphABC являются подпрограммами и описаны в виде процедур и функций. Для того, что бы команда выполнилась необходимо указать команду и задать значения параметров.

Управление графическим окном

Управление графическим окном



Процедуры рисования графических примитивов



Процедуры, используемые для работы с цветом



Процедуры для работы с текстом



Цвета в PascalABC



Пример графической программы, рисующей изображение дома:

Pascal:
Program Domik;
uses Graphabc;   //подключение модуля   GraphABC
begin
SetWindowWidth(800);     //ширина окна программы
SetWindowHeight(600);    //высота окна программы
SetPenWidth(3);          //толщина пера
SetFontSize(18);         //размер шрифта
SetFontColor(clRed);     //цвет шрифта
SetFontStyle(fsBold);    //жирный стиль шрифта
TextOut(100,100,'Домик');  //текст
Rectangle(200, 300, 600,600); //дом
Circle(400,225, 40);        //круг
SetBrushColor(clAqua);      //цвет заливки окна
FillRect(300, 400,500,500); //процедура заливки окна
rectangle(300,400,500,500); //окно
Line(400,400,400,500);      // окно
Line(300,450,500,450);      //окно
Line(200,300,400,150);      //крыша
Line(400,150,600,300);      //крыша
Line(480,210,480,160);      //труба
Line(480,160,520,160);      //труба
Line(520,160,520,240);      //труба
end.
domik.png
 
Вверх