Конспект по теме: Графика в языке программирования Pascal

Графика в Pascal

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

Общий вид программы: program graph;

uses GraphABC;

begin

{тело программы}

end.

Графический экран PascalABC (по умолчанию) содержит 640 точек по горизонтали и 480 точек по вертикали. Начало координат - верхний левый угол экрана.

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

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

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

ClearWindow(color) - закрашивает графическое окно заданным цветом;

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

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

1. Точка

2. Линия

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

4. Окружность

5. Эллипс

6. Сектор

7. Дуга

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

SetPenColor(color) - устанавливает цвет пера, задаваемый параметром color;

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

SetPenStyle(<номер от 1 до 6>); - устанавливает стиль пера, задаваемый номером;

Line(x₁, y₁, x₂, y₂) - рисует отрезок с началом в точке (x_1, y₁) и в точке (x_2, y₂);

MoveTo(x₁, y₁); LineTo(x₂, y₂); LineTo(x₃, y₃); LineTo(x₄, y₄); - рисуется ломаная с началом (x_1, y₁), концом (x_4, y₄) и точками перегиба (x_2, y₂), (x_3, y₃);

Rectangle(x₁, y₁, x₂, y₂) - рисует прямоугольник, заданный координатами противоположных вершин (x_1, y₁) и (x_2, y₂);

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

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

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

Ellipse(x₁, y₁, x₂, y₂) - рисует эллипс, заданный своим описанным прямоугольником с координатами противоположных вершин.

Arc(x,y,r,a₁,a₂) - Рисует дугу окружности с центром в точке (x,y) и радиусом r, заключенной между двумя лучами, образующими углы a₁ и a₂ с осью OX (a₁ и a₂ - вещественные, задаются в градусах и отсчитываются против часовой стрелки);

Pie(x,y,r, a₁,a₂) - рисует сектор окружности, ограниченный дугой (параметры процедуры имеют тот же смысл, что и в процедуре Arc);

TextOut(x,y,'строка'); - выводит строку текста в позицию (x,y) (точка (x,y) задает верхний левый угол прямоугольника, который будет содержать текст);

SetFontName('name') - устанавливает наименование шрифта.

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

SetFontSize(sz) - устанавливает размер шрифта в пунктах.

SetFontStyle(fs) - устанавливает стиль шрифта.

По умолчанию установлен шрифт, имеющий наименование MS Sans Serif. Наиболее распространенные шрифты - это Times, Arial и Courier New. Наименование шрифта можно набирать без учета регистра.

Стиль шрифтов задается именными константами:

1. fsNormal - обычный;

2. fsBold - жирный;

3. fsItalic - наклонный;

4. fsBoldItalic - жирный наклонный;

5. fsUnderline - подчеркнутый;

6. fsBoldUnderline - жирный подчеркнутый;

7. fsItalicUnderline - наклонный подчеркнутый;

8. fsBoldItalicUnderline - жирный наклонный подчеркнутый

SavePicture(n, 'fname') - сохраняет рисунок с описателем n в файл с именем fname. Рисунки можно сохранять в формате .bmp, .jpg или .gif.