1:
2:
3:

XWing := Tall3dsMesh.Create(nil);
XWing.TexturePath := 'Modelle\xwing3ds\';
XWing.LoadFromFile('Modelle\xwing3DS\X-Wing.3ds');					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:

procedure TAll3DSMesh.CalculateRenderOrder;
var
  m: integer;
  found: integer;
  matloop: integer;
begin
  found := 0;
  m := 0;
  while m < FNumMeshes - 1 do
  begin
    if m < FNumMeshes - found then
    begin
      for matloop := 0 to High(FMesh[FrenderOrder[m]].FmatID) do
      begin
        if FMaterial[FMesh[FrenderOrder[m]].Fmatid[matloop]].Ftransparency < 1.0 then
        begin
          found := found + 1;
          FRenderOrder[m] := FNumMeshes - Found;
          FRenderOrder[FNumMeshes - Found] := m;
          m := m - 1; //a new mesh is placed at renderorder so it has to be checked again...
        end;
      end;
    end;
    m := m + 1;
  end;
end;