kam-mobile/code/GameInitialize.pas

unit GameInitialize;
{$mode objfpc}{$H+}
{$ifndef ANDROID}{$fatal Android-only KaM Remake Mobile application; there is no desktop target}{$endif}
interface
implementation
uses CastleWindow, CastleApplicationProperties, CastleGLUtils, GameDiagnosticsView, KM_GameApp_Mobile;
var
  Window: TCastleWindow;
  DiagnosticsView: TDiagnosticsView;
procedure Initialize;
begin
  DiagnosticsView := TDiagnosticsView.Create(Application);
  Window.Container.View := DiagnosticsView;
  KMGameAppMobileInstallPresentation(Window.Container);
end;
initialization
  Application.OnInitialize := @Initialize;
  ApplicationProperties.LimitFPS := 60;
  TGLFeatures.RequestCapabilities := rcAutomatic;
  Window := TCastleWindow.Create(Application);
  Window.AutoRedisplay := True;
  Application.MainWindow := Window;
end.