// 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.h>	// 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 TMHZ_EN57;
class PASCALIMPLEMENTATION TMHZ_EN57 : public THandle 
{
	typedef THandle inherited;
	
private:
	double CP;
	double TP;
	double RP;
	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);
	virtual double __fastcall GetCP(void);
	double __fastcall GetEP(double pos);
public:
	#pragma option push -w-inl
	/* TObject.Create */ inline __fastcall TMHZ_EN57(void) : THandle() { }
	#pragma option pop
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TMHZ_EN57(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
