117         fromP4^[x]:= tw;

   117         fromP4^[x]:= tw;

   118         end;

   118         end;

   119     fromP4:= @(fromP4^[Surf^.pitch div 4])

   119     fromP4:= @(fromP4^[Surf^.pitch div 4])

   120     end;

   120     end;

   121 end;

   121 end;

   122 function Surface2Tex(surf: PSDL_Surface; enableClamp: boolean): PTexture;

   124 function Surface2Tex(surf: PSDL_Surface; enableClamp: boolean): PTexture;

   123 var tw, th, x, y: Longword;

   125 var tw, th, x, y: Longword;

   124     tmpp: pointer;

   126     tmpp: pointer;

   125     fromP4, toP4: PLongWordArray;

   127     fromP4, toP4: PLongWordArray;

   126 begin

   128 begin