123 var

   123 var

   124     iceSurface: PSDL_Surface;

   124     iceSurface: PSDL_Surface;

   125     icePixels: PLongwordArray;

   125     icePixels: PLongwordArray;

   126     w: LongWord;

   126     w: LongWord;

   127 begin

   127 begin

   128     // So. 3 parameters here. Ice colour, Ice opacity, and a bias on the greyscaled pixel towards lightness

   129     // So. 3 parameters here. Ice colour, Ice opacity, and a bias on the greyscaled pixel towards lightness

   129     iceSurface:= SpritesData[sprIceTexture].Surface;

   130     iceSurface:= SpritesData[sprIceTexture].Surface;

   130     icePixels := iceSurface^.pixels;

   131     icePixels := iceSurface^.pixels;

   131     w:= LandPixels[pixelY, pixelX];

   132     w:= LandPixels[pixelY, pixelX];

   132     if w > 0 then

   133     if w > 0 then