src/Graphic3d/Graphic3d_Texture1Dsegment.cdl

   1 -- Created on: 1997-07-28
   2 -- Created by: Pierre CHALAMET
   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 under
   9 -- the terms of the GNU Lesser General Public License 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 Texture1Dsegment from Graphic3d
  18
  19 inherits Texture1D from Graphic3d
  20
  21   ---Purpose:  This class provides the implementation
  22   -- of a 1D texture applyable along a segment.
  23   -- You might use the SetSegment() method
  24   -- to set the way the texture is "streched" on facets.
  25
  26 uses
  27
  28   NameOfTexture1D from Graphic3d,
  29   AsciiString     from TCollection
  30
  31 is
  32
  33   Create (theFileName : AsciiString from TCollection) returns mutable Texture1Dsegment from Graphic3d;
  34   ---Purpose: Creates a texture from a file
  35
  36   Create (theNOT : NameOfTexture1D from Graphic3d) returns mutable Texture1Dsegment from Graphic3d;
  37   ---Purpose: Creates a texture from a predefined texture name set.
  38
  39   SetSegment (me : mutable;
  40               theX1, theY1, theZ1 : ShortReal from Standard;
  41               theX2, theY2, theZ2 : ShortReal from Standard);
  42   ---Purpose: Sets the texture application bounds. Defines the way
  43   -- the texture is stretched across facets.
  44   -- Default values are <0.0, 0.0, 0.0> , <0.0, 0.0, 1.0>
  45
  46   --
  47   -- inquire methods
  48   --
  49   Segment (me;
  50            theX1, theY1, theZ1 : out ShortReal from Standard;
  51            theX2, theY2, theZ2 : out ShortReal from Standard);
  52   ---Purpose: Returns the values of the current segment X1, Y1, Z1 , X2, Y2, Z2.
  53
  54 fields
  55
  56   myX1, myY1, myZ1 : ShortReal from Standard;
  57   myX2, myY2, myZ2 : ShortReal from Standard;
  58
  59 end  Texture1Dsegment;