changeset 757 | ddbff94153e8 |
parent 755 | edf26e9554ac |
child 758 | bebfae2063b3 |
756:2b307457fd68 | 757:ddbff94153e8 |
---|---|
311 end; |
311 end; |
312 inc(r.y, tmpsurf^.h) |
312 inc(r.y, tmpsurf^.h) |
313 end; |
313 end; |
314 SDL_FreeSurface(tmpsurf); |
314 SDL_FreeSurface(tmpsurf); |
315 |
315 |
316 tmpsurf:= SDL_CreateRGBSurfaceFrom(@Land, 2048, 1024, 32, 2048*4, $FF0000, $FF00, $FF, 0); |
316 tmpsurf:= SDL_CreateRGBSurfaceFrom(@Land, 2048, 1024, 32, 2048*4, RMask, GMask, BMask, AMask); |
317 SDLTry(tmpsurf <> nil, true); |
317 SDLTry(tmpsurf <> nil, true); |
318 SDL_SetColorKey(tmpsurf, SDL_SRCCOLORKEY, SDL_MapRGB(tmpsurf^.format, $FF, $FF, $FF)); |
318 SDL_SetColorKey(tmpsurf, SDL_SRCCOLORKEY, SDL_MapRGB(tmpsurf^.format, $FF, $FF, $FF)); |
319 SDL_UpperBlit(tmpsurf, nil, Surface, nil); |
319 SDL_UpperBlit(tmpsurf, nil, Surface, nil); |
320 SDL_FreeSurface(tmpsurf) |
320 SDL_FreeSurface(tmpsurf) |
321 end; |
321 end; |