Графические возможности среды программирования

Подключение графического модуля GraphABC

uses GraphABC;
begin
...
end.

Процедура задающая размер  графического окна

SetWindowSize(w, h);

Координатная плоскость модуля GraphABC

Основные графические примитивы

• Line(x1,y1,x2,y2) — отрезок, соединяющий точки с координатами (x1, y1) и (x2, y2).

• MoveTo(x,y) — устанавливает текущую позицию рисования в точку (x, y);

• LineTo(x,y) — отрезок от текущей позиции до точки (x, y);

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

• Circle(x1,y1,r) — круг с центром в точке (x1, y1) и радиусом r;

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

FloodFill(x,y,c); — заливает ограниченную область одного цвета цветом c, начиная с точки внутри области (x,y)

Работа с текстом:

• TextOut(x,y,z); — выводит строку или число z в прямоугольник с координатами левого верхнего угла (x,y);

• SetFontName('Comic Sans MS'); — выбор шрифта;

• SetFontColor(clRed); — цвет шрифта;

• SetFontSize(25); — размер шрифта;

• SetFontStyle(fsBold); — стиль текста.

uses GraphABC;

begin

//Дом

SetPenColor(RGB(255,0,0));

SetBrushColor(clBlue);

Rectangle(100,200,400,450);

//Окно

SetBrushColor(clYellow);

Rectangle(200,250,300,350);

SetPenColor(clRed);

SetPenStyle(psDot);

SetPenWidth(2);

Line(250,250,250,350);

Line(200,300,300,300);

//Крыша

SetPenStyle(psSolid);

SetPenWidth(1);

Line(100, 200, 250, 0);

Line(250, 0, 400, 200);

SetBrushStyle(bsHatch);

SetBrushColor(clLightGreen);

SetBrushHatch(bhCross);

Circle(250, 125, 30);

FloodFill(250,70, clPlum);

end.

uses GraphABC;

begin

//Цвет фона для текста

SetBrushColor(clYellow);

SetFontName('Comic Sans MS');

//Цвет букв

SetFontColor(clBlue);

//Размер шрифта

SetFontSize(25);

//Полужирный шрифт

SetFontStyle(fsBold);

TextOut(20,30,'Здравствуй,');

SetBrushColor(clPink);

SetFontName('Monotype Corsiva');

SetFontColor(clSalmon);

SetFontSize(50);

SetFontStyle(fsUnderline);

TextOut(120,130,'МИР!');

//Прозрачный фон

SetBrushStyle(bsClear);

SetFontName('Tahoma');

SetFontColor(clViolet);

SetFontSize(20);

SetFontStyle(fsItalic);

TextOut(300,130,'PascalABC');

end.