Построение кривых Серпинского и Гильберта Delphi

[KEnt]

Помогите написать программу в делфи

Построение кривых Серпинского и Гильберта
любого порядка

Необходимо составить программу для построения кривых Серпинского и Гильберта любого порядка с возможностью их наложения друг на друга.
Кривые Серпинского 1-го и 2-го порядка и их суперпозиция показаны на рисунке ниже.



Кривая Серпинского
1- го порядка Кривая Серпинского
2 - го порядка Суперпозиция двух кривых

Главная особенность кривой Серпинского в том, что она замкнута и в ней нет пересечений. Это означает, что основная рекурсивная схема должна давать разомкнутую кривую линию, четыре части которой соединяются прямыми отрезками отдельно (на вышеприведенном рисунке слева они выделены жирными линиями).
Узор на приведенном ниже рисунке состоит из суперпозиции четырех кривых Серпинского.


Кривые Гильберта первого, второго и третьего порядка показаны ниже.


Кривая Гильберта второго порядка получается путем соединения прямыми линиями четырех кривых первого порядка, две из которых повернуты на 90°: одна по часовой стрелке, другая – против. Кривая 3-го порядка строится из четырех кривых второго порядка и т.д.

[puporev]

Вот пример кривой Гильберта с какого-то диска по Delphi 7. Программа работает. Поставишь только порядок, какой тебе нужно.

[KEnt]

puporev Спасибо тебе БОЛЬШОЕ .

[Tasya1234]

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