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   PixMap_Handle   from Image
  31
  32 is
  33
  34   Create (theFileName : AsciiString from TCollection) returns mutable Texture1Dsegment from Graphic3d;
  35   ---Purpose: Creates a texture from a file
  36
  37   Create (theNOT : NameOfTexture1D from Graphic3d) returns mutable Texture1Dsegment from Graphic3d;
  38   ---Purpose: Creates a texture from a predefined texture name set.
  39
  40   Create (thePixMap : PixMap_Handle from Image) returns mutable Texture1Dsegment from Graphic3d;
  41   ---Purpose: Creates a texture from the pixmap.
  42
  43   SetSegment (me : mutable;
  44               theX1, theY1, theZ1 : ShortReal from Standard;
  45               theX2, theY2, theZ2 : ShortReal from Standard);
  46   ---Purpose: Sets the texture application bounds. Defines the way
  47   -- the texture is stretched across facets.
  48   -- Default values are <0.0, 0.0, 0.0> , <0.0, 0.0, 1.0>
  49
  50   --
  51   -- inquire methods
  52   --
  53   Segment (me;
  54            theX1, theY1, theZ1 : out ShortReal from Standard;
  55            theX2, theY2, theZ2 : out ShortReal from Standard);
  56   ---Purpose: Returns the values of the current segment X1, Y1, Z1 , X2, Y2, Z2.
  57
  58 fields
  59
  60   myX1, myY1, myZ1 : ShortReal from Standard;
  61   myX2, myY2, myZ2 : ShortReal from Standard;
  62
  63 end  Texture1Dsegment;