equal
deleted
inserted
replaced
1072 AddFileLog('OpenGL - "' + extension + '" loaded'); |
1072 AddFileLog('OpenGL - "' + extension + '" loaded'); |
1073 {$ENDIF} |
1073 {$ENDIF} |
1074 end; |
1074 end; |
1075 |
1075 |
1076 procedure SetupOpenGL; |
1076 procedure SetupOpenGL; |
1077 {$IFDEF DEBUGFILE} |
|
1078 var vendor: shortstring; |
1077 var vendor: shortstring; |
1079 {$ENDIF} |
|
1080 begin |
1078 begin |
1081 {$IFDEF IPHONEOS} |
1079 {$IFDEF IPHONEOS} |
1082 //these are good performance savers, perhaps we could enable them by default |
1080 //these are good performance savers, perhaps we could enable them by default |
1083 SDL_GL_SetAttribute(SDL_GL_DOUBLEBUFFER, 0); |
1081 SDL_GL_SetAttribute(SDL_GL_DOUBLEBUFFER, 0); |
1084 SDL_GL_SetAttribute(SDL_GL_RETAINED_BACKING, 1); |
1082 SDL_GL_SetAttribute(SDL_GL_RETAINED_BACKING, 1); |
1101 SDL_GL_SetAttribute(SDL_GL_SWAP_CONTROL, 1); |
1099 SDL_GL_SetAttribute(SDL_GL_SWAP_CONTROL, 1); |
1102 {$ENDIF} |
1100 {$ENDIF} |
1103 |
1101 |
1104 glGetIntegerv(GL_MAX_TEXTURE_SIZE, @MaxTextureSize); |
1102 glGetIntegerv(GL_MAX_TEXTURE_SIZE, @MaxTextureSize); |
1105 |
1103 |
|
1104 vendor:= LowerCase(string(pchar(glGetString(GL_VENDOR)))); |
1106 {$IFDEF DEBUGFILE} |
1105 {$IFDEF DEBUGFILE} |
1107 vendor:= LowerCase(string(pchar(glGetString(GL_VENDOR)))); |
|
1108 |
|
1109 AddFileLog('OpenGL - Renderer: ' + string(pchar(glGetString(GL_RENDERER)))); |
1106 AddFileLog('OpenGL - Renderer: ' + string(pchar(glGetString(GL_RENDERER)))); |
1110 AddFileLog(' |----- Vendor: ' + vendor); |
1107 AddFileLog(' |----- Vendor: ' + vendor); |
1111 AddFileLog(' |----- Version: ' + string(pchar(glGetString(GL_VERSION)))); |
1108 AddFileLog(' |----- Version: ' + string(pchar(glGetString(GL_VERSION)))); |
1112 AddFileLog(' \----- GL_MAX_TEXTURE_SIZE: ' + inttostr(MaxTextureSize)); |
1109 AddFileLog(' \----- GL_MAX_TEXTURE_SIZE: ' + inttostr(MaxTextureSize)); |
1113 {$ENDIF} |
1110 {$ENDIF} |
1166 |
1163 |
1167 cScaleFactor:= f; |
1164 cScaleFactor:= f; |
1168 end; |
1165 end; |
1169 |
1166 |
1170 //////////////////////////////////////////////////////////////////////////////// |
1167 //////////////////////////////////////////////////////////////////////////////// |
1171 var Step: LongInt = 0; |
1168 var Step: LongInt = 0; |
1172 squaresize : LongInt; |
1169 squaresize : LongInt; |
1173 numsquares : LongInt; |
1170 numsquares : LongInt; |
1174 {$IFDEF SDL13notworking} |
1171 {$IFDEF SDL13notworking} |
1175 ProgrTex: TSDL_TextureID = 0; |
1172 ProgrTex: TSDL_TextureID = 0; |
1176 {$ELSE} |
1173 {$ELSE} |