1 (* Copyright (C) Doom 2D: Forever Developers
2 *
3 * This program is free software: you can redistribute it and/or modify
4 * it under the terms of the GNU General Public License as published by
5 * the Free Software Foundation, version 3 of the License ONLY.
6 *
7 * This program is distributed in the hope that it will be useful,
8 * but WITHOUT ANY WARRANTY; without even the implied warranty of
9 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
10 * GNU General Public License for more details.
11 *
12 * You should have received a copy of the GNU General Public License
13 * along with this program. If not, see <http://www.gnu.org/licenses/>.
14 *)
15 {$INCLUDE ../../shared/a_modes.inc}
18 interface
32 implementation
34 uses
35 {$INCLUDE ../../nogl/noGLuses.inc}
41 ;
43 var
47 begin
49 begin
50 {$IFDEF NOGL_INIT}
51 nogl_Init;
53 begin
57 {$ELSE}
59 begin
63 {$ENDIF}
65 end
69 begin
71 begin
72 {$IFDEF NOGL_INIT}
73 nogl_Quit;
74 {$ENDIF}
76 end
80 begin
81 r_Player_Load;
82 r_Map_Load;
83 r_PlayerModel_Load;
84 r_Monsters_Load;
85 r_Weapon_Load;
86 r_Items_Load;
87 r_GFX_Load;
91 begin
92 r_GFX_Free;
93 r_Items_Free;
94 r_Weapon_Free;
95 r_Monsters_Free;
96 r_PlayerModel_Free;
97 r_Map_Free;
98 r_Player_Free;
102 begin
105 LoadGL;
106 r_Window_Initialize;
107 r_Console_Init;
108 r_PlayerModel_Initialize;
109 r_Map_Initialize;
113 begin
114 r_Map_Finalize;
115 r_PlayerModel_Finalize;
116 FreeGL;
117 e_ReleaseEngine
121 begin
122 r_Map_Update;
123 r_PlayerModel_Update;
127 begin
128 LoadGL;
134 begin
135 // store real window size in gWinSize, downscale resolution now
139 begin
149 e_InitGL
153 begin
154 if sys_SetDisplayMode(Max(1, gRC_Width), Max(1, gRC_Height), Max(1, gBPP), gRC_FullScreen, gRC_Maximized) then
156 else