GLScene三角形计数

Question

有没有办法找到场景中三角形的总数？我在文档和类引用中进行了搜索，但找不到与此相关的任何过程或方法。

Answer 1

据我所知，在OpenGL中没有办法查询场景中的顶点或三角形的总数。

Answer 2

OpenGL不会跟踪您可能绘制的任何特定形状。相反，它跟踪顶点之间的连接。当绘制一个三角形时，OpenGL不一定知道这是一个三角形。因此，您需要实现自己的方法来跟踪正在绘制的形状，并查询自己的形状引用。请记住，一般的绘图(2D或3D)不是基于直接的形状。可能有一些非常抽象的形状，甚至没有一个名字来称呼它们。

Answer 3

那些说你必须自己跟踪添加的对象的人是对的。但那些认为在GLScene中不可能计算三角形的人错了。如果您跟踪TStrings中添加的所有GlFreeForms，您可以使用我为此编写的这个小函数来计算GLScene三角形：

function CountSceneTriangles(GLScene: TGlScene; SceneObjectList: TStrings): Integer;
var
  I, ITriCount: Integer;
  TempSceneObject: TGLBaseSceneObject;
begin
  ITriCount := 0;

  if (SceneObjectList.Count > 0) then
  begin
    for I := 0 to SceneObjectList.Count-1 do
    begin
      TempSceneObject:= Form1.GLScene1.FindSceneObject(SceneObjectList[I]));
      if (TempSceneObject <> nil) then
      begin
        ITriCount := ITriCount + (TGLFreeForm(TempSceneObject).MeshObjects.TriangleCount);
      end;
    end;
  end;

  result := ITriCount;
end;

只需像这样传递您的TGLScene组件名称和所有添加的GLFreeForm对象的跟踪列表即可：

procedure TForm1.FormCreate(Sender: TObject);
var
  SObjList: TStrings;
begin
  SObjList := TStrings.Create;
  SObjList.Add('GlFreeForm1'); //examples of tracked TGlFreeForms
  SObjList.Add('GlFreeForm2');
  SObjList.Add('GlFreeForm3');
  Form1.Caption := 'Triangles Count: ' + IntToStr(SObjList(Form1.GlScene1, SObjList));
  SObjList.Free;
end;

如果您需要计算TGlFreeForm以外的其他对象的三角形数，则可以基于相同的原则扩展此函数。祝好运。