hedgewars/uStore.pas
changeset 1045 ea195268734f
parent 1023 2a32ee7affa3
child 1066 1f1b3686a2b0
equal deleted inserted replaced
1044:f759aae1062f 1045:ea195268734f
   615    WriteToConsole(msgLoading + 'progress sprite: ');
   615    WriteToConsole(msgLoading + 'progress sprite: ');
   616    texsurf:= LoadImage(Pathz[ptGraphics] + '/Progress', false, true, true);
   616    texsurf:= LoadImage(Pathz[ptGraphics] + '/Progress', false, true, true);
   617    ProgrTex:= Surface2Tex(texsurf);
   617    ProgrTex:= Surface2Tex(texsurf);
   618    SDL_FreeSurface(texsurf)
   618    SDL_FreeSurface(texsurf)
   619    end;
   619    end;
       
   620 
   620 glClear(GL_COLOR_BUFFER_BIT);
   621 glClear(GL_COLOR_BUFFER_BIT);
   621 glEnable(GL_TEXTURE_2D);
   622 glEnable(GL_TEXTURE_2D);
   622 r.x:= 0;
   623 r.x:= 0;
   623 r.w:= ProgrTex^.w;
   624 r.w:= ProgrTex^.w;
   624 r.h:= ProgrTex^.w;
   625 r.h:= ProgrTex^.w;