0023544: Texture management in TKOpenGl should be redesigned
[occt.git] / src / Graphic3d / Graphic3d_TextureEnv.cdl
index 0a90455..7c318a7 100755 (executable)
 -- purpose or non-infringement. Please see the License for the specific terms
 -- and conditions governing the rights and limitations under the License.
 
--- Modified :  GG 10/01/2000 IMP 
---             Add NumberOfTextures() and TextureName() methods
---             Add Name() method
+class TextureEnv from Graphic3d
 
-class  TextureEnv  from  Graphic3d 
-    
-inherits  TextureRoot  from  Graphic3d 
+inherits TextureRoot from Graphic3d
 
-    ---Purpose: This class provides environment texture usable only in Visual3d_ContextView
+  ---Purpose: This class provides environment texture usable only in Visual3d_ContextView
 
-uses 
-    NameOfTextureEnv  from  Graphic3d, 
-    StructureManager  from  Graphic3d 
+uses
+
+  NameOfTextureEnv from Graphic3d,
+  AsciiString      from TCollection
 
 raises
-    OutOfRange from Standard
-
-is 
-    Create(SM  :  StructureManager  from  Graphic3d; 
-           aFileName  :  CString  from  Standard)
-       returns  mutable TextureEnv  from  Graphic3d;    
-    ---Purpose: Creates an environment texture from a file
-
-    Create(SM          :  StructureManager  from  Graphic3d;
-          aName:  NameOfTextureEnv  from  Graphic3d)  
-       returns  mutable  TextureEnv  from  Graphic3d; 
-    ---Purpose: Creates an environment texture from a predefined texture name set.
-
-    Name(me) returns NameOfTextureEnv from Graphic3d;
-    ---Purpose:
-    -- Returns the name of the predefined textures or NOT_ENV_UNKNOWN
-    -- when the name is given as a filename.
-    ---Level: Public
-
-    NumberOfTextures(myclass) returns Integer from Standard;
-    ---Purpose:
-    -- Returns the number of predefined textures.
-    ---Level: Public
-
-    TextureName(myclass; aRank: Integer from Standard)
-       returns CString from Standard
-       raises OutOfRange from Standard;
-    ---Purpose:
-    -- Returns the name of the predefined texture of rank <aRank>
-    ---Trigger: when <aRank> is < 1 or > NumberOfTextures.
-    ---Level: Public
+
+  OutOfRange from Standard
+
+is
+
+  Create (theFileName : AsciiString from TCollection) returns  mutable TextureEnv from Graphic3d;
+  ---Purpose: Creates an environment texture from a file.
+
+  Create (theName : NameOfTextureEnv from Graphic3d) returns mutable TextureEnv from Graphic3d;
+  ---Purpose: Creates an environment texture from a predefined texture name set.
+
+  Name (me) returns NameOfTextureEnv from Graphic3d;
+  ---Purpose:
+  -- Returns the name of the predefined textures or NOT_ENV_UNKNOWN
+  -- when the name is given as a filename.
+  ---Level: Public
+
+  NumberOfTextures (myclass) returns Integer from Standard;
+  ---Purpose:
+  -- Returns the number of predefined textures.
+  ---Level: Public
+
+  TextureName (myclass; theRank: Integer from Standard)
+  returns AsciiString from TCollection
+  raises OutOfRange from Standard;
+  ---Purpose:
+  -- Returns the name of the predefined texture of rank <aRank>
+  ---Trigger: when <aRank> is < 1 or > NumberOfTextures.
+  ---Level: Public
 
 fields
-    myName: NameOfTextureEnv from Graphic3d;
-     
-end  TextureEnv; 
 
+  myName : NameOfTextureEnv from Graphic3d;
+
+end TextureEnv;