Побудов кривої Безьє в середовищі програмування delphi

У представленій delphi-програмі, за допомогою досить простого інтерфейсу, користувачеві надається можливість задавати, переміщати та видаляти (з використанням миші) контрольні точки, за якими здійснюється прорисовка кривої Безьє (для цього необхідно щоб користувач задав хоча б три точки).

Головне вікно проекту "Побудова кривої Безьє"

На рисунку що міститься вище, показаний зовнішній вигляд запущеної програми. Як видно з рисунка, у верхній частині вікна містяться елементи управління, за допомогою яких, власне, і здійснюється побудова кривої. Розглянемо призначення кожного з них більш детально.

Читати повністю

Побудова кривої Гільберта в середовищі програмування delphi

У даній статті розглядається процес створення об'єктів фрактальної графіки засобами Delphi, на прикладі побудови кривої Гільберта, від першого по сьомий порядок включно. Одним з основних плюсів при використанні розглядуваного delphi-проекту є простота інтерфейсу та можливість наочно спостерігати зображення фрактальної кривої.

kryva_gilberta_delphi1

Головне вікно проекту "Побудова кривої Гільберта"

Побудова кривої здійснюється за допомогою кнопки «Побудувати криву Гільберта» (компонент типу TButton) та поля вибору кількості ітерацій необхідних для її побудови (компонент типу TSpinEdit). Відмітимо, що на рисунку, що  міститься вище, зображено діалогове вікно програми, в якому виводиться крива Гільберта п'ятого порядку.

Читати повністю

Побудова кривої Коха в середовищі програмування delphi

В даному параграфі міститься delphi-програма з вихідним кодом, яка демонструє приклад побудови однієї з найвідоміших фрактальних кривих, а саме криву Коха. Для того, щоб побудувати дану криву, достатньо скористатись кнопкою «Побудувати криву Коха» (компонент типу TButton), попередньо, в компоненті типу TSpinEdit, задавши кількість ітерацій необхідних для її побудови (порядок кривої Коха).

Головне вікно проекту "Побудова кривої Коха"

Зауваження: delphi-проект реалізує процес побудови кривої Коха від нульового до десятого порядку включно. Проте, даний процес можна продовжити і для більш високих ітерацій. Для цього достатньо задати необхідне значення для властивості MaxValue компонента TSpinEdit.

Читати повністю