mirror of
https://github.com/MaSzyna-EU07/maszyna.git
synced 2026-09-01 18:39:19 +02:00
c84bf7319b
2. Możliwość zdefiniowania koloru tła ekranu ładowania w eu07.ini. 3. Dodanie logowania ruchu ramek WM_COPYDATA do oddzielnego pliku. 4. Dodana ramka skrócona aktywnych AI. 5. Dodana ramka sterowania uszkodzeniami pojazdów. 6. Dodanie kręciołka od świateł (w tym trakcja wielokrotna). 7. Rozbudowa asynchronów, m.in. tempomat, zadawanie siły (w kN), przeciwpoślizg, czyste ED itd. 8. Dodanie animacji drtzwi odskokowo-przesuwnych. 9. Dodanie możliwości uszkadzania pojazdów (EN57). 10. Uruchomienie sprzęgu WN, zwłaszcza w asynchronach - do przejrzenia logowanie braków napięcia. 11. Wyłączanie radiostopu przez wyłączanie radia, a nie przez ruch zaworem maszynisty. 12. Usunięcie wyłącznika ciśnieniowego w EN57 (proteza, trzeba zrobić wpis na to). 13. Wstępna wersja hamowania rekuperacyjnego wraz z przechodzeniem na hamowanie oporowe. 14. Cała masa nowych zmiennych stanu dostępna dla ekranu (Pythona). 15. Nowa stara smuga z dawnego SPKSu. 16. Inne, które mogłem zapomnieć lub nie uszczegółowić. 17. Poprawione wyświetlanie haslera
851 lines
23 KiB
C++
851 lines
23 KiB
C++
// Borland C++ Builder
|
|
// Copyright (c) 1995, 1999 by Borland International
|
|
// All rights reserved
|
|
|
|
// (DO NOT EDIT: machine generated header) 'hamulce.pas' rev: 5.00
|
|
|
|
#ifndef hamulceHPP
|
|
#define hamulceHPP
|
|
|
|
#pragma delphiheader begin
|
|
#pragma option push -w-
|
|
#pragma option push -Vx
|
|
#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
|
|
|
|
//-- user supplied -----------------------------------------------------------
|
|
|
|
namespace Hamulce
|
|
{
|
|
//-- type declarations -------------------------------------------------------
|
|
class DELPHICLASS TReservoir;
|
|
class PASCALIMPLEMENTATION TReservoir : public System::TObject
|
|
{
|
|
typedef System::TObject inherited;
|
|
|
|
protected:
|
|
double Cap;
|
|
double Vol;
|
|
double dVol;
|
|
|
|
public:
|
|
__fastcall TReservoir(void);
|
|
void __fastcall CreateCap(double Capacity);
|
|
void __fastcall CreatePress(double Press);
|
|
virtual double __fastcall pa(void);
|
|
virtual double __fastcall P(void);
|
|
void __fastcall Flow(double dv);
|
|
void __fastcall Act(void);
|
|
public:
|
|
#pragma option push -w-inl
|
|
/* TObject.Destroy */ inline __fastcall virtual ~TReservoir(void) { }
|
|
#pragma option pop
|
|
|
|
};
|
|
|
|
|
|
typedef TReservoir* *PReservoir;
|
|
|
|
class DELPHICLASS TBrakeCyl;
|
|
class PASCALIMPLEMENTATION TBrakeCyl : public TReservoir
|
|
{
|
|
typedef TReservoir inherited;
|
|
|
|
public:
|
|
virtual double __fastcall pa(void);
|
|
virtual double __fastcall P(void);
|
|
public:
|
|
#pragma option push -w-inl
|
|
/* TReservoir.Create */ inline __fastcall TBrakeCyl(void) : TReservoir() { }
|
|
#pragma option pop
|
|
|
|
public:
|
|
#pragma option push -w-inl
|
|
/* TObject.Destroy */ inline __fastcall virtual ~TBrakeCyl(void) { }
|
|
#pragma option pop
|
|
|
|
};
|
|
|
|
|
|
class DELPHICLASS TBrake;
|
|
class PASCALIMPLEMENTATION TBrake : public System::TObject
|
|
{
|
|
typedef System::TObject inherited;
|
|
|
|
protected:
|
|
TReservoir* BrakeCyl;
|
|
TReservoir* BrakeRes;
|
|
TReservoir* ValveRes;
|
|
Byte BCN;
|
|
double BCM;
|
|
double BCA;
|
|
Byte BrakeDelays;
|
|
Byte BrakeDelayFlag;
|
|
Friction::TFricMat* FM;
|
|
double MaxBP;
|
|
Byte BA;
|
|
Byte NBpA;
|
|
double SizeBR;
|
|
double SizeBC;
|
|
bool DCV;
|
|
double ASBP;
|
|
Byte BrakeStatus;
|
|
Byte SoundFlag;
|
|
|
|
public:
|
|
__fastcall TBrake(double i_mbp, double i_bcr, double i_bcd, double i_brc, Byte i_bcn, Byte i_BD, Byte
|
|
i_mat, Byte i_ba, Byte i_nbpa);
|
|
virtual double __fastcall GetFC(double Vel, double N);
|
|
virtual double __fastcall GetPF(double PP, double dt, double Vel);
|
|
double __fastcall GetBCF(void);
|
|
virtual double __fastcall GetHPFlow(double HP, double dt);
|
|
virtual double __fastcall GetBCP(void);
|
|
double __fastcall GetBRP(void);
|
|
double __fastcall GetVRP(void);
|
|
virtual double __fastcall GetCRP(void);
|
|
virtual void __fastcall Init(double PP, double HPP, double LPP, double BP, Byte BDF);
|
|
bool __fastcall SetBDF(Byte nBDF);
|
|
void __fastcall Releaser(Byte state);
|
|
virtual void __fastcall SetEPS(double nEPS);
|
|
void __fastcall ASB(Byte state);
|
|
Byte __fastcall GetStatus(void);
|
|
void __fastcall SetASBP(double press);
|
|
virtual void __fastcall ForceEmptiness(void);
|
|
Byte __fastcall GetSoundFlag(void);
|
|
public:
|
|
#pragma option push -w-inl
|
|
/* TObject.Destroy */ inline __fastcall virtual ~TBrake(void) { }
|
|
#pragma option pop
|
|
|
|
};
|
|
|
|
|
|
class DELPHICLASS TWest;
|
|
class PASCALIMPLEMENTATION TWest : public TBrake
|
|
{
|
|
typedef TBrake inherited;
|
|
|
|
private:
|
|
double LBP;
|
|
double dVP;
|
|
double EPS;
|
|
double TareM;
|
|
double LoadM;
|
|
double TareBP;
|
|
double LoadC;
|
|
|
|
public:
|
|
void __fastcall SetLBP(double P);
|
|
virtual double __fastcall GetPF(double PP, double dt, double Vel);
|
|
virtual void __fastcall Init(double PP, double HPP, double LPP, double BP, Byte BDF);
|
|
virtual double __fastcall GetHPFlow(double HP, double dt);
|
|
void __fastcall PLC(double mass);
|
|
virtual void __fastcall SetEPS(double nEPS);
|
|
void __fastcall SetLP(double TM, double LM, double TBP);
|
|
public:
|
|
#pragma option push -w-inl
|
|
/* TBrake.Create */ inline __fastcall TWest(double i_mbp, double i_bcr, double i_bcd, double i_brc,
|
|
Byte i_bcn, Byte i_BD, Byte i_mat, Byte i_ba, Byte i_nbpa) : TBrake(i_mbp, i_bcr, i_bcd, i_brc, i_bcn
|
|
, i_BD, i_mat, i_ba, i_nbpa) { }
|
|
#pragma option pop
|
|
|
|
public:
|
|
#pragma option push -w-inl
|
|
/* TObject.Destroy */ inline __fastcall virtual ~TWest(void) { }
|
|
#pragma option pop
|
|
|
|
};
|
|
|
|
|
|
class DELPHICLASS TESt;
|
|
class PASCALIMPLEMENTATION TESt : public TBrake
|
|
{
|
|
typedef TBrake inherited;
|
|
|
|
private:
|
|
TReservoir* CntrlRes;
|
|
double BVM;
|
|
|
|
public:
|
|
virtual double __fastcall GetPF(double PP, double dt, double Vel);
|
|
void __fastcall EStParams(double i_crc);
|
|
virtual void __fastcall Init(double PP, double HPP, double LPP, double BP, Byte BDF);
|
|
virtual double __fastcall GetCRP(void);
|
|
void __fastcall CheckState(double BCP, double &dV1);
|
|
void __fastcall CheckReleaser(double dt);
|
|
double __fastcall CVs(double bp);
|
|
double __fastcall BVs(double BCP);
|
|
public:
|
|
#pragma option push -w-inl
|
|
/* TBrake.Create */ inline __fastcall TESt(double i_mbp, double i_bcr, double i_bcd, double i_brc,
|
|
Byte i_bcn, Byte i_BD, Byte i_mat, Byte i_ba, Byte i_nbpa) : TBrake(i_mbp, i_bcr, i_bcd, i_brc, i_bcn
|
|
, i_BD, i_mat, i_ba, i_nbpa) { }
|
|
#pragma option pop
|
|
|
|
public:
|
|
#pragma option push -w-inl
|
|
/* TObject.Destroy */ inline __fastcall virtual ~TESt(void) { }
|
|
#pragma option pop
|
|
|
|
};
|
|
|
|
|
|
class DELPHICLASS TESt3;
|
|
class PASCALIMPLEMENTATION TESt3 : public TESt
|
|
{
|
|
typedef TESt inherited;
|
|
|
|
private:
|
|
double CylFlowSpeed[2][2];
|
|
|
|
public:
|
|
virtual double __fastcall GetPF(double PP, double dt, double Vel);
|
|
public:
|
|
#pragma option push -w-inl
|
|
/* TBrake.Create */ inline __fastcall TESt3(double i_mbp, double i_bcr, double i_bcd, double i_brc,
|
|
Byte i_bcn, Byte i_BD, Byte i_mat, Byte i_ba, Byte i_nbpa) : TESt(i_mbp, i_bcr, i_bcd, i_brc, i_bcn
|
|
, i_BD, i_mat, i_ba, i_nbpa) { }
|
|
#pragma option pop
|
|
|
|
public:
|
|
#pragma option push -w-inl
|
|
/* TObject.Destroy */ inline __fastcall virtual ~TESt3(void) { }
|
|
#pragma option pop
|
|
|
|
};
|
|
|
|
|
|
class DELPHICLASS TESt3AL2;
|
|
class PASCALIMPLEMENTATION TESt3AL2 : public TESt3
|
|
{
|
|
typedef TESt3 inherited;
|
|
|
|
private:
|
|
double TareM;
|
|
double LoadM;
|
|
double TareBP;
|
|
double LoadC;
|
|
|
|
public:
|
|
TReservoir* ImplsRes;
|
|
virtual double __fastcall GetPF(double PP, double dt, double Vel);
|
|
void __fastcall PLC(double mass);
|
|
void __fastcall SetLP(double TM, double LM, double TBP);
|
|
virtual void __fastcall Init(double PP, double HPP, double LPP, double BP, Byte BDF);
|
|
public:
|
|
#pragma option push -w-inl
|
|
/* TBrake.Create */ inline __fastcall TESt3AL2(double i_mbp, double i_bcr, double i_bcd, double i_brc
|
|
, Byte i_bcn, Byte i_BD, Byte i_mat, Byte i_ba, Byte i_nbpa) : TESt3(i_mbp, i_bcr, i_bcd, i_brc, i_bcn
|
|
, i_BD, i_mat, i_ba, i_nbpa) { }
|
|
#pragma option pop
|
|
|
|
public:
|
|
#pragma option push -w-inl
|
|
/* TObject.Destroy */ inline __fastcall virtual ~TESt3AL2(void) { }
|
|
#pragma option pop
|
|
|
|
};
|
|
|
|
|
|
class DELPHICLASS TESt4R;
|
|
class PASCALIMPLEMENTATION TESt4R : public TESt
|
|
{
|
|
typedef TESt inherited;
|
|
|
|
private:
|
|
bool RapidStatus;
|
|
double RapidTemp;
|
|
|
|
public:
|
|
TReservoir* ImplsRes;
|
|
virtual double __fastcall GetPF(double PP, double dt, double Vel);
|
|
virtual void __fastcall Init(double PP, double HPP, double LPP, double BP, Byte BDF);
|
|
public:
|
|
#pragma option push -w-inl
|
|
/* TBrake.Create */ inline __fastcall TESt4R(double i_mbp, double i_bcr, double i_bcd, double i_brc
|
|
, Byte i_bcn, Byte i_BD, Byte i_mat, Byte i_ba, Byte i_nbpa) : TESt(i_mbp, i_bcr, i_bcd, i_brc, i_bcn
|
|
, i_BD, i_mat, i_ba, i_nbpa) { }
|
|
#pragma option pop
|
|
|
|
public:
|
|
#pragma option push -w-inl
|
|
/* TObject.Destroy */ inline __fastcall virtual ~TESt4R(void) { }
|
|
#pragma option pop
|
|
|
|
};
|
|
|
|
|
|
class DELPHICLASS TLSt;
|
|
class PASCALIMPLEMENTATION TLSt : public TESt4R
|
|
{
|
|
typedef TESt4R inherited;
|
|
|
|
private:
|
|
double CylFlowSpeed[2][2];
|
|
double LBP;
|
|
double RM;
|
|
double EDFlag;
|
|
|
|
public:
|
|
void __fastcall SetLBP(double P);
|
|
void __fastcall SetRM(double RMR);
|
|
virtual double __fastcall GetPF(double PP, double dt, double Vel);
|
|
virtual double __fastcall GetHPFlow(double HP, double dt);
|
|
virtual void __fastcall Init(double PP, double HPP, double LPP, double BP, Byte BDF);
|
|
virtual double __fastcall GetEDBCP(void);
|
|
void __fastcall SetED(double EDstate);
|
|
public:
|
|
#pragma option push -w-inl
|
|
/* TBrake.Create */ inline __fastcall TLSt(double i_mbp, double i_bcr, double i_bcd, double i_brc,
|
|
Byte i_bcn, Byte i_BD, Byte i_mat, Byte i_ba, Byte i_nbpa) : TESt4R(i_mbp, i_bcr, i_bcd, i_brc, i_bcn
|
|
, i_BD, i_mat, i_ba, i_nbpa) { }
|
|
#pragma option pop
|
|
|
|
public:
|
|
#pragma option push -w-inl
|
|
/* TObject.Destroy */ inline __fastcall virtual ~TLSt(void) { }
|
|
#pragma option pop
|
|
|
|
};
|
|
|
|
|
|
class DELPHICLASS TEStED;
|
|
class PASCALIMPLEMENTATION TEStED : public TLSt
|
|
{
|
|
typedef TLSt inherited;
|
|
|
|
private:
|
|
double Nozzles[11];
|
|
bool Zamykajacy;
|
|
bool Przys_blok;
|
|
TReservoir* Miedzypoj;
|
|
double TareM;
|
|
double LoadM;
|
|
double TareBP;
|
|
double LoadC;
|
|
|
|
public:
|
|
virtual void __fastcall Init(double PP, double HPP, double LPP, double BP, Byte BDF);
|
|
virtual double __fastcall GetPF(double PP, double dt, double Vel);
|
|
virtual double __fastcall GetEDBCP(void);
|
|
void __fastcall PLC(double mass);
|
|
void __fastcall SetLP(double TM, double LM, double TBP);
|
|
public:
|
|
#pragma option push -w-inl
|
|
/* TBrake.Create */ inline __fastcall TEStED(double i_mbp, double i_bcr, double i_bcd, double i_brc
|
|
, Byte i_bcn, Byte i_BD, Byte i_mat, Byte i_ba, Byte i_nbpa) : TLSt(i_mbp, i_bcr, i_bcd, i_brc, i_bcn
|
|
, i_BD, i_mat, i_ba, i_nbpa) { }
|
|
#pragma option pop
|
|
|
|
public:
|
|
#pragma option push -w-inl
|
|
/* TObject.Destroy */ inline __fastcall virtual ~TEStED(void) { }
|
|
#pragma option pop
|
|
|
|
};
|
|
|
|
|
|
class DELPHICLASS TEStEP2;
|
|
class PASCALIMPLEMENTATION TEStEP2 : public TLSt
|
|
{
|
|
typedef TLSt inherited;
|
|
|
|
private:
|
|
double TareM;
|
|
double LoadM;
|
|
double TareBP;
|
|
double LoadC;
|
|
double EPS;
|
|
|
|
public:
|
|
virtual double __fastcall GetPF(double PP, double dt, double Vel);
|
|
virtual void __fastcall Init(double PP, double HPP, double LPP, double BP, Byte BDF);
|
|
void __fastcall PLC(double mass);
|
|
virtual void __fastcall SetEPS(double nEPS);
|
|
void __fastcall SetLP(double TM, double LM, double TBP);
|
|
public:
|
|
#pragma option push -w-inl
|
|
/* TBrake.Create */ inline __fastcall TEStEP2(double i_mbp, double i_bcr, double i_bcd, double i_brc
|
|
, Byte i_bcn, Byte i_BD, Byte i_mat, Byte i_ba, Byte i_nbpa) : TLSt(i_mbp, i_bcr, i_bcd, i_brc, i_bcn
|
|
, i_BD, i_mat, i_ba, i_nbpa) { }
|
|
#pragma option pop
|
|
|
|
public:
|
|
#pragma option push -w-inl
|
|
/* TObject.Destroy */ inline __fastcall virtual ~TEStEP2(void) { }
|
|
#pragma option pop
|
|
|
|
};
|
|
|
|
|
|
class DELPHICLASS TCV1;
|
|
class PASCALIMPLEMENTATION TCV1 : public TBrake
|
|
{
|
|
typedef TBrake inherited;
|
|
|
|
private:
|
|
TReservoir* CntrlRes;
|
|
double BVM;
|
|
|
|
public:
|
|
virtual double __fastcall GetPF(double PP, double dt, double Vel);
|
|
virtual void __fastcall Init(double PP, double HPP, double LPP, double BP, Byte BDF);
|
|
virtual double __fastcall GetCRP(void);
|
|
void __fastcall CheckState(double BCP, double &dV1);
|
|
double __fastcall CVs(double bp);
|
|
double __fastcall BVs(double BCP);
|
|
public:
|
|
#pragma option push -w-inl
|
|
/* TBrake.Create */ inline __fastcall TCV1(double i_mbp, double i_bcr, double i_bcd, double i_brc,
|
|
Byte i_bcn, Byte i_BD, Byte i_mat, Byte i_ba, Byte i_nbpa) : TBrake(i_mbp, i_bcr, i_bcd, i_brc, i_bcn
|
|
, i_BD, i_mat, i_ba, i_nbpa) { }
|
|
#pragma option pop
|
|
|
|
public:
|
|
#pragma option push -w-inl
|
|
/* TObject.Destroy */ inline __fastcall virtual ~TCV1(void) { }
|
|
#pragma option pop
|
|
|
|
};
|
|
|
|
|
|
class DELPHICLASS TCV1R;
|
|
class PASCALIMPLEMENTATION TCV1R : public TCV1
|
|
{
|
|
typedef TCV1 inherited;
|
|
|
|
private:
|
|
TReservoir* ImplsRes;
|
|
bool RapidStatus;
|
|
public:
|
|
#pragma option push -w-inl
|
|
/* TBrake.Create */ inline __fastcall TCV1R(double i_mbp, double i_bcr, double i_bcd, double i_brc,
|
|
Byte i_bcn, Byte i_BD, Byte i_mat, Byte i_ba, Byte i_nbpa) : TCV1(i_mbp, i_bcr, i_bcd, i_brc, i_bcn
|
|
, i_BD, i_mat, i_ba, i_nbpa) { }
|
|
#pragma option pop
|
|
|
|
public:
|
|
#pragma option push -w-inl
|
|
/* TObject.Destroy */ inline __fastcall virtual ~TCV1R(void) { }
|
|
#pragma option pop
|
|
|
|
};
|
|
|
|
|
|
class DELPHICLASS TCV1L_TR;
|
|
class PASCALIMPLEMENTATION TCV1L_TR : public TCV1
|
|
{
|
|
typedef TCV1 inherited;
|
|
|
|
private:
|
|
TReservoir* ImplsRes;
|
|
double LBP;
|
|
|
|
public:
|
|
virtual double __fastcall GetPF(double PP, double dt, double Vel);
|
|
virtual void __fastcall Init(double PP, double HPP, double LPP, double BP, Byte BDF);
|
|
void __fastcall SetLBP(double P);
|
|
virtual double __fastcall GetHPFlow(double HP, double dt);
|
|
public:
|
|
#pragma option push -w-inl
|
|
/* TBrake.Create */ inline __fastcall TCV1L_TR(double i_mbp, double i_bcr, double i_bcd, double i_brc
|
|
, Byte i_bcn, Byte i_BD, Byte i_mat, Byte i_ba, Byte i_nbpa) : TCV1(i_mbp, i_bcr, i_bcd, i_brc, i_bcn
|
|
, i_BD, i_mat, i_ba, i_nbpa) { }
|
|
#pragma option pop
|
|
|
|
public:
|
|
#pragma option push -w-inl
|
|
/* TObject.Destroy */ inline __fastcall virtual ~TCV1L_TR(void) { }
|
|
#pragma option pop
|
|
|
|
};
|
|
|
|
|
|
class DELPHICLASS TKE;
|
|
class PASCALIMPLEMENTATION TKE : public TBrake
|
|
{
|
|
typedef TBrake inherited;
|
|
|
|
private:
|
|
bool RapidStatus;
|
|
TReservoir* ImplsRes;
|
|
TReservoir* CntrlRes;
|
|
TReservoir* Brak2Res;
|
|
double BVM;
|
|
double TareM;
|
|
double LoadM;
|
|
double TareBP;
|
|
double LoadC;
|
|
double RM;
|
|
double LBP;
|
|
|
|
public:
|
|
void __fastcall SetRM(double RMR);
|
|
virtual double __fastcall GetPF(double PP, double dt, double Vel);
|
|
virtual void __fastcall Init(double PP, double HPP, double LPP, double BP, Byte BDF);
|
|
virtual double __fastcall GetHPFlow(double HP, double dt);
|
|
virtual double __fastcall GetCRP(void);
|
|
void __fastcall CheckState(double BCP, double &dV1);
|
|
void __fastcall CheckReleaser(double dt);
|
|
double __fastcall CVs(double bp);
|
|
double __fastcall BVs(double BCP);
|
|
void __fastcall PLC(double mass);
|
|
void __fastcall SetLP(double TM, double LM, double TBP);
|
|
void __fastcall SetLBP(double P);
|
|
public:
|
|
#pragma option push -w-inl
|
|
/* TBrake.Create */ inline __fastcall TKE(double i_mbp, double i_bcr, double i_bcd, double i_brc, Byte
|
|
i_bcn, Byte i_BD, Byte i_mat, Byte i_ba, Byte i_nbpa) : TBrake(i_mbp, i_bcr, i_bcd, i_brc, i_bcn,
|
|
i_BD, i_mat, i_ba, i_nbpa) { }
|
|
#pragma option pop
|
|
|
|
public:
|
|
#pragma option push -w-inl
|
|
/* TObject.Destroy */ inline __fastcall virtual ~TKE(void) { }
|
|
#pragma option pop
|
|
|
|
};
|
|
|
|
|
|
class DELPHICLASS THandle;
|
|
class PASCALIMPLEMENTATION THandle : public System::TObject
|
|
{
|
|
typedef System::TObject inherited;
|
|
|
|
public:
|
|
bool Time;
|
|
bool TimeEP;
|
|
double Sounds[5];
|
|
virtual double __fastcall GetPF(double i_bcp, double pp, double hp, double dt, double ep);
|
|
virtual void __fastcall Init(double press);
|
|
virtual double __fastcall GetCP(void);
|
|
virtual void __fastcall SetReductor(double nAdj);
|
|
virtual double __fastcall GetSound(Byte i);
|
|
virtual double __fastcall GetPos(Byte i);
|
|
public:
|
|
#pragma option push -w-inl
|
|
/* TObject.Create */ inline __fastcall THandle(void) : System::TObject() { }
|
|
#pragma option pop
|
|
#pragma option push -w-inl
|
|
/* TObject.Destroy */ inline __fastcall virtual ~THandle(void) { }
|
|
#pragma option pop
|
|
|
|
};
|
|
|
|
|
|
class DELPHICLASS TFV4a;
|
|
class PASCALIMPLEMENTATION TFV4a : public THandle
|
|
{
|
|
typedef THandle inherited;
|
|
|
|
private:
|
|
double CP;
|
|
double TP;
|
|
double RP;
|
|
|
|
public:
|
|
virtual double __fastcall GetPF(double i_bcp, double pp, double hp, double dt, double ep);
|
|
virtual void __fastcall Init(double press);
|
|
public:
|
|
#pragma option push -w-inl
|
|
/* TObject.Create */ inline __fastcall TFV4a(void) : THandle() { }
|
|
#pragma option pop
|
|
#pragma option push -w-inl
|
|
/* TObject.Destroy */ inline __fastcall virtual ~TFV4a(void) { }
|
|
#pragma option pop
|
|
|
|
};
|
|
|
|
|
|
class DELPHICLASS TFV4aM;
|
|
class PASCALIMPLEMENTATION TFV4aM : public THandle
|
|
{
|
|
typedef THandle inherited;
|
|
|
|
private:
|
|
double CP;
|
|
double TP;
|
|
double RP;
|
|
double XP;
|
|
double RedAdj;
|
|
bool Fala;
|
|
|
|
public:
|
|
virtual double __fastcall GetPF(double i_bcp, double pp, double hp, double dt, double ep);
|
|
virtual void __fastcall Init(double press);
|
|
virtual void __fastcall SetReductor(double nAdj);
|
|
virtual double __fastcall GetSound(Byte i);
|
|
virtual double __fastcall GetPos(Byte i);
|
|
public:
|
|
#pragma option push -w-inl
|
|
/* TObject.Create */ inline __fastcall TFV4aM(void) : THandle() { }
|
|
#pragma option pop
|
|
#pragma option push -w-inl
|
|
/* TObject.Destroy */ inline __fastcall virtual ~TFV4aM(void) { }
|
|
#pragma option pop
|
|
|
|
};
|
|
|
|
|
|
class DELPHICLASS TM394;
|
|
class PASCALIMPLEMENTATION TM394 : public THandle
|
|
{
|
|
typedef THandle inherited;
|
|
|
|
private:
|
|
double CP;
|
|
double RedAdj;
|
|
|
|
public:
|
|
virtual double __fastcall GetPF(double i_bcp, double pp, double hp, double dt, double ep);
|
|
virtual void __fastcall Init(double press);
|
|
virtual void __fastcall SetReductor(double nAdj);
|
|
virtual double __fastcall GetCP(void);
|
|
virtual double __fastcall GetPos(Byte i);
|
|
public:
|
|
#pragma option push -w-inl
|
|
/* TObject.Create */ inline __fastcall TM394(void) : THandle() { }
|
|
#pragma option pop
|
|
#pragma option push -w-inl
|
|
/* TObject.Destroy */ inline __fastcall virtual ~TM394(void) { }
|
|
#pragma option pop
|
|
|
|
};
|
|
|
|
|
|
class DELPHICLASS TH14K1;
|
|
class PASCALIMPLEMENTATION TH14K1 : public THandle
|
|
{
|
|
typedef THandle inherited;
|
|
|
|
private:
|
|
double CP;
|
|
double RedAdj;
|
|
|
|
public:
|
|
virtual double __fastcall GetPF(double i_bcp, double pp, double hp, double dt, double ep);
|
|
virtual void __fastcall Init(double press);
|
|
virtual void __fastcall SetReductor(double nAdj);
|
|
virtual double __fastcall GetCP(void);
|
|
virtual double __fastcall GetPos(Byte i);
|
|
public:
|
|
#pragma option push -w-inl
|
|
/* TObject.Create */ inline __fastcall TH14K1(void) : THandle() { }
|
|
#pragma option pop
|
|
#pragma option push -w-inl
|
|
/* TObject.Destroy */ inline __fastcall virtual ~TH14K1(void) { }
|
|
#pragma option pop
|
|
|
|
};
|
|
|
|
|
|
class DELPHICLASS TSt113;
|
|
class PASCALIMPLEMENTATION TSt113 : public TH14K1
|
|
{
|
|
typedef TH14K1 inherited;
|
|
|
|
private:
|
|
double EPS;
|
|
|
|
public:
|
|
virtual double __fastcall GetPF(double i_bcp, double pp, double hp, double dt, double ep);
|
|
virtual double __fastcall GetCP(void);
|
|
virtual double __fastcall GetPos(Byte i);
|
|
virtual void __fastcall Init(double press);
|
|
public:
|
|
#pragma option push -w-inl
|
|
/* TObject.Create */ inline __fastcall TSt113(void) : TH14K1() { }
|
|
#pragma option pop
|
|
#pragma option push -w-inl
|
|
/* TObject.Destroy */ inline __fastcall virtual ~TSt113(void) { }
|
|
#pragma option pop
|
|
|
|
};
|
|
|
|
|
|
class DELPHICLASS Ttest;
|
|
class PASCALIMPLEMENTATION Ttest : public THandle
|
|
{
|
|
typedef THandle inherited;
|
|
|
|
private:
|
|
double CP;
|
|
|
|
public:
|
|
virtual double __fastcall GetPF(double i_bcp, double pp, double hp, double dt, double ep);
|
|
virtual void __fastcall Init(double press);
|
|
public:
|
|
#pragma option push -w-inl
|
|
/* TObject.Create */ inline __fastcall Ttest(void) : THandle() { }
|
|
#pragma option pop
|
|
#pragma option push -w-inl
|
|
/* TObject.Destroy */ inline __fastcall virtual ~Ttest(void) { }
|
|
#pragma option pop
|
|
|
|
};
|
|
|
|
|
|
class DELPHICLASS TFD1;
|
|
class PASCALIMPLEMENTATION TFD1 : public THandle
|
|
{
|
|
typedef THandle inherited;
|
|
|
|
private:
|
|
double MaxBP;
|
|
double BP;
|
|
|
|
public:
|
|
double Speed;
|
|
virtual double __fastcall GetPF(double i_bcp, double pp, double hp, double dt, double ep);
|
|
virtual void __fastcall Init(double press);
|
|
virtual double __fastcall GetCP(void);
|
|
void __fastcall SetSpeed(double nSpeed);
|
|
public:
|
|
#pragma option push -w-inl
|
|
/* TObject.Create */ inline __fastcall TFD1(void) : THandle() { }
|
|
#pragma option pop
|
|
#pragma option push -w-inl
|
|
/* TObject.Destroy */ inline __fastcall virtual ~TFD1(void) { }
|
|
#pragma option pop
|
|
|
|
};
|
|
|
|
|
|
class DELPHICLASS TH1405;
|
|
class PASCALIMPLEMENTATION TH1405 : public THandle
|
|
{
|
|
typedef THandle inherited;
|
|
|
|
private:
|
|
double MaxBP;
|
|
double BP;
|
|
|
|
public:
|
|
virtual double __fastcall GetPF(double i_bcp, double pp, double hp, double dt, double ep);
|
|
virtual void __fastcall Init(double press);
|
|
virtual double __fastcall GetCP(void);
|
|
public:
|
|
#pragma option push -w-inl
|
|
/* TObject.Create */ inline __fastcall TH1405(void) : THandle() { }
|
|
#pragma option pop
|
|
#pragma option push -w-inl
|
|
/* TObject.Destroy */ inline __fastcall virtual ~TH1405(void) { }
|
|
#pragma option pop
|
|
|
|
};
|
|
|
|
|
|
class DELPHICLASS TFVel6;
|
|
class PASCALIMPLEMENTATION TFVel6 : public THandle
|
|
{
|
|
typedef THandle inherited;
|
|
|
|
private:
|
|
double EPS;
|
|
|
|
public:
|
|
virtual double __fastcall GetPF(double i_bcp, double pp, double hp, double dt, double ep);
|
|
virtual double __fastcall GetCP(void);
|
|
virtual double __fastcall GetPos(Byte i);
|
|
virtual double __fastcall GetSound(Byte i);
|
|
virtual void __fastcall Init(double press);
|
|
public:
|
|
#pragma option push -w-inl
|
|
/* TObject.Create */ inline __fastcall TFVel6(void) : THandle() { }
|
|
#pragma option pop
|
|
#pragma option push -w-inl
|
|
/* TObject.Destroy */ inline __fastcall virtual ~TFVel6(void) { }
|
|
#pragma option pop
|
|
|
|
};
|
|
|
|
|
|
//-- var, const, procedure ---------------------------------------------------
|
|
static const Shortint LocalBrakePosNo = 0xa;
|
|
static const Shortint MainBrakeMaxPos = 0xa;
|
|
static const Shortint bdelay_G = 0x1;
|
|
static const Shortint bdelay_P = 0x2;
|
|
static const Shortint bdelay_R = 0x4;
|
|
static const Shortint bdelay_M = 0x8;
|
|
static const Byte bdelay_GR = 0x80;
|
|
static const Shortint b_off = 0x0;
|
|
static const Shortint b_hld = 0x1;
|
|
static const Shortint b_on = 0x2;
|
|
static const Shortint b_rfl = 0x4;
|
|
static const Shortint b_rls = 0x8;
|
|
static const Shortint b_ep = 0x10;
|
|
static const Shortint b_asb = 0x20;
|
|
static const Byte b_dmg = 0x80;
|
|
static const Shortint df_on = 0x1;
|
|
static const Shortint df_off = 0x2;
|
|
static const Shortint df_br = 0x4;
|
|
static const Shortint df_vv = 0x8;
|
|
static const Shortint df_bc = 0x10;
|
|
static const Shortint df_cv = 0x20;
|
|
static const Shortint df_PP = 0x40;
|
|
static const Byte df_RR = 0x80;
|
|
static const Shortint s_fv4a_b = 0x0;
|
|
static const Shortint s_fv4a_u = 0x1;
|
|
static const Shortint s_fv4a_e = 0x2;
|
|
static const Shortint s_fv4a_x = 0x3;
|
|
static const Shortint s_fv4a_t = 0x4;
|
|
static const Shortint bp_P10 = 0x0;
|
|
static const Shortint bp_P10Bg = 0x2;
|
|
static const Shortint bp_P10Bgu = 0x1;
|
|
static const Shortint bp_LLBg = 0x4;
|
|
static const Shortint bp_LLBgu = 0x3;
|
|
static const Shortint bp_LBg = 0x6;
|
|
static const Shortint bp_LBgu = 0x5;
|
|
static const Shortint bp_KBg = 0x8;
|
|
static const Shortint bp_KBgu = 0x7;
|
|
static const Shortint bp_D1 = 0x9;
|
|
static const Shortint bp_D2 = 0xa;
|
|
static const Shortint bp_FR513 = 0xb;
|
|
static const Shortint bp_Cosid = 0xc;
|
|
static const Shortint bp_PKPBg = 0xd;
|
|
static const Shortint bp_PKPBgu = 0xe;
|
|
static const Byte bp_MHS = 0x80;
|
|
static const Shortint bp_P10yBg = 0xf;
|
|
static const Shortint bp_P10yBgu = 0x10;
|
|
static const Shortint bp_FR510 = 0x11;
|
|
static const Shortint sf_Acc = 0x1;
|
|
static const Shortint sf_BR = 0x2;
|
|
static const Shortint sf_CylB = 0x4;
|
|
static const Shortint sf_CylU = 0x8;
|
|
static const Shortint sf_rel = 0x10;
|
|
static const Shortint sf_ep = 0x20;
|
|
static const Shortint bh_MIN = 0x0;
|
|
static const Shortint bh_MAX = 0x1;
|
|
static const Shortint bh_FS = 0x2;
|
|
static const Shortint bh_RP = 0x3;
|
|
static const Shortint bh_NP = 0x4;
|
|
static const Shortint bh_MB = 0x5;
|
|
static const Shortint bh_FB = 0x6;
|
|
static const Shortint bh_EB = 0x7;
|
|
static const Shortint bh_EPR = 0x8;
|
|
static const Shortint bh_EPN = 0x9;
|
|
static const Shortint bh_EPB = 0xa;
|
|
#define SpgD (7.917000E-01)
|
|
#define SpO (5.067000E-01)
|
|
extern PACKAGE double BPT[9][2];
|
|
extern PACKAGE double BPT_394[7][2];
|
|
static const Shortint i_bcpno = 0x6;
|
|
extern PACKAGE double __fastcall PF(double P1, double P2, double S, double DP);
|
|
extern PACKAGE double __fastcall PF1(double P1, double P2, double S);
|
|
extern PACKAGE double __fastcall PFVa(double PH, double PL, double S, double LIM, double DP);
|
|
extern PACKAGE double __fastcall PFVd(double PH, double PL, double S, double LIM, double DP);
|
|
|
|
} /* namespace Hamulce */
|
|
#if !defined(NO_IMPLICIT_NAMESPACE_USE)
|
|
using namespace Hamulce;
|
|
#endif
|
|
#pragma option pop // -w-
|
|
#pragma option pop // -Vx
|
|
|
|
#pragma delphiheader end.
|
|
//-- end unit ----------------------------------------------------------------
|
|
#endif // hamulce
|