equal
deleted
inserted
replaced
1157 |
1157 |
1158 glMatrixMode(GL_MODELVIEW); |
1158 glMatrixMode(GL_MODELVIEW); |
1159 // prepare default translation/scaling |
1159 // prepare default translation/scaling |
1160 glLoadIdentity(); |
1160 glLoadIdentity(); |
1161 glScalef(2.0 / cScreenWidth, -2.0 / cScreenHeight, 1.0); |
1161 glScalef(2.0 / cScreenWidth, -2.0 / cScreenHeight, 1.0); |
1162 //{$IFDEF IPHONEOS} |
1162 {$IFDEF IPHONEOS} |
1163 //glRotatef(90, 0, 0, 1); |
1163 //glRotatef(90, 0, 0, 1); |
1164 //{$ENDIF} |
1164 {$ENDIF} |
1165 glTranslatef(0, -cScreenHeight / 2, 0); |
1165 glTranslatef(0, -cScreenHeight / 2, 0); |
1166 |
1166 |
1167 // enable alpha blending |
1167 // enable alpha blending |
1168 glEnable(GL_BLEND); |
1168 glEnable(GL_BLEND); |
1169 glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA); |
1169 glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA); |
1179 else // other scaling |
1179 else // other scaling |
1180 begin |
1180 begin |
1181 glPushMatrix; // save default scaling |
1181 glPushMatrix; // save default scaling |
1182 glLoadIdentity; |
1182 glLoadIdentity; |
1183 glScalef(f / cScreenWidth, -f / cScreenHeight, 1.0); |
1183 glScalef(f / cScreenWidth, -f / cScreenHeight, 1.0); |
1184 //{$IFDEF IPHONEOS} |
1184 {$IFDEF IPHONEOS} |
1185 // glRotatef(90, 0, 0, 1); |
1185 // glRotatef(90, 0, 0, 1); |
1186 //{$ENDIF} |
1186 {$ENDIF} |
1187 glTranslatef(0, -cScreenHeight / 2, 0); |
1187 glTranslatef(0, -cScreenHeight / 2, 0); |
1188 end; |
1188 end; |
1189 |
1189 |
1190 cScaleFactor:= f; |
1190 cScaleFactor:= f; |
1191 end; |
1191 end; |
1234 |
1234 |
1235 procedure FinishProgress; |
1235 procedure FinishProgress; |
1236 begin |
1236 begin |
1237 WriteLnToConsole('Freeing progress surface... '); |
1237 WriteLnToConsole('Freeing progress surface... '); |
1238 FreeTexture(ProgrTex); |
1238 FreeTexture(ProgrTex); |
1239 ProgrTex:= nil |
1239 ProgrTex:= nil; |
|
1240 |
|
1241 {$IFDEF IPHONEOS} |
|
1242 // show overlay buttons |
|
1243 IPH_showControls; |
|
1244 {$ENDIF} |
|
1245 |
1240 end; |
1246 end; |
1241 |
1247 |
1242 procedure flipSurface(Surface: PSDL_Surface; Vertical: Boolean); |
1248 procedure flipSurface(Surface: PSDL_Surface; Vertical: Boolean); |
1243 var y, x, i, j: LongInt; |
1249 var y, x, i, j: LongInt; |
1244 tmpPixel: Longword; |
1250 tmpPixel: Longword; |