src/Vrml/Vrml_Texture2.cdl

   1 -- Created on: 1997-02-11
   2 -- Created by: Alexander BRIVIN
   3 -- Copyright (c) 1997-1999 Matra Datavision
   4 -- Copyright (c) 1999-2014 OPEN CASCADE SAS
   5 --
   6 -- This file is part of Open CASCADE Technology software library.
   7 --
   8 -- This library is free software; you can redistribute it and / or modify it
   9 -- under the terms of the GNU Lesser General Public version 2.1 as published
  10 -- by the Free Software Foundation, with special exception defined in the file
  11 -- OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
  12 -- distribution for complete text of the license and disclaimer of any warranty.
  13 --
  14 -- Alternatively, this file may be used under the terms of Open CASCADE
  15 -- commercial license or contractual agreement.
  16
  17 class Texture2 from Vrml
  18
  19         ---Purpose: defines a Texture2 node of VRML specifying properties of geometry
  20         --          and its appearance.
  21         --  This  property  node  defines  a  texture  map  and  parameters  for  that  map
  22         --  The  texture  can  be  read  from  the  URL  specified  by  the  filename  field.
  23         --  To  turn  off  texturing,  set  the  filename  field  to  an  empty  string  ("").
  24         --  Textures  can  alsobe  specified  inline  by  setting  the  image  field
  25         --  to  contain  the  texture  data.
  26         --  By  default  :
  27         --    myFilename ("")
  28         --    myImage (0 0 0)
  29         --    myWrapS (Vrml_REPEAT)
  30         --    myWrapT (Vrml_REPEAT)
  31
  32 uses
  33
  34     SFImage      from  Vrml,
  35     Texture2Wrap from  Vrml,
  36     AsciiString  from  TCollection
  37
  38 is
  39
  40     Create  returns  Texture2 from Vrml;
  41
  42     Create  (  aFilename : AsciiString from TCollection;
  43                aImage    : SFImage      from  Vrml;
  44                aWrapS    : Texture2Wrap from  Vrml;
  45                aWrapT    : Texture2Wrap from  Vrml)
  46         returns  Texture2 from Vrml;
  47
  48     SetFilename   ( me : in out; aFilename : AsciiString from TCollection );
  49     Filename   ( me )  returns  AsciiString from TCollection;
  50
  51     SetImage   ( me : in out; aImage : SFImage  from  Vrml );
  52     Image   ( me )  returns SFImage  from  Vrml;
  53
  54     SetWrapS   ( me : in out; aWrapS : Texture2Wrap from  Vrml );
  55     WrapS   ( me )  returns  Texture2Wrap from  Vrml;
  56
  57     SetWrapT   ( me : in out; aWrapT : Texture2Wrap from  Vrml );
  58     WrapT   ( me )  returns  Texture2Wrap from  Vrml;
  59
  60     Print  ( me;  anOStream: in out OStream from Standard) returns OStream from Standard;
  61     ---C++:  return  &
  62
  63 fields
  64
  65     myFilename  :  AsciiString  from  TCollection;      -- file to read texture from
  66     myImage     :  SFImage      from  Vrml;             -- The texture
  67     myWrapS     :  Texture2Wrap from  Vrml;
  68     myWrapT     :  Texture2Wrap from  Vrml;
  69
  70 end Texture2;