[occt.git] / src / ApproxInt / ApproxInt_WLine.cdl

-- Created on: 1993-11-08
-- Created by: Laurent BUCHARD
-- Copyright (c) 1993-1999 Matra Datavision
-- Copyright (c) 1999-2012 OPEN CASCADE SAS
--
-- The content of this file is subject to the Open CASCADE Technology Public
-- License Version 6.5 (the "License"). You may not use the content of this file
-- except in compliance with the License. Please obtain a copy of the License
-- at http://www.opencascade.org and read it completely before using this file.
--
-- The Initial Developer of the Original Code is Open CASCADE S.A.S., having its
-- main offices at: 1, place des Freres Montgolfier, 78280 Guyancourt, France.
--
-- The Original Code and all software distributed under the License is
-- distributed on an "AS IS" basis, without warranty of any kind, and the
-- Initial Developer hereby disclaims all such warranties, including without
-- limitation, any warranties of merchantability, fitness for a particular
-- purpose or non-infringement. Please see the License for the specific terms
-- and conditions governing the rights and limitations under the License.


generic class WLine from ApproxInt ( 
    TheCurve        as any;
    TheCurveTool    as any;
    TheCurve2d      as any;
    TheCurveTool2d  as any)
    
    inherits TShared from MMgt
    
   
uses PntOn2S           from IntSurf,
     LineOn2S          from IntSurf
     
is 
     
     Create(CurveXYZ: TheCurve;
            CurveUV1: TheCurve2d;
	    CurveUV2: TheCurve2d)
	
	 returns mutable WLine from ApproxInt;

     Create(lin: LineOn2S from IntSurf;  Tang: Boolean from Standard)
     
	 returns mutable WLine from ApproxInt;
	 
     NbPnts(me) 
     
         returns Integer from Standard
	 is static;
	 
     Point(me: mutable; Index: Integer from Standard)
     
         returns PntOn2S from IntSurf
	 is static;
	 
fields 

    curvxyz  : TheCurve;
    curvuv1  : TheCurve2d;
    curvuv2  : TheCurve2d;
    pnton2s  : PntOn2S    from IntSurf;
    linon2s  : LineOn2S   from IntSurf;
end WLine;
Commit	Line	Data
	1	-- Created on: 1993-11-08
	2	-- Created by: Laurent BUCHARD
	3	-- Copyright (c) 1993-1999 Matra Datavision
	4	-- Copyright (c) 1999-2012 OPEN CASCADE SAS
	5	--
	6	-- The content of this file is subject to the Open CASCADE Technology Public
	7	-- License Version 6.5 (the "License"). You may not use the content of this file
	8	-- except in compliance with the License. Please obtain a copy of the License
	9	-- at http://www.opencascade.org and read it completely before using this file.
	10	--
	11	-- The Initial Developer of the Original Code is Open CASCADE S.A.S., having its
	12	-- main offices at: 1, place des Freres Montgolfier, 78280 Guyancourt, France.
	13	--
	14	-- The Original Code and all software distributed under the License is
	15	-- distributed on an "AS IS" basis, without warranty of any kind, and the
	16	-- Initial Developer hereby disclaims all such warranties, including without
	17	-- limitation, any warranties of merchantability, fitness for a particular
	18	-- purpose or non-infringement. Please see the License for the specific terms
	19	-- and conditions governing the rights and limitations under the License.
	20
	21
	22
	23	generic class WLine from ApproxInt (
	24	TheCurve as any;
	25	TheCurveTool as any;
	26	TheCurve2d as any;
	27	TheCurveTool2d as any)
	28
	29	inherits TShared from MMgt
	30
	31
	32	uses PntOn2S from IntSurf,
	33	LineOn2S from IntSurf
	34
	35	is
	36
	37	Create(CurveXYZ: TheCurve;
	38	CurveUV1: TheCurve2d;
	39	CurveUV2: TheCurve2d)
	40
	41	returns mutable WLine from ApproxInt;
	42
	43	Create(lin: LineOn2S from IntSurf; Tang: Boolean from Standard)
	44
	45	returns mutable WLine from ApproxInt;
	46
	47	NbPnts(me)
	48
	49	returns Integer from Standard
	50	is static;
	51
	52	Point(me: mutable; Index: Integer from Standard)
	53
	54	returns PntOn2S from IntSurf
	55	is static;
	56
	57	fields
	58
	59	curvxyz : TheCurve;
	60	curvuv1 : TheCurve2d;
	61	curvuv2 : TheCurve2d;
	62	pnton2s : PntOn2S from IntSurf;
	63	linon2s : LineOn2S from IntSurf;
	64	end WLine;
	65