401 function NewTexture(width, height: Longword; buf: Pointer): PTexture;

   401 function NewTexture(width, height: Longword; buf: Pointer): PTexture;

   402 begin

   402 begin

   403 new(NewTexture);

   403 new(NewTexture);

   404 NewTexture^.PrevTexture:= nil;

   404 NewTexture^.PrevTexture:= nil;

   405 NewTexture^.NextTexture:= nil;

   405 NewTexture^.NextTexture:= nil;

   406 if TextureList <> nil then

   407 if TextureList <> nil then

   407     begin

   408     begin

   408     TextureList^.PrevTexture:= NewTexture;

   409     TextureList^.PrevTexture:= NewTexture;

   409     NewTexture^.NextTexture:= TextureList

   410     NewTexture^.NextTexture:= TextureList

   410     end;

   411     end;