Глава Изображение и управление - часть 7

DesigningLine(C, H, -A, -D, -H, -B)

Icosahedron_last = NumLines

End Sub

Public Structure Line

'Массивы для соединения точек (points):

<VBFixedArray(4)> Dim fr_points() As Single

<VBFixedArray(4)> Dim to_points() As Single

'Массивы для соединения преобразованных точек

'(transformed points):

<VBFixedArray(4)> Dim fr_tr_points() As Single

<VBFixedArray(4)> Dim to_tr_points() As Single

Public Sub Initialize()

ReDim fr_points(4) : ReDim to_points(4)

ReDim fr_tr_points(4) : ReDim to_tr_points(4)

End Sub

End Structure

'Объявляем массив Lines структуры Line (создавать массив

'из изменяемого количества элементов и инициализировать его 'при помощи оператора ReDim мы будем ниже):

Public Lines() As Line

'Объявляем и инициализируем переменную для индекса массива:

Public NumLines As Integer

'Проектируем линию между точками (x1,y1,z1),(x2,y2,z2):

Public Sub DesigningLine(ByVal x1 As Single, _

ByVal y1 As Single, ByVal z1 As Single, ByVal x2 As Single, _

ByVal y2 As Single, ByVal z2 As Single)

NumLines = NumLines + 1

'Создаем массив Lines структуры Line из изменяемого

'количества элементов NumLines, инициализируем его

'оператором ReDim и при помощи ключевого слова Preserve

'сохраняем предыдущие данные массива:

ReDim Preserve Lines(NumLines)

'Инициализируем и рассчитываем массивы:

Lines(NumLines).Initialize()

Lines(NumLines).fr_points(1) = x1

Lines(NumLines).fr_points(2) = y1

Lines(NumLines).fr_points(3) = z1

Lines(NumLines).fr_points(4) = 1

Lines(NumLines).to_points(1) = x2

Lines(NumLines).to_points(2) = y2

Lines(NumLines).to_points(3) = z2

Lines(NumLines).to_points(4) = 1

End Sub

'Применяем матрицу переноса (translation matrix)

'ко всем линиям, используя MatrixApplyFull.