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.