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 

  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);

  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;