Задача "машинные узоры" Опции

[arsen86]

Интерессная задача о машинных узорах, нашел в книге, а с реализацией на Паскале возникли проблемы, если у кого-то есть интерес к этой задаче поделитесь своими соображениями.
Собственно условие:
"Создать систему, которая реализует разнообразные машинные узоры, которые используются в качестве заставок на базе элементов построенных таким образом:
1) опрос типа многоугольника у пользователя : треугольник, квадрат, ромб, пятиугольник и т.д.
2) опрос размера стороны: p
3) опрос коэфициента 0<A<1, с помощью которого стороны фигуры будут разделяться точкой: p*A
4) Вычислить точку каждой из сторон многоугольника и соединить полученные точки отрезками
5) Повторить рекурсивно п.4 столько раз, сколько разрешает экран."

Книга в которой я это "надыбал" Ю.В. Котов "Как рисует машина". Наука, 1988 г.

Как видно задача комплексная, буду рад увидеть любые предложения и подсказки по ее решению и реализации.
Заранее спасибо.

[Digitalator]

Я тоже все так понял тока

Повторить рекурсивно п.4 столько раз, сколько разрешает экран."

Т.е. надо много выводить фигурок одна в одной, пока не будет вырождение в точку, а такое обязательно когда-нибудь наступит, т.к. площадь каждой следующей фигуры меньше предыдущей.

Только надо писать без рекурсии (какая противная вещь) т.к. при A скажем 0.9999 будет глюк , а так ничего сложного - координаты по нач. точек легко вычислются, при некотором знании тригонометрии. Далее можно легко находить координаты точек каждой следующей фигурки, для этого нам потребуется знание уравнения прямой... считать разности координат, пока они не станут меньше 0.5 (вырождение) тоже не составляет проблем.....

Может найдется герой, который напишет для этого всего програмку

Программа написана и добавлена в FAQ: Занимательная графика