278 while (toPowerOf2 < i) do toPowerOf2:= toPowerOf2 shl 1

   278 while (toPowerOf2 < i) do toPowerOf2:= toPowerOf2 shl 1

   279 end;

   279 end;

   280 

   280 

   281 function Surface2Tex(surf: PSDL_Surface): PTexture;

   281 function Surface2Tex(surf: PSDL_Surface): PTexture;

   282 var mode: LongInt;

   282 var mode: LongInt;

   284     tw, th: Longword;

   283     tw, th: Longword;

   285     tmpp: pointer;

   284     tmpp: pointer;

   286 begin

   285 begin

   287 new(Surface2Tex);

   286 new(Surface2Tex);

   288 Surface2Tex^.w:= surf^.w;

   287 Surface2Tex^.w:= surf^.w;