Witam
Problem jest następujący: Otóz mam pewna procedure która porusza widza względem osi x,y,z, obrót oka następuje względem k (kąt poziomy oka) do rzeczy:
poruszanie jest za pomocą klawiszy W,S,A,D
var
K : Real = 0; // kąt poziomy obr. oka
PosX: Real = 0;
PosZ: Real = 0;
// k = od 0 do 360
procedure TOpenGLform.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key = #97 then posX := posX + 0.1;
if key = #100 then posX := posX - 0.1;
if key = #119 then posZ := posZ + 0.1;
if key = #115 then posZ := posZ - 0.1;
end;
w jaki sposób przerobic kod by poruszanie klawiszami W,S,A,D bylo zintegrowane ze skierowaniem oka (K) w dana strone? Ew. moze byc poruszanie tylko klawiszem [W]
z gory dziekuje :)