- if numTransparent > 0 then begin
- if SortFaces then
- begin
- QSort(numTransparent, CompareTransparent, SwapTransparent);
- QSort(numTransparent, CompareTransparent2, SwapTransparent);
- end;
- for l := numTransparent-1 downto 0 do begin
- faceIndex := TransparentFaces[l].FaceIndex;
- shaderId := TextureInfo[Faces[faceIndex].textureID].ShaderId;
- if shaderId <> -1 then
- RenderSurfaceShader(faceIndex, shaderId)
- else
- RenderSurface(faceIndex);
- inc(Faces_no);
- end;
- //SetDefaults;
- if GetCvarB('Cg_DrawEOs') then
- DrawEntityObjects;
- if (skyboxShader <> -1) and GetCvarB('Cg_RenderSky') then begin
- RenderSkybox;
- end;
- end;