799 SpritesData[ii].Surface:= nil; |
801 SpritesData[ii].Surface:= nil; |
800 end; |
802 end; |
801 SDL_FreeSurface(MissionIcons); |
803 SDL_FreeSurface(MissionIcons); |
802 FreeTexture(ropeIconTex); |
804 FreeTexture(ropeIconTex); |
803 FreeTexture(HHTexture); |
805 FreeTexture(HHTexture); |
|
806 if isStereoEnabled then |
|
807 begin |
|
808 glDeleteTextures(1, @texl); |
|
809 glDeleteRenderbuffersEXT(1, @depthl); |
|
810 glDeleteFramebuffersEXT(1, @framel); |
|
811 glDeleteTextures(1, @texr); |
|
812 glDeleteRenderbuffersEXT(1, @depthr); |
|
813 glDeleteFramebuffersEXT(1, @framer) |
|
814 end |
804 end; |
815 end; |
805 |
816 |
806 |
817 |
807 function CheckCJKFont(s: ansistring; font: THWFont): THWFont; |
818 function CheckCJKFont(s: ansistring; font: THWFont): THWFont; |
808 var l, i : LongInt; |
819 var l, i : LongInt; |
1168 {$IFDEF DEBUGFILE} |
1179 {$IFDEF DEBUGFILE} |
1169 AddFileLog('OpenGL Warning - driver didn''t provide any valid max texture size; assuming 1024'); |
1180 AddFileLog('OpenGL Warning - driver didn''t provide any valid max texture size; assuming 1024'); |
1170 {$ENDIF} |
1181 {$ENDIF} |
1171 end; |
1182 end; |
1172 |
1183 |
1173 {$IFNDEF IPHONEOS} |
1184 {$IFDEF IPHONEOS} |
|
1185 cGPUVendor:= gvApple; |
|
1186 {$ELSE} |
1174 if StrPos(Str2PChar(vendor), Str2PChar('nvidia')) <> nil then |
1187 if StrPos(Str2PChar(vendor), Str2PChar('nvidia')) <> nil then |
1175 cGPUVendor:= gvNVIDIA |
1188 cGPUVendor:= gvNVIDIA |
1176 else if StrPos(Str2PChar(vendor), Str2PChar('intel')) <> nil then |
1189 else if StrPos(Str2PChar(vendor), Str2PChar('intel')) <> nil then |
1177 cGPUVendor:= gvATI |
1190 cGPUVendor:= gvATI |
1178 else if StrPos(Str2PChar(vendor), Str2PChar('ati')) <> nil then |
1191 else if StrPos(Str2PChar(vendor), Str2PChar('ati')) <> nil then |
1179 cGPUVendor:= gvIntel; |
1192 cGPUVendor:= gvIntel; |
1180 //SupportNPOTT:= glLoadExtension('GL_ARB_texture_non_power_of_two'); |
1193 //SupportNPOTT:= glLoadExtension('GL_ARB_texture_non_power_of_two'); |
1181 {$ELSE} |
1194 if isStereoEnabled then |
1182 cGPUVendor:= gvApple; |
1195 begin |
|
1196 glLoadExtension('GL_EXT_framebuffer_object'); |
|
1197 glGenFramebuffersEXT(1, @framel); |
|
1198 glBindFramebufferEXT(GL_FRAMEBUFFER_EXT, framel); |
|
1199 glGenRenderbuffersEXT(1, @depthl); |
|
1200 glBindRenderbufferEXT(GL_RENDERBUFFER_EXT, depthl); |
|
1201 glRenderbufferStorageEXT(GL_RENDERBUFFER_EXT, GL_DEPTH_COMPONENT, cScreenWidth, cScreenHeight); |
|
1202 glFramebufferRenderbufferEXT(GL_FRAMEBUFFER_EXT, GL_DEPTH_ATTACHMENT_EXT, GL_RENDERBUFFER_EXT, depthl); |
|
1203 glGenTextures(1, @texl); |
|
1204 glBindTexture(GL_TEXTURE_2D, texl); |
|
1205 glTexImage2D(GL_TEXTURE_2D, 0, GL_RGBA8, cScreenWidth, cScreenHeight, 0, GL_RGBA, GL_UNSIGNED_BYTE, nil); |
|
1206 glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR); |
|
1207 glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR); |
|
1208 glFramebufferTexture2DEXT(GL_FRAMEBUFFER_EXT, GL_COLOR_ATTACHMENT0_EXT, GL_TEXTURE_2D, texl, 0); |
|
1209 |
|
1210 glGenFramebuffersEXT(1, @framer); |
|
1211 glBindFramebufferEXT(GL_FRAMEBUFFER_EXT, framer); |
|
1212 glGenRenderbuffersEXT(1, @depthr); |
|
1213 glBindRenderbufferEXT(GL_RENDERBUFFER_EXT, depthr); |
|
1214 glRenderbufferStorageEXT(GL_RENDERBUFFER_EXT, GL_DEPTH_COMPONENT, cScreenWidth, cScreenHeight); |
|
1215 glFramebufferRenderbufferEXT(GL_FRAMEBUFFER_EXT, GL_DEPTH_ATTACHMENT_EXT, GL_RENDERBUFFER_EXT, depthr); |
|
1216 glGenTextures(1, @texr); |
|
1217 glBindTexture(GL_TEXTURE_2D, texr); |
|
1218 glTexImage2D(GL_TEXTURE_2D, 0, GL_RGBA8, cScreenWidth, cScreenHeight, 0, GL_RGBA, GL_UNSIGNED_BYTE, nil); |
|
1219 glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR); |
|
1220 glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR); |
|
1221 glFramebufferTexture2DEXT(GL_FRAMEBUFFER_EXT, GL_COLOR_ATTACHMENT0_EXT, GL_TEXTURE_2D, texr, 0); |
|
1222 |
|
1223 glBindFramebufferEXT(GL_FRAMEBUFFER_EXT, 0) |
|
1224 end; |
1183 {$ENDIF} |
1225 {$ENDIF} |
1184 |
1226 |
1185 {$IFDEF DEBUGFILE} |
1227 {$IFDEF DEBUGFILE} |
1186 if cGPUVendor = gvUnknown then |
1228 if cGPUVendor = gvUnknown then |
1187 AddFileLog('OpenGL Warning - unknown hardware vendor; please report'); |
1229 AddFileLog('OpenGL Warning - unknown hardware vendor; please report'); |