Facharbeit - 3D Topographie anzeigen

[Ravager]

hi,

danke schonmal - alles geht (Das Programm läuft)

ich habe versucht, das ganze auf mein Programm (möglichst simpel) zu übertragen.

Und beim Kopieren & Starten produziert er folgende Fehler:
[Error] Test2a.pas(2): Undeclared identifier: 'TColorVector'
[Error] Test2a.pas(2): Undeclared identifier: 'TTexPoint'

Code:

procedure Formula(const x, y: Single; var z: Single;
  var color: TColorVector; var texPoint: TTexPoint);
const
  Scale = 100;
begin
  z := VectorNorm(x, y);

  // x & y-Pos vom Array umrechnen
  z := data_dst_light[Trunc(x * 100), Trunc(y * 100)] / Scale;

  // nach Höhe einfärben
  VectorLerp(clrBlue, clrRed, z, color);
end;

Wo kommen denn die Typen her? ich use die selben klassen, wie du.

Wenn man auf das HeightField Event OnHeightGet doppelklickt, wird eine neue Prozedur erstellt:

Code:

procedure TForm1.GLHeightField1GetHeight(Sender: TObject; const x,
  y: Single; var z: Single; var color: TVector4f; var texPoint: TTexPoint);
begin

also statt TColorVector heißt der Variablentyp TVector4f...
[Error] Test2a.pas(375): Undeclared identifier: 'TVector4f'
[Error] Test2a.pas(375): Undeclared identifier: 'TTexPoint'


Gefunden wird er trotzdem nicht...

hat das etwas mit den anderen packages zu tun?
GLScene7.dpk hab ich installiert, den Rest nicht.