equal
deleted
inserted
replaced
1027 |
1027 |
1028 AddFileLog('Setting up OpenGL (using driver: ' + shortstring(SDL_VideoDriverName(buf, sizeof(buf))) + ')'); |
1028 AddFileLog('Setting up OpenGL (using driver: ' + shortstring(SDL_VideoDriverName(buf, sizeof(buf))) + ')'); |
1029 SetupOpenGL(); |
1029 SetupOpenGL(); |
1030 if reinit then |
1030 if reinit then |
1031 begin |
1031 begin |
|
1032 if ((cReducedQuality and rqNoBackground) = 0) then |
|
1033 glClearColor(SkyColor.r / 255, SkyColor.g / 255, SkyColor.b / 255, 0.99) |
|
1034 else glClearColor(RQSkyColor.r / 255, RQSkyColor.g / 255, RQSkyColor.b / 255, 0.99); |
1032 StoreRelease(true); |
1035 StoreRelease(true); |
1033 StoreLoad(true); |
1036 StoreLoad(true); |
|
1037 ResetLand; |
1034 UpdateLandTexture(0, LAND_WIDTH, 0, LAND_HEIGHT) |
1038 UpdateLandTexture(0, LAND_WIDTH, 0, LAND_HEIGHT) |
1035 end; |
1039 end; |
1036 end; |
1040 end; |
1037 |
1041 |
1038 procedure initModule; |
1042 procedure initModule; |