[occt.git] / src / Hatch / Hatch_Line.cdl

-- File:	Line.cdl
-- Created:	Tue Aug 18 19:56:50 1992
-- Author:	Modelistation
--		<model@phylox>
---Copyright:	 Matra Datavision 1992


private class Line from Hatch

	---Purpose: Stores a Line in the Hatcher. Represented by :
	--          
	--          * A Lin2d from gp, the geometry of the line.
	--          
	--          * Bounding parameters for the line.
	--          
	--          * A sorted List  of Parameters, the  intersections
	--          on the line.

uses
    Real                from Standard,
    Integer             from Standard,
    Boolean             from Standard,
    Lin2d               from gp,
    LineForm            from Hatch,
    SequenceOfParameter from Hatch

is

    Create;
    
    Create(L : Lin2d from gp; T : LineForm from Hatch)
    returns Line from Hatch;
    
    AddIntersection(me       : in out; 
                    Par1     : Real    from Standard;
		    Start    : Boolean from Standard;
                    Index    : Integer from Standard;
                    Par2     : Real    from Standard;
    	    	    theToler : Real    from Standard)
	---Purpose: Insert a new intersection in the sorted list.
    is static;
    
fields

    myLin    : Lin2d               from gp;
    myForm   : LineForm            from Hatch;
    myInters : SequenceOfParameter from Hatch;

friends
    class Hatcher from Hatch

end Line;
Commit	Line	Data
7fd59977	1	-- File: Line.cdl
	2	-- Created: Tue Aug 18 19:56:50 1992
	3	-- Author: Modelistation
	4	-- <model@phylox>
	5	---Copyright: Matra Datavision 1992
	6
	7
	8
	9	private class Line from Hatch
	10
	11	---Purpose: Stores a Line in the Hatcher. Represented by :
	12	--
	13	-- * A Lin2d from gp, the geometry of the line.
	14	--
	15	-- * Bounding parameters for the line.
	16	--
	17	-- * A sorted List of Parameters, the intersections
	18	-- on the line.
	19
	20	uses
	21	Real from Standard,
	22	Integer from Standard,
	23	Boolean from Standard,
	24	Lin2d from gp,
	25	LineForm from Hatch,
	26	SequenceOfParameter from Hatch
	27
	28	is
	29
	30	Create;
	31
	32	Create(L : Lin2d from gp; T : LineForm from Hatch)
	33	returns Line from Hatch;
	34
	35	AddIntersection(me : in out;
	36	Par1 : Real from Standard;
	37	Start : Boolean from Standard;
	38	Index : Integer from Standard;
	39	Par2 : Real from Standard;
	40	theToler : Real from Standard)
	41	---Purpose: Insert a new intersection in the sorted list.
	42	is static;
	43
	44	fields
	45
	46	myLin : Lin2d from gp;
	47	myForm : LineForm from Hatch;
	48	myInters : SequenceOfParameter from Hatch;
	49
	50	friends
	51	class Hatcher from Hatch
	52
	53	end Line;