eu07/maszyna
16
0
Fork 0
mirror of https://github.com/MaSzyna-EU07/maszyna.git synced 2026-07-22 11:39:19 +02:00
Code Issues 123 Wiki Activity

Zmiana obiektów na wskaźniki zgodnie z konwerterem Borlanda.

Browse Source
This commit is contained in:
firleju
2016-09-26 06:36:28 +02:00
parent fcd06c35c5
commit 48c4ecd1a2
6 changed files with 665 additions and 639 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
EU07.bpr
View File

@@ -4,16 +4,16 @@
<MACROS> <MACROS>
<VERSION value="BCB.05.03"/> <VERSION value="BCB.05.03"/>
<PROJECT value="E:\Gry\MaSzyna_15_04\EU07.exe"/> <PROJECT value="E:\Gry\MaSzyna_15_04\EU07.exe"/>
<OBJFILES value="QueryParserComp.obj McZapkie\_mover.obj McZapkie\hamulce.obj <OBJFILES value="QueryParserComp.obj McZapkie\_mover.obj McZapkie\hamulce.obj EU07.obj
McZapkie\Oerlikon_ESt.obj EU07.obj dumb3d.obj Camera.obj Texture.obj dumb3d.obj Camera.obj Texture.obj World.obj Model3d.obj MdlMngr.obj
World.obj Model3d.obj MdlMngr.obj Train.obj wavread.obj Timer.obj Train.obj wavread.obj Timer.obj Event.obj MemCell.obj Logs.obj Spring.obj
Event.obj MemCell.obj Logs.obj Spring.obj Button.obj Globals.obj Gauge.obj Button.obj Globals.obj Gauge.obj AnimModel.obj Ground.obj TrkFoll.obj
AnimModel.obj Ground.obj TrkFoll.obj Segment.obj Sound.obj AdvSound.obj Segment.obj Sound.obj AdvSound.obj Track.obj DynObj.obj RealSound.obj
Track.obj DynObj.obj RealSound.obj EvLaunch.obj FadeSound.obj Traction.obj EvLaunch.obj FadeSound.obj Traction.obj TractionPower.obj parser.obj
TractionPower.obj parser.obj sky.obj AirCoupler.obj opengl\glew.obj sky.obj AirCoupler.obj opengl\glew.obj ResourceManager.obj VBO.obj
ResourceManager.obj VBO.obj mtable.obj TextureDDS.obj mtable.obj TextureDDS.obj opengl\ARB_Multisample.obj Float3d.obj
opengl\ARB_Multisample.obj Float3d.obj Classes.obj Driver.obj Names.obj Classes.obj Driver.obj Names.obj Console.obj Mover.obj
Console.obj Mover.obj Console\PoKeys55.obj Forth.obj Console\LPT.obj McZapkie\Oerlikon_ESt.obj Console\PoKeys55.obj Forth.obj Console\LPT.obj
PyInt.obj"/> PyInt.obj"/>
<RESFILES value="EU07.res"/> <RESFILES value="EU07.res"/>
<IDLFILES value=""/> <IDLFILES value=""/>
@@ -24,7 +24,7 @@
<LIBRARIES value="dclocx50.bpi bcbsmp50.bpi VCLX50.lib bcbsmp50.lib Vcl50.lib"/> <LIBRARIES value="dclocx50.bpi bcbsmp50.bpi VCLX50.lib bcbsmp50.lib Vcl50.lib"/>
<SPARELIBS value="Vcl50.lib bcbsmp50.lib VCLX50.lib bcbsmp50.bpi dclocx50.bpi"/> <SPARELIBS value="Vcl50.lib bcbsmp50.lib VCLX50.lib bcbsmp50.bpi dclocx50.bpi"/>
<PACKAGES value="Vcl50.bpi Vclx50.bpi"/> <PACKAGES value="Vcl50.bpi Vclx50.bpi"/>
<PATHCPP value=".;opengl;Console"/> <PATHCPP value=".;opengl;McZapkie;Console"/>
<PATHPAS value=".;McZapkie"/> <PATHPAS value=".;McZapkie"/>
<PATHRC value=".;"/> <PATHRC value=".;"/>
<PATHASM value=".;"/> <PATHASM value=".;"/>

2
EU07.cpp
View File

