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

2
EU07.cpp
View File

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

2
McZapkie/Mover.hpp
View File

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