Now land texture renders properly
authorunc0rr
Sun, 27 Jan 2008 13:23:57 +0000
changeset 760 23aaafa40b4e
parent 759 8da05b316d81
child 761 63ae90011a52
Now land texture renders properly
hedgewars/uConsts.pas
hedgewars/uLand.pas
hedgewars/uWorld.pas
--- a/hedgewars/uConsts.pas	Sat Jan 26 10:55:34 2008 +0000
+++ b/hedgewars/uConsts.pas	Sun Jan 27 13:23:57 2008 +0000
@@ -111,7 +111,7 @@
 
       MAXNAMELEN = 32;
 
-      COLOR_LAND = $FFFFFFF;
+      COLOR_LAND = $00FFFFFF;
 
       cifRandomize = $00000001;
       cifTheme     = $00000002;
--- a/hedgewars/uLand.pas	Sat Jan 26 10:55:34 2008 +0000
+++ b/hedgewars/uLand.pas	Sun Jan 27 13:23:57 2008 +0000
@@ -313,9 +313,10 @@
       end;
 SDL_FreeSurface(tmpsurf);
 
+
 tmpsurf:= SDL_CreateRGBSurfaceFrom(@Land, 2048, 1024, 32, 2048*4, RMask, GMask, BMask, 0);
 SDLTry(tmpsurf <> nil, true);
-//SDL_SetColorKey(tmpsurf, SDL_SRCCOLORKEY, SDL_MapRGB(tmpsurf^.format, $FF, $FF, $FF));
+SDL_SetColorKey(tmpsurf, SDL_SRCCOLORKEY, SDL_MapRGB(tmpsurf^.format, $FF, $FF, $FF));
 SDL_UpperBlit(tmpsurf, nil, Surface, nil);
 SDL_FreeSurface(tmpsurf)
 end;
@@ -527,7 +528,6 @@
 TryDo(LandSurface <> nil, 'Error creating land surface', true);
 SDL_FillRect(LandSurface, nil, 0);
 AddProgress;
-
 SDL_SetColorKey(tmpsurf, SDL_SRCCOLORKEY, 0);
 AddObjects(tmpsurf, LandSurface);
 SDL_FreeSurface(tmpsurf);
--- a/hedgewars/uWorld.pas	Sat Jan 26 10:55:34 2008 +0000
+++ b/hedgewars/uWorld.pas	Sun Jan 27 13:23:57 2008 +0000
@@ -375,7 +375,6 @@
       r.h:= fpsTexture^.h;
       DrawFromRect(cScreenWidth - 50, 10, @r, fpsTexture, Surface);
       end
-//  SDL_UpperBlit(fpsSurface, nil, Surface, @r)
    end;
 
 inc(SoundTimerTicks, Lag);