equal
deleted
inserted
replaced
157 SDL_UnlockSurface(surf); |
157 SDL_UnlockSurface(surf); |
158 |
158 |
159 SetTextureParameters(enableClamp); |
159 SetTextureParameters(enableClamp); |
160 end; |
160 end; |
161 |
161 |
|
162 // deletes texture and frees the memory allocated for it. |
|
163 // if nil is passed nothing is done |
162 procedure FreeTexture(tex: PTexture); |
164 procedure FreeTexture(tex: PTexture); |
163 begin |
165 begin |
164 if tex <> nil then |
166 if tex <> nil then |
165 begin |
167 begin |
166 if tex^.NextTexture <> nil then |
168 if tex^.NextTexture <> nil then |