395 // Set default water greyscale values

   396 if cGrayScale then

   397     begin

   398     for i:= 0 to 3 do

   399         begin

   400         t:= round(SDWaterColorArray[i].r * RGB_LUMINANCE_RED + SDWaterColorArray[i].g * RGB_LUMINANCE_GREEN + SDWaterColorArray[i].b * RGB_LUMINANCE_BLUE);

   401         if t > 255 then t:= 255;

   402         SDWaterColorArray[i].r:= t;

   403         SDWaterColorArray[i].g:= t;

   404         SDWaterColorArray[i].b:= t

   405         end;

   406     for i:= 0 to 1 do

   407         begin

   408         t:= round(WaterColorArray[i].r * RGB_LUMINANCE_RED + WaterColorArray[i].g * RGB_LUMINANCE_GREEN + WaterColorArray[i].b * RGB_LUMINANCE_BLUE);

   409         if t > 255 then t:= 255;

   410         WaterColorArray[i].r:= t;

   411         WaterColorArray[i].g:= t;

   412         WaterColorArray[i].b:= t

   413         end

   414     end;