equal
deleted
inserted
replaced
1269 |
1269 |
1270 squaresize:= texsurf^.w shr 1; |
1270 squaresize:= texsurf^.w shr 1; |
1271 numsquares:= texsurf^.h div squaresize; |
1271 numsquares:= texsurf^.h div squaresize; |
1272 SDL_FreeSurface(texsurf); |
1272 SDL_FreeSurface(texsurf); |
1273 |
1273 |
1274 doSomethingWhen_AddProgress(); |
1274 perfExt_AddProgress(); |
1275 end; |
1275 end; |
1276 |
1276 |
1277 TryDo(ProgrTex <> nil, 'Error - Progress Texure is nil!', true); |
1277 TryDo(ProgrTex <> nil, 'Error - Progress Texure is nil!', true); |
1278 |
1278 |
1279 glClear(GL_COLOR_BUFFER_BIT); |
1279 glClear(GL_COLOR_BUFFER_BIT); |
1296 |
1296 |
1297 procedure FinishProgress; |
1297 procedure FinishProgress; |
1298 begin |
1298 begin |
1299 WriteLnToConsole('Freeing progress surface... '); |
1299 WriteLnToConsole('Freeing progress surface... '); |
1300 FreeTexture(ProgrTex); |
1300 FreeTexture(ProgrTex); |
1301 doSomethingWhen_FinishProgress(); |
1301 perfExt_FinishProgress(); |
1302 end; |
1302 end; |
1303 |
1303 |
1304 procedure flipSurface(Surface: PSDL_Surface; Vertical: Boolean); |
1304 procedure flipSurface(Surface: PSDL_Surface; Vertical: Boolean); |
1305 var y, x, i, j: LongInt; |
1305 var y, x, i, j: LongInt; |
1306 tmpPixel: Longword; |
1306 tmpPixel: Longword; |