1:
2:
3:
4:
5:

  if oPit.InPit then                             // In der Boxengasse den
    Offset := Mult(oCurrSec.Tor2D,Sub(S,P))      // Offset aus Rennstrecke
  else                                           // statt Fahrzeug ermitteln
    Offset := PlanOffset;                        // ansonsten je nach
  Result := Add(S,Mult(-Offset,N));              // Situation steuern					

1:

  if Distance > 0.9 * Driver.Opponents[I].Distance then					

1:
2:
3:
4:

<attnum name="max pressure" unit="kPa" min="100" max="150000" val="43000"/>
..
<attnum name="shift" unit="1" min="0" max="1.0" val="0.91"/>
<attnum name="shiftmargin" unit="1" min="0" max="10" val="4.0"/>					

1:
2:
3:
4:

<attnum name="max pressure" unit="kPa" min="100" max="150000" val="100"/>
..
<attnum name="shift" unit="1" min="0" max="1.0" val="0.2"/>
<attnum name="shiftmargin" unit="1" min="0" max="10" val="10.0"/>					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:

//==========================================================================*
// Bremsweg schätzen
//--------------------------------------------------------------------------*
function TDriver.BrakeDist(TargetSpeedSqr, Mu: Tdble): Tdble;
var
  C, D: Tdble;
begin
  C := Mu * G;
  D := (Ca * Mu + Cw) / Mass;
  Result := -ln((C + TargetSpeedSqr*D) / (C + CurrSpeedSqr*D)) / (2.0 * D);
end;
//==========================================================================*

//==========================================================================*
// Bremsweg schätzen
//--------------------------------------------------------------------------*
function TDriver.BrakeDist(ActSpeedSqr,TargetSpeedSqr, Mu: Tdble): Tdble;
var
  C, D: Tdble;
begin
  C := Mu * G;
  D := (Ca * Mu + Cw) / Mass;
  Result := -ln((C + TargetSpeedSqr*D) / (C + ActSpeedSqr*D)) / (2.0 * D);
end;
//==========================================================================*

//==========================================================================*
// Bremsweg schätzen
//--------------------------------------------------------------------------*
class function TDriver.BrakeDist(ActSpeedSqr,TargetSpeedSqr
  ,Mu,Ca,Cw,Mass: Tdble): Tdble;
var
  C, D: Tdble;
begin
  C := Mu * G;
  D := (Ca * Mu + Cw) / Mass;
  Result := -ln((C + TargetSpeedSqr*D) / (C + ActSpeedSqr*D)) / (2.0 * D);
end;
//==========================================================================*					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:

//==========================================================================*
// Geschwindigkeitsregelung zur Einhaltung des Tempolimits in der Boxengasse
//--------------------------------------------------------------------------*
function TFilterBrakePit.Filter(Signal: Tdble):Tdble;
const
  PIT_BRAKE_AHEAD = 200.0; // [m] Workaround for "broken" pitentries
var
  DL, Dw: Tdble;
  S: Tdble;
  Dist: Tdble;
begin
  Result := Signal;

  if oDriver.Pit.PitStop                         // Anfahrt zum Eingang
    and (not oDriver.Pit.InPit) then             // der Boxengasse?
  begin                                          // Falls Einfahrt zur Box
    RtDistToPit                                  // sehr kurz ist, Abstand
      (oDriver.Car^,oDriver.Track^,DL,Dw);       // Box bestimmen
    if DL < PIT_BRAKE_AHEAD then                 // und Bremspunkt
    begin                                        // überwachen, ggf.
      if Driver.BrakeDist(0.0,oDriver.PitMu) > DL then
      begin                                      //   Sofort
        Result := 1.0;                           //   eine Vollbremsung
        Exit;                                    //   hinlegen
      end;
    end;
  end;

  if oDriver.Pit.InPit then                      // Sind wir in Boxengasse?
  begin                                          // Wenn ja
    S := oDriver.Pit.Station(oDriver.DistFromStartLine);
    if oDriver.Pit.PitStop then                  //   noch auf der Anfahrt?
    begin
      Dist := oDriver.Pit.NPitStart - S;         // Abstand vom Beginn Temol.
                                                 // Bremspunkt bezogen auf
                                                 // Beginn des Tempolimits
      if ((S < oDriver.Pit.NPitStart)            // oder Tempolimit selbst
        and (oDriver.BrakeDist(oDriver.Pit.SpeedLimit,Driver.PitMu) > Dist))
        or ((S > oDriver.Pit.NPitStart)
        and (oDriver.CurrSpeedSqr > oDriver.Pit.SpeedLimitSqr)) then
        Result := oDriver.Pit.GetPitSpeedLimitBrake(Driver.CurrSpeedSqr);

      Dist := oDriver.Pit.NPitLoc - S;           // Abstand von der Box
      if oDriver.Pit.IsTimeout(Dist) then        // Abbruch wenn kein Service
      begin
        oDriver.Pit.PitStop := False;
        Result := 0.0;
      end
      else // Zusätzlich überwachen: Bremspunkt für Stillstand in Box
      begin
        if (S <= oDriver.Pit.NPitLoc)            // Wir sind noch vor der Box
          and (oDriver.BrakeDistPit > Dist) then // haben aber Bremspunkt für
          Result := 1.0                          //   Box schon erreicht
        else if S > oDriver.Pit.NPitLoc then     // Wir sind angekommen
        begin                                    // Beim Stehen in der Box
          oDriver.GearCmd := 0;                  //   Gang raus
          oDriver.AccelCmd := 0.0;               //   Gas weg
          oDriver.Standing := True;              //   Flag für Unstuck-Pause
          oDriver.ClutchCmd := 1.0;              //   Kupplung treten
          Result := 1.0;                         //   Bremsen
        end;
      end;
    end
    else // Wir sind schon auf der Ausfahrt
    begin
      if S < oDriver.Pit.NPitEnd then
      begin // Noch gilt Tempolimit
        if oDriver.CurrSpeedSqr > oDriver.Pit.SpeedLimitSqr then
          Result := oDriver.Pit.GetPitSpeedLimitBrake(Driver.CurrSpeedSqr);
      end;
    end;
  end;
end;
//==========================================================================*

//==========================================================================*
// Abbremsen wegen eines Rivalen oder eines Teammitgliedes
//--------------------------------------------------------------------------*
function TFilterBrakeColl.Filter(Signal: Tdble): Tdble;
var
  I: Int;
  Mu: Tdble;
  Distance: Tdble;
begin
  Result := Signal;

  Mu := Driver.Mu;
  for I := 0 to Driver.Opponents.Count - 1 do
  begin
    if (Driver.Opponents[I].State and OPP_TEAMBRAKE) <> 0 then
      Result := Max(0.5,Result);

    if (Driver.Opponents[I].State and OPP_COLL) <> 0 then
    begin
      Distance := FRONTCOLL_MARGIN + Driver.BrakeDist    // Hier wird er gebraucht
        (Driver.SpeedX,Driver.Opponents[I].Speed,Mu);
      if Distance > 0.9 * Driver.Opponents[I].Distance then
      begin
        Result := 1.0;
        Exit;
      end;
    end;
  end;
end;
//==========================================================================*					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:

const
BOTNAME_ATT_WIDTHDIV = 'useable road width';   // Anteil Fahrbahn
dann:
TDriver = class(TDriverBaseClass)
  private
    oActOffset: Tdble;                           // Kursabweichung
    oAeroMagic: Tdble;                           // Ca-Tuningfaktor
    oAlone: Integer;                             // Indikator für Umfeld
    oBorder: Tdble;                              // Randabstand
    oBrakeDistPit: Tdble;                        // Bremsabstand für Box

    oWidthDiv : tDble;                           // Nutzbare Strassenbreite
.....
  property WidthDiv : tDble
      read oWidthDiv;
  
//==========================================================================*
// Experte für die Einstellung des Rennwagens
//--------------------------------------------------------------------------*
procedure TDriver.GetParamExpert(var CarSettings: PCarSettings);
var
  Fuel: Tdble;
begin
....
 oWidthDiv := GfParmGetNum(CarSettings
    , BOTNAME_PRIV, BOTNAME_ATT_WIDTHDIV
    ,nil,3.0);
  WriteLn(Format('WidthDiv: %0.2f',[oWidthDiv]));
....					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

    begin
      Tm := Abs(Driver.ToMiddle);
      W := Seg.Width / Driver.WidthDiv;
      if Tm > W then
        Result := 0;
    end;
  end;
end;
//==========================================================================*
end.
//--------------------------------------------------------------------------*
// end of file UnitFilter.pas
//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++*					

1:

    <attnum name="useable road width" unit="1" min="2" max="100" val="2"/>