[occt.git] / src / Prs2d / Prs2d_Straightness.cdl

-- File:	    Prs2d_Straightness.cdl
-- Created:	    October 2000
-- Author:	    TCL
---Copyright:	Matra Datavision 2000

class Straightness from Prs2d inherits Tolerance from Prs2d

uses

	GraphicObject   from Graphic2d,
	Drawer          from Graphic2d,
	Length	        from Quantity,
    FStream         from Aspect 

is
	-------------------------
	-- Category: Constructors
	-------------------------

	Create( aGO                    : GraphicObject from Graphic2d;
		    aX, aY                 : Real          from Standard;
		    aLength                : Real          from Standard = 3.0;
            anAngle                : Real          from Standard = 0.0 );
	---Level: Public
	---Purpose: Creates a tolerance straightness with the center at <aX>, <aY>; 
	--          length of this is <aLength>;
	--          reference point is <aXPosition>, <aYPosition>
	---Category: Constructor

    --------------------------
	-- Category: Draw and Pick
	--------------------------

	Draw( me : mutable; aDrawer: Drawer from Graphic2d ) is static protected;
	---Level: Internal
	---Purpose: Draws the straightness <me>.

	Save( me; aFStream: in out FStream from Aspect ) is virtual;

end Straightness from Prs2d;
Commit	Line	Data
7fd59977	1	-- File: Prs2d_Straightness.cdl
	2	-- Created: October 2000
	3	-- Author: TCL
	4	---Copyright: Matra Datavision 2000
	5
	6	class Straightness from Prs2d inherits Tolerance from Prs2d
	7
	8	uses
	9
	10	GraphicObject from Graphic2d,
	11	Drawer from Graphic2d,
	12	Length from Quantity,
	13	FStream from Aspect
	14
	15	is
	16	-------------------------
	17	-- Category: Constructors
	18	-------------------------
	19
	20	Create( aGO : GraphicObject from Graphic2d;
	21	aX, aY : Real from Standard;
	22	aLength : Real from Standard = 3.0;
	23	anAngle : Real from Standard = 0.0 );
	24	---Level: Public
	25	---Purpose: Creates a tolerance straightness with the center at <aX>, <aY>;
	26	-- length of this is <aLength>;
	27	-- reference point is <aXPosition>, <aYPosition>
	28	---Category: Constructor
	29
	30	--------------------------
	31	-- Category: Draw and Pick
	32	--------------------------
	33
	34	Draw( me : mutable; aDrawer: Drawer from Graphic2d ) is static protected;
	35	---Level: Internal
	36	---Purpose: Draws the straightness <me>.
	37
	38	Save( me; aFStream: in out FStream from Aspect ) is virtual;
	39
	40	end Straightness from Prs2d;