hedgewars/uLandTexture.pas
changeset 3491 4619b1ae99b5
parent 3165 3ec07a7d8456
child 3509 d72c2219595d
equal deleted inserted replaced
3490:016b3172b645 3491:4619b1ae99b5
    81 begin
    81 begin
    82 if LandTextures[0, 0].tex = nil then
    82 if LandTextures[0, 0].tex = nil then
    83     for x:= 0 to LANDTEXARW -1 do
    83     for x:= 0 to LANDTEXARW -1 do
    84         for y:= 0 to LANDTEXARH - 1 do
    84         for y:= 0 to LANDTEXARH - 1 do
    85             with LandTextures[x, y] do
    85             with LandTextures[x, y] do
    86                 tex:= NewTexture(TEXSIZE, TEXSIZE, Pixels(x, y))
    86                 begin
       
    87                     tex:= NewTexture(TEXSIZE, TEXSIZE, Pixels(x, y));
       
    88                     glBindTexture(GL_TEXTURE_2D, tex^.id);
       
    89                     glTexParameterf(GL_TEXTURE_2D, GL_TEXTURE_PRIORITY, tpHigh);
       
    90                 end
    87 else
    91 else
    88     for x:= 0 to LANDTEXARW -1 do
    92     for x:= 0 to LANDTEXARW -1 do
    89         for y:= 0 to LANDTEXARH - 1 do
    93         for y:= 0 to LANDTEXARH - 1 do
    90             with LandTextures[x, y] do
    94             with LandTextures[x, y] do
    91                 if shouldUpdate then
    95                 if shouldUpdate then