Иван Дышленко
дата публикации 12-02-2001 00:00

---

Версия для печати

• Введение в проблему.
• Знакомство с утилитой MEGA (Meshes Export for Games and Animation).
• Формат файла GMS.
• Загрузка файла формата GMS в Delphi.
• Создание анимированного персонажа и вывод на экран.
• Что такое нормали?
• Загрузка фасетных нормалей из файла GMS
• Загрузка сглаживающих нормалей из файла GMS
• Соглашения
• Рекомендуемая литература

New object // Указывает на начало нового объекта, следующая строка указывает тип объекта

TriMesh() // Объект - сетка

     numverts numfaces // Указывает, что следующая строка содержит количество вершин 
       и граней для данного объекта

Mesh vertices:

     // Здесь располагается блок вершин объекта в виде координат X Y Z

end vertices

Mesh faces:

     // Здесь располагается блок граней объекта в виде индексов 1 2 3, 
    где каждый индекс - индекс в массиве вершин, указывает на вершину грани

end faces

Faset normals:

     // Здесь располагается блок фасетных нормалей в виде координат X Y Z. 
    Их количество равно количеству граней

end faset normals

Smooth normals:

     // Здесь располагается блок сглаживающих нормалей в виде координат X Y Z. 
    Их количество равно количеству вершин.

end smooth normals

end mesh // Конец описания объекта Tri Mesh

end of file // Конец файла

Примерно так выглядит файл, когда мы экспортируем сетчатый объект. Если объект не сетчатый, то файл будет выглядеть следующим образом:

New object // Указывает на начало нового объекта, следующая строка указывает тип объекта

<Тип объекта>, например: Box

     // Здесь идут параметры, зависящие от типа объекта (Поверхности Безье и NURBS - 
      поверхности не поддерживаются)

end <Тип объекта> // Конец описания объекта

end of file // Конец файла

Type // Объявление типов данных

     PGLVertex = ^TGLVertex; // Указатель на вершину

     TGLVertex = record

     x,y,z : GLFloat; // Вершина, как три значения с плавающей точкой

     end;

      

     PGLVector = ^TGLVector; // Указатель на вектор

     TGLVector = array[0..2] of GLFloat; // Вектор, как массив из трех элементов с плавающей точкой

      

     PGLFace = ^TGLFace; // Указатель на грань

     TGLFace = array[0..2] of GLInt; // Грань, как массив из трех целочисленных значений

      

     PGLVertexArray = ^TGLVertexArray; // Указатель на массив вершин

     TGLVertexArray = array[Word] of TGLVertex; // Массив вершин

      

     PGLFacesArray = ^TGLFacesArray; // Указатель на массив граней

     TGLFacesArray = array[word] of TGLFace; // Массив граней

Теперь рассмотрим описание объекта сетка:

TGLMesh = class

     Vertices : PGLVertexArray; // Массив вершин объекта - сетка

     Faces : PGLFacesArray; // Массив граней

     FasetNormals : PGLVertexArray; // Массив фасетных нормалей

     VertexCount : Integer; // Количество вершин

     FacesCount : Integer; // Количество граней

     fExtent : GLFloat; // Коэффициент масштабирования

     Extent : GLBoolean; // Флаг масштабирования

     public

     procedure LoadFromFile( const FileName : String ); // Загрузка

     procedure CalcNormals; // Расчет нормалей

     procedure Draw; // Отрисовка

     destructor Destroy; override; // Уничтожение с очисткой массивов

     end;

procedure TGLMesh.LoadFromFile; // Загрузка файла
var
     f : TextFile;
     S : String;
     i : Integer;
     Vertex : TGLVertex;
     Face : TGLFace;
     MaxVertex : GLFloat;
begin

     AssignFile(f,FileName);
     Reset(f);
     // Пропускаем строки, пока не попадется 'numverts numfaces'
	repeat
		ReadLn(f, S);
	until (S = 'numverts numfaces') or eof(f);
     // Читаем количество вершин и граней

     Readln(f,VertexCount,FacesCount);
     // Выделяем память для хранения сетки

     GetMem(Vertices,VertexCount*SizeOf(TGLVertex));
     GetMem(Faces,FacesCount*SizeOf(TGLFace));
     GetMem(FasetNormals,FacesCount*SizeOf(TGLVector));
    
     ReadLn(f, S); // Пропускаем строку "Mesh vertices"

     // Считываем вершины
     for i := 0 to VertexCount - 1 do begin

        Readln(f,Vertex.x,Vertex.y,Vertex.z);
        Vertices[i] := Vertex;
     end;

     ReadLn(f, S); // Пропускаем строку "end vertices"
     ReadLn(f, S); // Пропускаем строку "Mesh faces"

     // Считываем грани
     for i := 0 to FacesCount - 1 do begin
       Readln(f,Face[0],Face[1],Face[2]);
       Face[0] := Face[0] - 1;
       Face[1] := Face[1] - 1;
       Face[2] := Face[2] - 1;
       Faces[i] := Face;
     end;
      
     CloseFile(f);

     // Рассчитываем масштаб

     MaxVertex := 0;

     for i := 0 to VertexCount - 1 do begin
       MaxVertex := Max(MaxVertex,Vertices[i].x);
       MaxVertex := Max(MaxVertex,Vertices[i].y);
       MaxVertex := Max(MaxVertex,Vertices[i].z);
     end;

     fExtent := 1/MaxVertex;
      
     CalcNormals;

end;

procedure TGLMesh.Draw;
var
     i : Integer;
     Face : TGLFace;

begin

     if Extent then glScalef(fExtent,fExtent,fExtent);

     for i := 0 to FacesCount - 1 do begin

       glBegin(GL_TRIANGLES);
       Face := Faces[i];
       glNormal3fv(@FasetNormals[i]);
       glVertex3fv(@Vertices[Face[0]]);
       glVertex3fv(@Vertices[Face[1]]);
       glVertex3fv(@Vertices[Face[2]]);

       glEnd;

     end;

end;

Здесь все понятно. Сначала, если установлен флаг масштабирования, устанавливается масштаб одинаковый по всем осям, затем в цикле рисуются треугольники. Перед началом рисования треугольника объявляется нормаль к нему. В качестве параметров передаются не конкретные значения, а указатели на них.

destructor TGLMesh.Destroy;
begin

     FreeMem(Vertices,VertexCount*SizeOf(TGLVertex));
     FreeMem(Faces,FacesCount*SizeOf(TGLFace));
     FreeMem(FasetNormals,FacesCount*SizeOf(TGLVector));

end;

Здесь тоже все понятно, просто освобождается память, занятая объектом. Вызовы процедур загрузки и отрисовки объекта находятся в модуле frmMain и не представляют ничего интересного.

• Создание анимированного персонажа и вывод на экран.
• Что такое нормали?
• Загрузка фасетных нормалей из файла GMS
• Загрузка сглаживающих нормалей из файла GMS
• Соглашения
• Рекомендуемая литература

В начало

• Полный архив (файлы проектов + GMS файлы + утилита MEGA) (574 K) обновление от 4/13/2004 10:52:00 AM
• По частям: утилита MEGA.ms + GMS файлы (100 K) обновление от 4/13/2004 10:52:00 AM
• По частям: ManRun.gms (407 K) обновление от 4/13/2004 10:52:00 AM
• По частям: Delphi проекты (56 K) обновление от 4/13/2004 10:52:00 AM