3. Описание структуры и алгоритма программы

Основной модуль

Разработанная структура имеет структуру, изображенную на рис.3.1.

Задание 1

Задание 2

Лабораторная 1

Задание 3

Математический модуль

ЦДА

Лабораторная 2

Брезенхема

Окружность брезенхема

Несимметричный ЦДА

Выбор стиля

Рис.Фигуру

Рисунок 3.1. Структура программы

Основной алгоритм программного модуля.

В зависимости от выбранной программы, в главном окне выбираются либо примеры, либо лабораторные работы (см. рис.5.1.).

При выборе необходимой программы запускается форма данного проекта.

4. Описание основных процедур и функций

Алгоритмы

Все элементы рисуем при помощи одной процедуры и при использовании case:

procedure TForm3.Button3Click(Sender: TObject);

1. Нарисовать точку, используя стиль линии

procedure PixelSize(X,Y : Integer);

x, y – координата точки – «пикселя», в зависимости от толщины линии, выводит объект «уголок» с заданной шириной.

procedure PixelStyle(X, Y: Integer);

x, y – координата точки – «пикселя», в зависимости от вида и толщины линии, выводит или не выводит объект «крест» с заданной шириной задействует процедуру PixelSize

2. Обычный ЦДА

Цифровой дифференциальный анализатор

С помощью ЦДА решается дифференциальное уравнение отрезка:

dY/dX= dy / dx

где

dx := xk - xn; приращение координат отрезка по оси Y

dy := yk - yn; приращение координат отрезка по оси X

Установим начальные значения:

xt := xn;

yt := yn;

где

(xn, yn) – координаты начальной точки,

(xk, yk) – координаты конечной точки, полученные в качестве параметров функции:

Case linetype of 1:

Определим количество узлов N, используемых для аппроксимации отрезка.

n := abs(dx) + abs(dy);

Затем за n циклов вычисляются координаты очередных узлов:

xt := xt + dx / n;

yt := yt + dy / n;

Получаемые значения xt, yt преобразуются в целочисленные значения координаты очередного пиксела округлением

PixelStyle(round(xt), round(yt));

На каждом шаге цикла выводим получившийся пиксель, используя стиль пера.

3. Несимметричный ЦДА;

Case linetype of 2

(xn, yn) – координаты начальной точки,

(xk, yk) – координаты конечной точки

Процедура осуществляющая рисование отрезка по алгоритму несимметричного ЦДА.

4. Case linetype of 3:

procedure brezenhem(xn, yn, xk, yk: Integer);

(xn, yn) – координаты начальной точки,

(xk, yk) – координаты конечной точки

Процедура осуществляющая рисование отрезка по алгоритму Брезенхема.

5. Генерация окружности

Case Linetype of 4:

x_n, y_n – центр окружности, r – радиус.

Процедура осуществляющая рисование окружности по алгоритму Брезенхема.

Интерфейс

6. Очистка экрана

Procedure TForm3.Button1Click(Sender: TObject);

7. Изменение толщины линии

procedure TFormLab2.ComboBox1Change(Sender: TObject);

8. Изменение вида линии

procedure TFormLab2.ComboBox2Change(Sender: TObject);

9. Рисуем фигуру

procedure TForm3.Button3Click(Sender: TObject);

10. Установка начальной координаты

procedure TFormLab2.PaintBox1MouseDown(Sender: TObject; Button: TMouseButton);

установка значений - xn, yn

11. Определение второй координаты, выбор процедуры обработки и нарисования отрезка

procedure TFormLab2.PaintBox1MouseUp(Sender: TObject; Button: TMouseButton);

установка значений - xк, yк