Графика в Pascal abc

1.

Графика в
Pascal abc

2.

Виды компьютерной графики
Компьютерная графика
бывает двух видов:
векторная и растровая.

3.

Векторная графика
Векторные
изображения
формируются из объектов (точка,
линия, окружность и т. д.), которые
хранятся в памяти компьютера в
виде графических примитивов и
описывающих их математических
формул.

4.

Растровая графика
Растровое
изображение
хранится с помощью точек
различного цвета (пикселей),
которые образуют строки и
столбцы. Любой пиксель имеет
фиксированное положение и цвет.

5.

Графика в Pascal
Каждый пиксель на экране имеет
координаты (X,Y), которые образуются
номерами столбцов (Х) и строк (Y).
Нумерация начинается в верхнем левом
углу. Именно в этом углу расположен
пиксель
с
координатами
(0,0).
Координата
Х
растет
вправо,
координата Y - вниз.

6.

Графический режим
Графический
режим
для
вывода
графических
изображений
на
экран
монитора в языке Pascal
существует
стандартная
библиотека
Graph,
подключение
которой
осуществляется стандартным
способом uses Graph.
Program 1;
uses graphabc;
//подключение модуля
GraphAbc

7.

Графический режим
В модуле GraphAbc с
помощью
команды
setwindowsize(X,Y)
можно
задавать
размеры графического
окна.
Program t1;
uses graphabc; // подключение
модуля GraphAbc
Begin
setwindowsize(640,480);
//устанавливает размеры
графического окна
End.

8.

Стандартные цвета
clBlack
clWhite
clRed
черный
белый
красный
clYellow
clNavy
clMaroon
желтый
темно-синий
темно-красный
clGreen
clBrown
clBlue
clSkyBlue
clFuchsia
зеленый
коричневый
синий
голубой
сиреневый
clPurple
clCream
clAqua
clOlive
clTeal
фиолетовый
кремовый
бирюзовый
оливковый
сине-зеленый
clGray
clLime
темно-серый
ярко-зеленый
clMedGray
clSilver
серый
серебряный

9.

Графические примитивы
procedure SetPixel(x,y,color: integer);
Закрашивает один пиксел с координатами
(x,y) цветом color.
procedure MoveTo(x,y: integer);
Передвигает невидимое перо к точке с
координатами (x,y); эта функция работает в
паре с функцией LineTo(x,y).

10.

Графические примитивы
procedure LineTo(x,y: integer);
Рисует отрезок от текущего положения пера
до точки (x,y); координаты пера при этом
также становятся равными (x,y).
procedure
integer);
Line(x1,y1,x2,y2:
Рисует отрезок с началом в точке (x1,y1) и
концом в точке (x2,y2).
x,y

11.

Графические примитивы
procedure Circle(x,y,r: integer);
Рисует окружность с центром в точке (x,y) и
радиусом r.
procedure
integer);
Ellipse(x1,y1,x2,y2:
Рисует эллипс, заданный своим описанным
прямоугольником
с
координатами
противоположных вершин (x1,y1) и (x2,y2).
r
x1,y1

12.

Графические примитивы
procedure Rectangle(x1,y1,x2,y2: integer);
Рисует прямоугольник, заданный координатами противоположных
вершин (x1,y1) и (x2,y2).
x1,y1
x2,y2

13.

Графические примитивы
procedure
TextOut(x,y:
integer; s: string);
Выводит строку s в позицию (x,y)
(точка (x,y) задает верхний левый
угол прямоугольника, который будет
содержать текст из строки s).

14.

Графические примитивы
procedure
integer);
FloodFill(x,y,color:
Заливает область одного цвета цветом color,
начиная с точки (x,y).
procedure
integer);
FillRect(x1,y1,x2,y2:
Заливает
прямоугольник,
заданный
координатами противоположных вершин (x1,y1)
и (x2,y2), цветом текущей кисти.
x1,y1
x2,y2

15.

Процедуры для работы с пером
SetBrushColor (color).
SetBrushStyle(Style) - устанавливает стиль текущей кисти.
Константы стилей кисти: bsSolid – сплошная, bsClear – прозрачная,
bsHatch – штриховая, bsGradient – градиентная.
SetFontSize(size: integer) - устанавливает размер текущего шрифта
в пикселях;
SetFontColor(c: Color) - устанавливает цвет текущего шрифта;
SetFontStyle(fs: integer) - устанавливает стиль текущего шрифта.

16.

Очистка графического окна
СlearWindow(color)
устанавливает цвет графического
окна.
ClearWindow - очищает
графическое окно белым
цветом.

17.

Пример
Программа рисования отрезка,
прямоугольника, треугольника и
окружности.