hedgewars/uMisc.pas
changeset 762 5ecf042f6113
parent 759 8da05b316d81
child 771 86fbe8753a7c
equal deleted inserted replaced
761:63ae90011a52 762:5ecf042f6113
    53     cAltDamage       : boolean = true;
    53     cAltDamage       : boolean = true;
    54 
    54 
    55     GameTicks     : LongWord = 0;
    55     GameTicks     : LongWord = 0;
    56 
    56 
    57     cSkyColor     : Longword = 0;
    57     cSkyColor     : Longword = 0;
    58     cWaterColor   : Longword = $005ACE;
    58     cWaterColor   : Longword = $FF005ACE;
    59     cWhiteColor   : Longword = $FFFFFF;
    59     cWhiteColor   : Longword = $FFFFFFFF;
    60     cConsoleSplitterColor : Longword = $FF0000;
    60     cConsoleSplitterColor : Longword = $FFFF0000;
    61     cColorNearBlack       : Longword = 16;
    61     cColorNearBlack       : Longword = $FF000010;
    62     cExplosionBorderColor : LongWord = $808080;
    62     cExplosionBorderColor : LongWord = $808080;
    63 
    63 
    64     cShowFPS      : boolean = true;
    64     cShowFPS      : boolean = true;
    65     cCaseFactor   : Longword = 6;  {0..9}
    65     cCaseFactor   : Longword = 6;  {0..9}
    66     cLandAdditions: Longword = 4;
    66     cLandAdditions: Longword = 4;
   281 glTexImage2D(GL_TEXTURE_2D, 0, mode, surf^.w, surf^.h, 0, mode, GL_UNSIGNED_BYTE, surf^.pixels);
   281 glTexImage2D(GL_TEXTURE_2D, 0, mode, surf^.w, surf^.h, 0, mode, GL_UNSIGNED_BYTE, surf^.pixels);
   282 
   282 
   283 if SDL_MustLock(surf) then
   283 if SDL_MustLock(surf) then
   284    SDL_UnlockSurface(surf);
   284    SDL_UnlockSurface(surf);
   285 
   285 
   286 glTexParameteri(GL_TEXTURE_2D,GL_TEXTURE_MIN_FILTER,GL_NEAREST);
   286 glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_NEAREST);
   287 glTexParameteri(GL_TEXTURE_2D,GL_TEXTURE_MAG_FILTER,GL_LINEAR)
   287 glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR)
   288 end;
   288 end;
   289 
   289 
   290 procedure FreeTexture(tex: PTexture);
   290 procedure FreeTexture(tex: PTexture);
   291 begin
   291 begin
   292 glDeleteTextures(1, @tex^.id);
   292 glDeleteTextures(1, @tex^.id);