1 -- Created by: Tanya COOL
2 -- Copyright (c) 2000-2012 OPEN CASCADE SAS
4 -- The content of this file is subject to the Open CASCADE Technology Public
5 -- License Version 6.5 (the "License"). You may not use the content of this file
6 -- except in compliance with the License. Please obtain a copy of the License
7 -- at http://www.opencascade.org and read it completely before using this file.
9 -- The Initial Developer of the Original Code is Open CASCADE S.A.S., having its
10 -- main offices at: 1, place des Freres Montgolfier, 78280 Guyancourt, France.
12 -- The Original Code and all software distributed under the License is
13 -- distributed on an "AS IS" basis, without warranty of any kind, and the
14 -- Initial Developer hereby disclaims all such warranties, including without
15 -- limitation, any warranties of merchantability, fitness for a particular
16 -- purpose or non-infringement. Please see the License for the specific terms
17 -- and conditions governing the rights and limitations under the License.
20 class AspectHidingText from Prs2d inherits AspectRoot from Prs2d
22 ---Purpose: defines the attributes when drawing a hiding text
26 NameOfColor from Quantity,
27 TypeOfFont from Aspect,
28 WidthOfLine from Aspect
33 Create ( ColorInd: NameOfColor from Quantity;
34 HidingColorInd: NameOfColor from Quantity;
35 FrameColorInd: NameOfColor from Quantity;
36 FrameWidthInd: WidthOfLine from Aspect;
37 FontInd: TypeOfFont from Aspect;
38 aSlantInd: ShortReal from Standard;
39 aHScaleInd: ShortReal from Standard;
40 aWScaleInd: ShortReal from Standard;
41 isUnderlined: Boolean from Standard)
42 returns mutable AspectHidingText from Prs2d;
44 SetColorOfText ( me: mutable; aColorInd: NameOfColor from Quantity);
45 SetHidingColorOfText( me: mutable; aHidColorInd: NameOfColor from Quantity);
46 SetFrameColorOfText ( me: mutable; aFrameColorInd: NameOfColor from Quantity);
47 SetFrameWidthOfText ( me: mutable; aFrameWidthInd: WidthOfLine from Aspect);
48 SetFontOfText ( me: mutable; aFontInd: TypeOfFont from Aspect);
49 SetSlant ( me: mutable; aSlantInd: ShortReal from Standard);
50 SetHScale ( me: mutable; aHScaleInd: ShortReal from Standard);
51 SetWScale ( me: mutable; aWScaleInd: ShortReal from Standard);
52 SetUnderlined ( me: mutable; anIsUnderline: Boolean from Standard);
55 ColorInd: out NameOfColor from Quantity;
56 HidingColorInd: out NameOfColor from Quantity;
57 FrameColorInd: out NameOfColor from Quantity;
58 FrameWidthInd: out WidthOfLine from Aspect;
59 FontInd: out TypeOfFont from Aspect;
60 aSlantInd: out ShortReal from Standard;
61 aHScaleInd: out ShortReal from Standard;
62 aWScaleInd: out ShortReal from Standard;
63 isUnderlined: out Boolean from Standard );
67 myFontInd : TypeOfFont from Aspect;
68 myColorInd : NameOfColor from Quantity;
69 HidingColorInd : NameOfColor from Quantity;
70 FrameColorInd : NameOfColor from Quantity;
71 FrameWidthInd : WidthOfLine from Aspect;
72 mySlantInd : ShortReal from Standard;
73 myHScaleInd : ShortReal from Standard;
74 myWScaleInd : ShortReal from Standard;
75 myIsUnderlined : Boolean from Standard;
77 end AspectHidingText from Prs2d;