Презентация на тему Модуль GraphABC в Pascal

подключение модуля GraphABC.
Первой инструкцией программы должна быть инструкция

точек по горизонтали и 400 точек по вертикали.
640 точек
400

Начало отсчета – левый верхний угол экрана

- Устанавливает высоту графического окна;

очищает графическое окно указанным цветом.
Очистка графического окна
program clear;
uses GraphABC;

Цвет зеленых денег

цветом color
program tochka;
uses GraphABC;
begin
SetPixel(300,200,clred);
end.

до точки (x,y); координаты пера при этом также становятся

Program liniay;
uses GraphABC;
begin LineTo(300,200);
end.

(x1,y1) и концом в точке (x2,y2).
Program liniay;
uses

цветов Паскаля

color.
Program liniay;
uses GraphABC;
begin
setpencolor(clred);
line(30,30,400,350);
end.

пера, задаваемый номером.
program prim;
uses GraphABC;
begin
Setpencolor(clred);
SetPenStyle(1); {1

n пикселям.
Program liniay;
uses GraphABC;
begin
setpenwidth(20);
setpencolor(clred);

floodfill(300,200,clgreen);
end.
Треугольник
Рисуется процедурами
Line(x1,y1,x2,y2); LineTo(x,y);

(x1,y1) и (x2,y2).
Program pryamougolnik;
uses GraphABC;
begin
Rectangle(50,50,200,200);
end.

color, начиная с точки (x,y).
Program pryamougolnik;
uses GraphABC;
begin
Rectangle(50,50,200,200);

на замкнутый контур, описание которого следует за процедурой установки

Program zalivka_kist;
uses GraphABC;
Begin
SetBrushColor(clGreen);
Rectangle(50,50,300,300); end.

- устанавливает стиль кисти, задаваемый номером или символической константой.

Program p12_zalivka;
uses GraphABC;
Begin
SetBrushColor(clAqua);
SetBrushStyle(1);
Rectangle(10,10,100,100);
SetBrushColor(clRed);
SetBrushStyle(2);
Rectangle(110,10,200,100);
SetBrushColor(clBlue);
SetBrushStyle(3);
Rectangle(210,10,300,100);
SetBrushColor(clGreen);
SetBrushStyle(4);
Rectangle(10,110,100,210);
SetBrushColor(clYellow);
SetBrushStyle(5);
Rectangle(110,110,200,210);
SetBrushColor(clBlack);
SetBrushStyle(6);
Rectangle(210,110,300,210);
end.

По умолчанию задается стиль 0 – сплошная заливка цветом.

кистью образец, хранящийся в файле fname, при этом текущий

uses GraphABC;
begin SetBrushPicture('brush4.bmp');Ellipse(0,0,640,400);
end.

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

(x,y) и радиусом r.
Окружность
Program circle;
uses GraphABC;
begin
Circle(500,200,100);

x1,y1

r

с координатами противоположных вершин (x1,y1) и (x2,y2).
Program oval;
uses GraphABC;
begin

x1,y1

x2,y2

x1,y1

x2,y2

в точке (x,y) и радиусом r, заключенной между двумя

Program duga;
uses GraphABC;
Begin
SetPenWidth(10);
Arc(300,250,150,45,135);
end.

x,y

r

процедуры имеют тот же смысл, что и в процедуре

Сектор

Program sector;
uses GraphABC;
begin
Pie(300,200,100,0,90);
FloodFill(300+10,200-10,clAqua);
end.

текста в позицию (x,y) (точка (x,y) задает верхний левый

Program text;
uses GraphABC;
begin
TextOut(100,30,'Квадрат');
Rectangle(50,50,200,200);
FloodFill(55,55,clBlue);
end.

шрифта.
SetFontColor(color) - устанавливает цвет шрифта.
SetFontSize(sz) -

Sans Serif.
Наиболее распространенные шрифты – это Times, Arial

жирный;
fsItalic – наклонный;
fsBoldItalic – жирный наклонный;
fsUnderline

TextOut(10,10,‘обычный');
SetFontStyle(fsItalic);
SetFontColor(clBlue);
TextOut(10,50,‘наклонный');

Например,

RGB(r,g,b) где r, g и b – целые числа

FloodFill(250+50,50+50,clYellow);
end.
Например,

hidecursor; {скрывает текстовый курсор}
gotoXY(12,3);
write(‘Квадрат');
Rectangle(50,50,200,200);
FloodFill(55,55,clYellow);
end.
Текст можно

fname в оперативную память и возвращает описатель рисунка в

Загрузка готового рисунка

графического окна.
Вывод рисунка в графическое окно
uses GraphABC;
var pic: