unit FahrleitungsTypen;
                                        
interface

uses Winapi.Direct3D9, Winapi.DXTypes,

     Winapi.D3DX9;

type

  TLinie = packed record
    Punkt1,
    Punkt2:TD3DVector;
    Staerke:single;
    Farbe:TD3DColorValue;
    Zwangshelligkeit:single;
  end;

  TVerknuepfung = packed record
    Punktxyz,
    PunktPhixyz:TD3DVector;
    Datei:PAnsiChar;
  end;

  TQuertragwerkabspannung = packed record
    AbstandVonA: single;
    Bautyp:integer;
    Kruemmung:single;
    Ueberhoehung: single;
  end;

  TErgebnis = packed record
    iDraht,
    iDatei:Longword;
  end;

  TFahrleitungstyp = ( Fahrl_Ohne,
                       Fahrl_Unbestimmt,
                       Fahrl_15kV16Hz,
                       Fahrl_25kV50Hz,
                       Fahrl_1500VDC,
                       Fahrl_1200VDCHamburg,
                       Fahrl_3kVDC,
                       Fahrl_750VDCBerlin,
                       Fahrl_Bordsystem);

const
  Gruppefahrleitung = 'Fahrleitung';  

implementation

end.
