-
-procedure TglBitmapCubeMap.Bind(EnableTexCoordsGen, EnableTextureUnit: Boolean);
-begin
- inherited Bind (EnableTextureUnit);
-
- if EnableTexCoordsGen then begin
- glTexGeni(GL_S, GL_TEXTURE_GEN_MODE, fGenMode);
- glTexGeni(GL_T, GL_TEXTURE_GEN_MODE, fGenMode);
- glTexGeni(GL_R, GL_TEXTURE_GEN_MODE, fGenMode);
- glEnable(GL_TEXTURE_GEN_S);
- glEnable(GL_TEXTURE_GEN_T);
- glEnable(GL_TEXTURE_GEN_R);
- end;
-end;
-
-
-procedure TglBitmapCubeMap.GenerateCubeMap(CubeTarget: Cardinal; TestTextureSize: Boolean);
+//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
+procedure TglBitmapCubeMap.GenerateCubeMap(const aCubeTarget: Cardinal; const aTestTextureSize: Boolean);