Понедельник, 29.04.2024, 08:25
Приветствую Вас Гость | RSS
Главное меню
Наш опрос
Оцените мой сайт
Всего ответов: 47
Форма входа
Поиск
Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0

Графика в Паскале

Окружность, эллипс, дуга, сектор

!!! Для каждой процедуры и функции будет предложена теория и пример

в примерах перед каждой фигурой заданы цвет контура и цвет заливки:

setcolor(13); setfillstyle(1,10);

 

Процедура Circle (x, y: integer; r: integer) вычерчивает окружность радиуса r с центром в точке с координатами (x, y). ОКРУЖНОСТЬ НЕ ЗАКРАШИВАЕТСЯ

 circle(100,100,50);

Процедура Arc (x, y, ugol_ begin, ugol_ end, r: integer) вычерчивает дугу окружности радиуса r с центром в точке с координатами (x, y). Параметры ugol_ begin и ugol_ end задают угловые координаты начала и конца дуги. Отсчет углов ведется против часовой стрелки. Значения угловых координат задается в градусах. ДУГА НЕ ЗАКРАШИВАЕТСЯ

arc(100,100,45,135,50);

Процедура Ellipse (x, y: integer; ugol_ begin, ugol_ end, rx, ry: integer) вычерчивает эллипс или дугу эллипса с центром в точке с координатами (x, y). Параметры ugol_ begin и ugol_ end задают угловые координаты начала и конца дуги. Параметры rx и ry определяют горизонтальный и вертикальный радиусы эллипса. ЭЛЛИПС НЕ ЗАКРАШИВАЕТСЯ

ellipse(150,100,0,270,100,50);

Процедура FillEllipse (x, y, rx, ry: integer) вычерчивает изображение полного закрашенного эллипса с центром в точке с координатами (x, y). Параметры rx и ry определяют горизонтальный и вертикальный радиусы эллипса. Эллипс может быть закрашен в соответствии со стилем, заданным процедурой SetFillStyle (о ней чуть позже). Этот ЭЛЛИПС ЗАКРАШИВАЕТСЯ

FillEllipse(150,100,100,50);

Процедура PieSlice (x, y: integer; ugol_ begin, ugol_ end, r: integer) вычерчивает сектор окружности радиуса r с центром в точке с координатами ( x, y). Параметры ugol_ begin и ugol_ end задают угловые координаты начала и конца сектора. СЕКТОР ЗАКРАШИВАЕТСЯ

PieSlice(150,100,45,270,50);

Сектор может быть закрашен в соответствии со стилем, заданным процедурой SetFillStyle (о ней чуть позже).

Процедура Sector (x, y: integer; ugol_ begin, ugol_ end, rx, ry: integer) вычерчивает сектор эллипса с центром в точке с координатами (x, y) и горизонтальным радиусом rx, вертикальным - ry. Параметры ugol_ begin и ugol_ end задают угловые координаты начала и конца сектора. СЕКТОР ЗАКРАШИВАЕТСЯ

sector(150,100,0,270,100,50);

Сектор может быть закрашен в соответствии со стилем, заданным процедурой SetFillStyle (о ней чуть позже).