Вращение геометрической фигуры построенной линиями в VB.

[TiG]

Я построил из линий многогранник напоминающий круг. Мне требуется его вращать в зависимости от изменения 1 переменной с шагом 0.1 от 0 до 360, в общем это что то типа гирокомпаса, где вращается азиутный круг. Посторение велось от первой линии:

y= длина линии
x=угол (приращение)

Line2.X1 = Line1.X2
Line2.Y1 = Line1.Y2
Line2.X2 = Line1.X2 + y * Cos(3.14159265358979 / 180 * x)
Line2.Y2 = Line1.Y2 + y * Sin(3.14159265358979 / 180 * x)

Line3.X1 = Line2.X2
Line3.Y1 = Line2.Y2
Line3.X2 = Line2.X2 + y * Cos(3.14159265358979 / 180 * x * 2)
Line3.Y2 = Line2.Y2 + y * Sin(3.14159265358979 / 180 * x * 2)

....

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

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

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

[GSerg]

http://bbs.vbstreets.ru/viewtopic.php?p=34460#34460

[TiG]

Угу уже прогресс, сеньк)) А как в этом примере выставить координаты фигуры? И софсем интересный вопрос, как проградуировать углвы например Label с метками и чтоб они тож вращались (не обязательно преварячивались).

[GSerg]

Обрати внимание на место, где заполняется массив COORD. Это координаты вершин. Используй их как координаты левого верхнего угла меток, к примеру.
А насчёт задания координат фигуры - пример был для другого Но ведь получив массив координат, ты сможешь прибавить или отнять от каждой одно и то же число, чтобы сдвинуть фигуру?

[TiG]

Сеньк)) пример хороший, но настроить его под себя тяжко мне)