Kompass 2D

[schand99]

Hier ein mega Film: http://80.247.70.136/downloads/cmps.zip
Die App läuft auf einem Samsung Galaxy S3 mini (und ruckelt^^) genauso schräg wie auf einem Sony Xperia Z3 Compact.
Wäre für jeden Tipp dankbar.

Berechne jetzt so, die Variablen HeadX, -Y und -Z sind so deklariert dass sie auch in anderen Funktionen sichtbar sind.

procedure TStartup.Timer2Timer(Sender: TObject);
Var
Vek:Single;
begin
if Kompass.Sensor.Started = True then
Begin
HeadX := Kompass.Sensor.HeadingX;
HeadY := Kompass.Sensor.HeadingY;
HeadZ := Kompass.Sensor.HeadingZ;
Vek := Sqrt(Power(HeadX,2) + Power(HeadY,2));
HeadX:=HeadX/Vek;
HeadY:=HeadY/Vek;
end;
End;

Irre simpel da mit HeadX und HeadY gezeichnet wird, aber leider sehr stark lageabhängig und somit nutzlos.