summaryrefslogtreecommitdiff
path: root/src/Prs2d/Prs2d_Axis.cdl
blob: bb459b8ca222328d484d9a5462400f2b3da5c7ab (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
-- File     : Prs2d_Axis.cdl
-- Created  : April  2000
-- Author   : Tanya COOL
---Copyright: Matra Datavision 2000

class Axis from Prs2d inherits Line from Graphic2d

 ---Purpose: Constructs the primitive Axis

uses

	Drawer	           from Graphic2d,
	GraphicObject      from Graphic2d,
	Ax2d               from gp,
	Ax22d              from gp,
  	Lin2d              from gp,
        TypeOfAxis         from Prs2d,
	TypeOfArrow        from Prs2d,
	Array1OfShortReal  from TShort,
        FStream            from Aspect,
        HArray1OfPnt2d     from TColgp

is
	Create( aGraphicObject: GraphicObject  from Graphic2d;
	        anAx          : Ax22d          from gp;
		aLength       : Real           from Standard; 
          	anArrAngle    : Real           from Standard = 30.0;
		anArrLength   : Real           from Standard = 30.0;
	    	anArrType     : TypeOfArrow    from Prs2d = Prs2d_TOA_OPENED;
		aTxtScale     : Real           from Standard = 10.0 )
	returns mutable Axis from Prs2d;

   ---Purpose: Initializes the axis 2 position <anAx>


    Create( aGraphicObject: GraphicObject  from Graphic2d;
            anAx          : Ax2d           from gp;
	    aLength       : Real           from Standard;
            anArrAngle    : Real           from Standard = 30.0;
	    anArrLength   : Real           from Standard = 30.0;
	    anArrType     : TypeOfArrow    from Prs2d = Prs2d_TOA_OPENED;
	    aTxtScale     : Real           from Standard = 10.0 ) 
       returns mutable Axis from Prs2d;

    ---Purpose: Initializes the axis position <anAx>.  
    
    Create( aGraphicObject: GraphicObject  from Graphic2d;
	    aLine         : Lin2d          from gp;
	    aLength       : Real           from Standard;
	    anArrAngle    : Real           from Standard = 30.0;
	    anArrLength   : Real           from Standard = 30.0;
	    anArrType     : TypeOfArrow    from Prs2d = Prs2d_TOA_OPENED;
	    aTxtScale     : Real           from Standard = 10.0 ) 
        returns mutable Axis from Prs2d;

    ---Purpose: Initializes the line <aLine>

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

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

    DrawElement( me : mutable; aDrawer: Drawer from Graphic2d;
                 anIndex: Integer from Standard)
    is redefined protected;
    ---Level: Internal
    ---Purpose: Draws element <anIndex> of the axis <me>.

    DrawVertex( me : mutable; aDrawer: Drawer from Graphic2d;
                anIndex: Integer from Standard)
    is redefined protected;
    ---Level: Internal
    ---Purpose: Draws vertex <anIndex> of the axis <me>.
    
    TypeOfArrow( me ) returns TypeOfArrow from Prs2d;
    ---Level: Public
    ---Purpose: Returns type of arrow
    --          Type is:
    --             TOA_OPENED,
    --             TOA_CLOSED,
    --             TOA_FILLED

    ArrayOfPnt2d( me ) returns HArray1OfPnt2d from TColgp;
    ---Level: Public
    ---C++: return const

    ArrayOfXArrowPnt2d( me ) returns HArray1OfPnt2d from TColgp;
    ---Level: Public
    ---C++: return const

    ArrayOfYArrowPnt2d( me ) returns HArray1OfPnt2d from TColgp;
    ---Level: Public
    ---C++: return const

    TextScale( me ) returns Real from Standard;
    ---Level: Public

    Pick( me : mutable; X, Y: ShortReal from Standard;
	  aPrecision: ShortReal from Standard;
          aDrawer: Drawer from Graphic2d ) 
    returns Boolean from Standard is static protected;
    ---Level: Internal
    ---Purpose: Returns Standard_True if the axis <me> is picked,
    --	    Standard_False if not.

    Save( me; aFStream: in out FStream from Aspect ) is virtual;
													
fields
 
	myX0           : ShortReal         from Standard;
	myY0           : ShortReal         from Standard;
	myX1           : ShortReal         from Standard;
	myY1           : ShortReal         from Standard;
	myX2           : ShortReal         from Standard;
	myY2           : ShortReal         from Standard;
	myXVertX       : Array1OfShortReal from TShort;
	myYVertX       : Array1OfShortReal from TShort;
	myXVertY       : Array1OfShortReal from TShort;
	myYVertY       : Array1OfShortReal from TShort;
	myArrType      : TypeOfArrow       from Prs2d;
	myisXY         : Boolean           from Standard;
        myTextScale    : Real              from Standard;
	    		
end Axis from Prs2d;