Set dp branch as trunk

MdlMngr.cpp

@@ -0,0 +1,182 @@
+//---------------------------------------------------------------------------
+
+/*
+    MaSzyna EU07 locomotive simulator
+    Copyright (C) 2001-2004  Marcin Wozniak and others
+
+*/
+
+#include    "system.hpp"
+#include    "classes.hpp"
+#include "Texture.h"
+#pragma hdrstop
+
+#include "MdlMngr.h"
+#include "Globals.h"
+
+#define SeekFiles AnsiString("*.t3d")
+
+TModel3d* __fastcall TMdlContainer::LoadModel(char *newName,bool dynamic)
+{//wczytanie modelu do kontenerka
+ SafeDeleteArray(Name);
+ SafeDelete(Model);
+ Name=new char[strlen(newName)+1];
+ strcpy(Name,newName);
+ Model=new TModel3d();
+ if (!Model->LoadFromFile(Name,dynamic)) //np. "models\\pkp/head1-y.t3d"
+  SafeDelete(Model);
+ return Model;
+};
+
+TMdlContainer *TModelsManager::Models;
+int TModelsManager::Count;
+const MAX_MODELS=1000;
+
+void __fastcall TModelsManager::Init()
+{
+ Models=new TMdlContainer[MAX_MODELS];
+ Count=0;
+}
+/*
+__fastcall TModelsManager::TModelsManager()
+{
+//    Models= NULL;
+    Models= new TMdlContainer[MAX_MODELS];
+    Count= 0;
+};
+
+__fastcall TModelsManager::~TModelsManager()
+{
+    Free();
+};
+  */
+void __fastcall TModelsManager::Free()
+{
+ SafeDeleteArray(Models);
+}
+
+
+TModel3d*  __fastcall TModelsManager::LoadModel(char *Name,bool dynamic)
+{//wczytanie modelu do tablicy
+ TModel3d *mdl=NULL;
+ if (Count>=MAX_MODELS)
+  Error("FIXME: Too many models, program will now crash :)");
+ else
+ {
+  mdl=Models[Count].LoadModel(Name,dynamic);
+  if (mdl) Count++; //jeśli błąd wczytania modelu, to go nie wliczamy
+ }
+ return mdl;
+}
+
+TModel3d* __fastcall TModelsManager::GetModel(const char *Name,bool dynamic)
+{//model może być we wpisie "node...model" albo "node...dynamic", a także być dodatkowym w dynamic (kabina, wnętrze, ładunek)
+ //dla "node...dynamic" mamy podaną ścieżkę w "\dynamic\" i musi być co najmniej 1 poziom, zwkle są 2
+ //dla "node...model" może być typowy model statyczny ze ścieżką, domyślnie w "\scenery\" albo "\models"
+ //albo może być model z "\dynamic\", jeśli potrzebujemy wstawić auto czy wagon nieruchomo
+ // - ze ścieżki z której jest wywołany, np. dir="scenery\bud\" albo dir="dynamic\pkp\st44_v1\" plus name="model.t3d"
+ // - z domyślnej ścieżki dla modeli, np. "scenery\" albo "models\" plus name="bud\dombale.t3d" (dir="")
+ // - konkretnie podanej ścieżki np. name="\scenery\bud\dombale.t3d" (dir="")
+ //wywołania:
+ // - konwersja wszystkiego do E3D, podawana dokładna ścieżka, tekstury tam, gdzie plik
+ // - wczytanie kabiny, dokładna ścieżka, tekstury z katalogu modelu
+ // - wczytanie ładunku, ścieżka dokładna, tekstury z katalogu modelu
+ // - wczytanie modelu, ścieżka dokładna, tekstury z katalogu modelu
+ // - wczytanie przedsionków, ścieżka dokładna, tekstury z katalogu modelu
+ // - wczytanie uproszczonego wnętrza, ścieżka dokładna, tekstury z katalogu modelu
+ // - niebo animowane, ścieżka brana ze wpisu, tekstury nieokreślone
+ // - wczytanie modelu animowanego - Init() - sprawdzić
+ char buf[255];
+ AnsiString buftp=Global::asCurrentTexturePath; //zapamiętanie aktualnej ścieżki do tekstur, bo będzie tyczmasowo zmieniana
+/*
+// Ra: niby tak jest lepiej, ale działa gorzej, więc przywrócone jest oryginalne
+ //nawet jeśli model będzie pobrany z tablicy, to trzeba ustalić ścieżkę dla tekstur 
+ if (dynamic) //na razie tak, bo nie wiadomo, jaki może mieć wpływ na pozostałe modele
+ {//dla pojazdów podana jest zawsze pełna ścieżka do modelu
+  strcpy(buf,Name);
+  if (strchr(Name,'/')!=NULL)
+  {//pobieranie tekstur z katalogu, w którym jest model
+   Global::asCurrentTexturePath=Global::asCurrentTexturePath+AnsiString(Name);
+   Global::asCurrentTexturePath.Delete(Global::asCurrentTexturePath.Pos("/")+1,Global::asCurrentTexturePath.Length());
+  }
+ }
+ else
+ {//dla modeli scenerii trzeba ustalić ścieżkę
+  if (strchr(Name,'\\')==NULL)
+  {//jeśli nie ma lewego ukośnika w ścieżce, a jest prawy, to zmienić ścieżkę dla tekstur na tę z modelem
+   strcpy(buf,"models\\"); //Ra: było by lepiej katalog dodać w parserze
+   //strcpy(buf,"scenery\\"); //Ra: było by lepiej katalog dodać w parserze
+   strcat(buf,Name);
+   if (strchr(Name,'/')!=NULL)
+   {//jeszcze musi być prawy ukośnik
+    Global::asCurrentTexturePath=Global::asCurrentTexturePath+AnsiString(Name);
+    Global::asCurrentTexturePath.Delete(Global::asCurrentTexturePath.Pos("/")+1,Global::asCurrentTexturePath.Length());
+   }
+  }
+  else
+  {//jeśli jest lewy ukośnik, to ścieżkę do tekstur zmienić tylko dla pojazdów
+   strcpy(buf,Name);
+  }
+ }
+ StrLower(buf);
+ for (int i=0;i<Count;i++)
+ {//bezsensowne przeszukanie tabeli na okoliczność wystąpienia modelu
+  if (strcmp(buf,Models[i].Name)==0)
+  {
+   Global::asCurrentTexturePath=buftp; //odtworzenie ścieżki do tekstur
+   return (Models[i].Model); //model znaleziony
+  }
+ };
+*/
+ if (strchr(Name,'\\')==NULL)
+ {
+  strcpy(buf,"models\\"); //Ra: było by lepiej katalog dodać w parserze
+  strcat(buf,Name);
+  if (strchr(Name,'/')!=NULL)
+  {
+   Global::asCurrentTexturePath= Global::asCurrentTexturePath+AnsiString(Name);
+   Global::asCurrentTexturePath.Delete(Global::asCurrentTexturePath.Pos("/")+1,Global::asCurrentTexturePath.Length());
+  }
+ }
+ else
+ {strcpy(buf,Name);
+  if (dynamic) //na razie tak, bo nie wiadomo, jaki może mieć wpływ na pozostałe modele
+   if (strchr(Name,'/')!=NULL)
+   {//pobieranie tekstur z katalogu, w którym jest model
+    Global::asCurrentTexturePath= Global::asCurrentTexturePath+AnsiString(Name);
+    Global::asCurrentTexturePath.Delete(Global::asCurrentTexturePath.Pos("/")+1,Global::asCurrentTexturePath.Length());
+   }
+ }
+ StrLower(buf);
+ for (int i=0; i<Count; i++)
+ {
+  if (strcmp(buf,Models[i].Name)==0)
+  {
+   Global::asCurrentTexturePath= buftp;
+   return (Models[i].Model);
+  }
+ };
+ TModel3d* tmpModel=LoadModel(buf,dynamic); //model nie znaleziony, to wczytać
+ Global::asCurrentTexturePath=buftp; //odtworzenie ścieżki do tekstur
+ return (tmpModel); //NULL jeśli błąd
+};
+
+/*
+TModel3d __fastcall TModelsManager::GetModel(char *Name, AnsiString asReplacableTexture)
+{
+    GLuint ReplacableTextureID= 0;
+    TModel3d NewModel;
+
+    NewModel= *GetNextModel(Name);
+
+    if (asReplacableTexture!=AnsiString("none"))
+      ReplacableTextureID= TTexturesManager::GetTextureID(asReplacableTexture.c_str());
+
+    NewModel.ReplacableSkinID=ReplacableTextureID;
+
+    return NewModel;
+};
+*/
+
+//---------------------------------------------------------------------------
+#pragma package(smart_init)