@@ -82,7 +82,7 @@ USEUNIT("Console.cpp");
USEUNIT("Mover.cpp"); USEUNIT("Mover.cpp");
USEUNIT("McZapkie\_mover.pas"); USEUNIT("McZapkie\_mover.pas");
USEUNIT("McZapkie\hamulce.pas"); USEUNIT("McZapkie\hamulce.pas");
USEUNIT("McZapkie\Oerlikon_ESt.pas"); USEUNIT("McZapkie\Oerlikon_ESt.cpp");
USEUNIT("Console\PoKeys55.cpp"); USEUNIT("Console\PoKeys55.cpp");
USEUNIT("Forth.cpp"); USEUNIT("Forth.cpp");
USEUNIT("Console\LPT.cpp"); USEUNIT("Console\LPT.cpp");

2
McZapkie/Mover.hpp
View File

@@ -11,7 +11,7 @@
#pragma delphiheader begin #pragma delphiheader begin
#pragma option push -w- #pragma option push -w-
#pragma option push -Vx #pragma option push -Vx
#include <Oerlikon_ESt.hpp> // Pascal unit #include <Oerlikon_ESt.h> // Pascal unit
#include <hamulce.hpp> // Pascal unit #include <hamulce.hpp> // Pascal unit
#include <SysUtils.hpp> // Pascal unit #include <SysUtils.hpp> // Pascal unit
#include <mctools.hpp> // Pascal unit #include <mctools.hpp> // Pascal unit

990
McZapkie/Oerlikon_ESt.cpp
View File

File diff suppressed because it is too large Load Diff

286
McZapkie/Oerlikon_ESt.h
View File

