Презентация на тему Графика языка Паскаль

фона и цвета рисунка.
Заливка замкнутых областей.
Примеры.

mode: integer;
BEGIN
driver := detect; {задание графического}

точки;
Color – цвет точки.

Пример PutPixel (100, 40, 2)
Рисует

(30, 45, 100, 142)

точки A до точки с координатами x, y



Пример
Line (10,

линии
Wid – устанавливает толщину линии

Пример SetLineStyle (2, 0,

30);

Рисует штриховую (3) горизонтальную линию толщиной 1 пиксель

Home

45, 100, 142)
Home

центра окружности R – радиус окружности
Пример Circle (30, 45,100)

y – координаты центра дуги окружности; BegA – начальный

y – координаты центра эллипса; Rх – горизонтальный радиус

Ry)

x, y – координаты центра дуги эллипса; BegA –

Bar3D (30, 45, 100, 142, 30, topon)
Gl –глубина

Примечание: вместо можно писать

Bar3D (30, 45, 100, 142, 30, topoff)
В этом

Home

Примечание: вместо можно писать

(Cod)
Cod – код цвета в языке Паскаль

В языке Паскаль

процедуры
SetBkColor (Cod)
Cod – код цвета в языке Паскаль
Пример SetBkColor(2)

с координа-тами (0,0), очищает экран, используя цвет фона, установленный

Пример
SetBkColor(2); {установка «чистого» экрана}
ClearDevice; {зеленого цвета}

тип заливки
Color – устанавливает цвет заливки

Пример SetFillStyle (3,

x2, y2, 0, topon)
Bar3D (x1, y1, x2, y2, 0,

координаты центра эллипса;
Rх – горизонтальный радиус эллипса
Ry -

координаты точки внутри заливаемой замкнутой области
Border – цвет границы

Home

темно-зеленого цвета
Program Graf_1;
uses Crt, Graph;
Var driver, mode:

:= detect;
InitGraph (drive, mode, '');
SetFillStyle (1, 4);

:= detect;
InitGraph (drive, mode, '');
SetFillStyle (2, 6); {установка