(*
Steuert die Rakete nach links/rechts
*)
procedure SteerShipLR(Speed: float);
var v: TVec;
begin
  if KeyDown(VK_LEFT) then begin
    Ship.SetCoordAngle(-90,0,30);
    Ship.Move(-LastFrameTime*Speed,0,0);
  end else
  if KeyDown(VK_RIGHT) then begin
    Ship.SetCoordAngle(-90,0,-30);
    Ship.Move(LastFrameTime*Speed,0,0);
  end else
  begin
    Ship.SetCoordAngle(-90,0,0);
  end;
  v := Ship.GetPosv;
  if v.x<-1 then v.x := -1;
  if v.x>1 then v.x := 1;
  Ship.SetPosv(v);
end;