@@ -1,7 +1,7 @@
#pragma once #pragma once
#ifndef INCLUDED_OERLIKON_EST_H #ifndef INCLUDED_OERLIKON_EST_H
#define INCLUDED_OERLIKON_EST_H #define INCLUDED_OERLIKON_EST_H
/*fizyka hamulcow Oerlikon ESt dla symulatora*/ /*fizyka hamulcow Oerlikon ESt dla symulatora*/
/* /*
This Source Code Form is subject to the This Source Code Form is subject to the
@@ -16,13 +16,16 @@ http://mozilla.org/MPL/2.0/.
Brakes. Oerlikon ESt. Brakes. Oerlikon ESt.
Copyright (C) 2007-2014 Maciej Cierniak Copyright (C) 2007-2014 Maciej Cierniak
*/ */
#include <hamulce.hpp> // Pascal unit #include <hamulce.hpp> // Pascal unit
#include <friction.hpp> // Pascal unit #include <friction.hpp> // Pascal unit
#include <SysUtils.hpp> // Pascal unit #include <SysUtils.hpp> // Pascal unit
#include <mctools.hpp> // Pascal unit #include <mctools.hpp> // Pascal unit
#include <SysInit.hpp> // Pascal unit #include <SysInit.hpp> // Pascal unit
#include <System.hpp> // Pascal unit #include <System.hpp> // Pascal unit
#include <string>
using namespace Hamulce;
/* /*
(C) youBy (C) youBy
@@ -48,189 +51,162 @@ Co brakuje:
- PZZ dla dodatkowego - PZZ dla dodatkowego
*/ */
static int /*?*/ const dMAX = 11; // dysze
static int /*?*/ const dON = 0; // osobowy napelnianie (+ZP)
static int /*?*/ const dOO = 1; // osobowy oproznianie
static int /*?*/ const dTN = 2; // towarowy napelnianie (+ZP)
static int /*?*/ const dTO = 3; // towarowy oproznianie
static int /*?*/ const dP = 4; // zbiornik pomocniczy
static int /*?*/ const dSd = 5; // zbiornik sterujacy
static int /*?*/ const dSm = 6; // zbiornik sterujacy
static int /*?*/ const dPd = 7; // duzy przelot zamykajcego
static int /*?*/ const dPm = 8; // maly przelot zamykajacego
static int /*?*/ const dPO = 9; // zasilanie pomocniczego O
static int /*?*/ const dPT = 10; // zasilanie pomocniczego T
static double/*?*/ const dMAX = 10; //dysze // przekladniki
static double/*?*/ const dON = 0; //osobowy napelnianie (+ZP) static int /*?*/ const p_none = 0;
static double/*?*/ const dOO = 1; //osobowy oproznianie static int /*?*/ const p_rapid = 1;
static double/*?*/ const dTN = 2; //towarowy napelnianie (+ZP) static int/*?*/ const p_pp = 2;
static double/*?*/ const dTO = 3; //towarowy oproznianie static int /*?*/ const p_al2 = 3;
static double/*?*/ const dP = 4; //zbiornik pomocniczy static int /*?*/ const p_ppz = 4;
static double/*?*/ const dSd = 5; //zbiornik sterujacy static int /*?*/ const P_ed = 5;
static double/*?*/ const dSm = 6; //zbiornik sterujacy
static double/*?*/ const dPd = 7; //duzy przelot zamykajcego
static double/*?*/ const dPm = 8; //maly przelot zamykajacego
static double/*?*/ const dPO = 9; //zasilanie pomocniczego O
static double/*?*/ const dPT = 10; //zasilanie pomocniczego T
//przekladniki class TPrzekladnik : public TReservoir // przekladnik (powtarzacz)
static double/*?*/ const p_none = 0;
static double/*?*/ const p_rapid = 1;
static double/*?*/ const p_pp = 2;
static double/*?*/ const p_al2 = 3;
static double/*?*/ const p_ppz = 4;
static double/*?*/ const P_ed = 5;
struct/*class*/ TPrzekladnik: public TReservoir //przekladnik (powtarzacz)
{ {
private: private:
public:
public: TReservoir *BrakeRes;
PReservoir BrakeRes; TReservoir *Next;
PReservoir Next; virtual void Update(double dt);
virtual void Update(double dt); void SetPoslizg(bool flag) {};
void SetP(double P) {};
void SetMult(double m) {};
void SetLBP(double P) {};
void SetRapidParams(double mult, double size) {};
void SetRapidStatus(bool rs) {};
}; };
class TRura : public TPrzekladnik // nieprzekladnik, rura laczaca
struct/*class*/ TRura: public TPrzekladnik //nieprzekladnik, rura laczaca
{ {
private: private:
public:
public: virtual __fastcall double P(void) /*override*/;
double P()/*override*/; virtual void Update(double dt) /*override*/;
void Update(double dt)/*override*/;
}; };
class TPrzeciwposlizg : public TRura // przy napelnianiu - rura, przy poslizgu - upust
struct/*class*/ TPrzeciwposlizg: public TRura //przy napelnianiu - rura, przy poslizgu - upust
{ {
private: private:
bool Poslizg; bool Poslizg;
public: public:
void SetPoslizg(bool flag); void SetPoslizg(bool flag);
void Update(double dt)/*override*/; void Update(double dt) /*override*/;
}; };
class TRapid : public TPrzekladnik // przekladnik dwustopniowy
struct/*class*/ TRapid: public TPrzekladnik //przekladnik dwustopniowy
{ {
private: private:
bool RapidStatus; //status rapidu bool RapidStatus; // status rapidu
double RapidMult; //przelozenie (w dol) double RapidMult; // przelozenie (w dol)
// Komora2: real; // Komora2: real;
double DN; double DL; //srednice dysz napelniania i luzowania double DN;
double DL; // srednice dysz napelniania i luzowania
public:
void SetRapidParams(double mult, double size); public:
void SetRapidStatus(bool rs); void SetRapidParams(double mult, double size);
void Update(double dt)/*override*/; void SetRapidStatus(bool rs);
void Update(double dt) /*override*/;
}; };
class TPrzekCiagly : public TPrzekladnik // AL2
struct/*class*/ TPrzekCiagly: public TPrzekladnik //AL2
{ {
private: private:
double mult; double mult;
public: public:
void SetMult(double m); void SetMult(double m);
void Update(double dt)/*override*/; void Update(double dt) /*override*/;
}; };
class TPrzek_PZZ : public TPrzekladnik // podwojny zawor zwrotny
struct/*class*/ TPrzek_PZZ: public TPrzekladnik //podwojny zawor zwrotny
{ {
private: private:
double LBP; double LBP;
public: public:
void SetLBP(double P); void SetLBP(double P);
void Update(double dt)/*override*/; void Update(double dt) /*override*/;
}; };
class TPrzekZalamany : public TPrzekladnik // Knicksventil
struct/*class*/ TPrzekZalamany: public TPrzekladnik //Knicksventil
{ {
private: private:
public:
public:
}; };
class TPrzekED : public TRura // przy napelnianiu - rura, przy hamowaniu - upust
struct/*class*/ TPrzekED: public TRura //przy napelnianiu - rura, przy hamowaniu - upust
{ {
private: private:
double MaxP; double MaxP;
public: public:
void SetP(double P); void SetP(double P);
void Update(double dt)/*override*/; void Update(double dt) /*override*/;
}; };
class TNESt3 : public TBrake
struct/*class*/ TNESt3: public TBrake
{ {
private: private:
double Nozzles[dMAX+1]; //dysze double Nozzles[dMAX]; // dysze
TReservoir CntrlRes; //zbiornik sterujšcy TReservoir *CntrlRes; // zbiornik sterujšcy
double BVM; //przelozenie PG-CH double BVM; // przelozenie PG-CH
// ValveFlag: byte; //polozenie roznych zaworkow // ValveFlag: byte; //polozenie roznych zaworkow
bool Zamykajacy; //pamiec zaworka zamykajacego bool Zamykajacy; // pamiec zaworka zamykajacego
// Przys_wlot: boolean; //wlot do komory przyspieszacza // Przys_wlot: boolean; //wlot do komory przyspieszacza
bool Przys_blok; //blokada przyspieszacza bool Przys_blok; // blokada przyspieszacza
TReservoir Miedzypoj; //pojemnosc posrednia (urojona) do napelniania ZP i ZS TReservoir *Miedzypoj; // pojemnosc posrednia (urojona) do napelniania ZP i ZS
TPrzekladnik Przekladniki[ /*?*//*1..3*/ (3)-(1)+1 ]; TPrzekladnik *Przekladniki[4];
bool RapidStatus; bool RapidStatus;
bool RapidStaly; bool RapidStaly;
double LoadC; double LoadC;
double TareM; double LoadM; //masa proznego i pelnego double TareM;
double TareBP; //cisnienie dla proznego double LoadM; // masa proznego i pelnego
double HBG300; //zawor ograniczajacy cisnienie double TareBP; // cisnienie dla proznego
double Podskok; //podskok preznosci poczatkowej double HBG300; // zawor ograniczajacy cisnienie
// HPBR: real; //zasilanie ZP z wysokiego cisnienia double Podskok; // podskok preznosci poczatkowej
bool autom; //odluzniacz samoczynny // HPBR: real; //zasilanie ZP z wysokiego cisnienia
double LBP; //cisnienie hamulca pomocniczego bool autom; // odluzniacz samoczynny
double LBP; // cisnienie hamulca pomocniczego
public:
double GetPF(double PP, double dt, double Vel)/*override*/; //przeplyw miedzy komora wstepna i PG public:
void EStParams(double i_crc); //parametry charakterystyczne dla ESt virtual double __fastcall GetPF(double PP, double dt,
void Init(double PP, double HPP, double LPP, double BP, unsigned char BDF)/*override*/; double Vel) /*override*/; // przeplyw miedzy komora wstepna i PG
double GetCRP()/*override*/; void EStParams(double i_crc); // parametry charakterystyczne dla ESt
void CheckState(double BCP, double & dV1); //glowny przyrzad rozrzadczy virtual void __fastcall Init(double PP, double HPP, double LPP, double BP, unsigned char BDF) /*override*/;
void CheckReleaser(double dt); //odluzniacz virtual double __fastcall GetCRP() /*override*/;
double CVs(double BP); //napelniacz sterujacego void CheckState(double BCP, double &dV1); // glowny przyrzad rozrzadczy
double BVs(double BCP); //napelniacz pomocniczego void CheckReleaser(double dt); // odluzniacz
void SetSize(int size, std::string params); //ustawianie dysz (rozmiaru ZR), przekladniki double CVs(double BP); // napelniacz sterujacego
void PLC(double mass); //wspolczynnik cisnienia przystawki wazacej double BVs(double BCP); // napelniacz pomocniczego
void SetLP(double TM, double LM, double TBP); //parametry przystawki wazacej void SetSize(int size, std::string params); // ustawianie dysz (rozmiaru ZR), przekladniki
void ForceEmptiness()/*override*/; //wymuszenie bycia pustym void PLC(double mass); // wspolczynnik cisnienia przystawki wazacej
void SetLBP(double P); //cisnienie z hamulca pomocniczego void SetLP(double TM, double LM, double TBP); // parametry przystawki wazacej
virtual void __fastcall ForceEmptiness() /*override*/; // wymuszenie bycia pustym
void SetLBP(double P); // cisnienie z hamulca pomocniczego
}; };
extern double d2A(double d);
double d2A(double d); #endif // INCLUDED_OERLIKON_EST_H
// END
#endif//INCLUDED_OERLIKON_EST_H
//END

2
McZapkie/_Mover.hpp
View File

@@ -10,7 +10,7 @@
#pragma delphiheader begin #pragma delphiheader begin
#pragma option push -w- #pragma option push -w-
#pragma option push -Vx #pragma option push -Vx
#include <Oerlikon_ESt.hpp> // Pascal unit #include <Oerlikon_ESt.h> // Pascal unit
#include <hamulce.hpp> // Pascal unit #include <hamulce.hpp> // Pascal unit
#include <SysUtils.hpp> // Pascal unit #include <SysUtils.hpp> // Pascal unit
#include <mctools.hpp> // Pascal unit #include <mctools.hpp> // Pascal unit