Графика языка паскаль

Режимы работы монитора:

Текстовый (crt) –
на экране 25 строк по 80 символов

Графический экран

Home

Uses Graph;
Var
gd,gm:integer; {переменные, определяющие графический драйвер и монитор}
Begin

ГРАФИЧЕСКИЕ ПРИМИТИВЫ

Процедура прорисовки линии

Line (x1, y1, x2, y2)
Пример Line (30, 45, 100, 142)

Стили линии

SetLineStyle (Style, 0, Wid)
Style – устанавливает тип линии
Wid – устанавливает

Процедура прорисовки прямоугольника

Rectangle (x1, y1, x2, y2)
Пример rectangle (30, 45, 100, 142)

Home

Процедура прорисовки окружности

Circle (x, y, R)
x, y – координаты центра окружности R –

Процедура прорисовки эллипса

Ellipse (x, y, α, β, Rx, Ry)
x, y –

Sector(x,y,α, β,Rx, Ry); Выводит закрашенный эллиптический сектор с центром в точке (x,y)

Цвета в операторах задаются с помощью своих кодов:
0 – черный;
1

Установка цвета рисунка

Цвет графических примитивов задается с помощью процедуры
SetColor (цвет)
цвет – код

ЗАЛИВКА ЗАМКНУТЫХ ОБЛАСТЕЙ

Процедура определения типа заливки областей

SetFillStyle (тип штриховки, цвет)
Пример SetFillStyle (3, 4)

Заливка произвольной области

FloodFill (x, y, Border)
x, y - координаты точки внутри

Решение задач