Графические возможности Pascal

PAINT

PAINT

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

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

Program

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

640 точек

480 точек

(0,0)

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

SetWindowWidth(w) - устанавливает ширину
графического окна
SetWindowHeight(h) - устанавливает высоту
графического

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

ClearWindow - очистка графического окна белым цветом

ClearWindow(color) - очистка

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

точка

линия

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

окружность

эллипс

сектор

дуга

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

Линии

SetPenColor(color) - устанавливает цвет пера

SetPenWidth(n) - устанавливает ширину пера, равную n

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

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

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

FloodFill(x,y,color) - заливает область

Program prim;
uses crt, graphABC;
begin
SetWindowWidth(800);
SetWindowHeight(600);
clearWindow(clSkyBlue);
Rectangle(0,400,1000,600);
FloodFill(10,450,clgreen);
end.

Нарисуем землю

Program prim;
uses crt, graphABC;
begin
SetWindowWidth(800);
SetWindowHeight(600);
clearWindow(clSkyBlue);
Rectangle(0,400,1000,600);
FloodFill(10,450,clgreen);
end.

Нарисуем землю

Нарисуем домик

{домик}
SetPenWidth(3);
Rectangle(50,300,300,500);
FloodFill(60,450,clLtGray);

{крыша}
Line(40,300,175,200);
LineTo(310,300);
LineTo(40,300);
FloodFill(175,250,clBrown);

{окно}
Rectangle(70,350,170,450);

Окружность

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

Эллипс

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

Нарисуем аллею деревьев

x:=400;
Rectangle(x,300,x+10,500);
FloodFill(x+3,350,clBrown);
Ellipse(x-30,150,x+40,350);
FloodFill(x,200,clgreen);

Нарисуем аллею деревьев

x:=400;
for j:=1 to 4 do
begin
Rectangle(x,300,x+10,500);

Нарисуем солнышко

{солнышко}
SetPenColor(clYellow);
Line(30,100,170,100);
Line(100,30,100,170);
Line(50,50,150,150);
Line(50,150,150,50);
Circle(100,100,40);
FloodFill(100,100,clYellow);

Спасибо за внимание!