blob: 40cc4163826c9a0ddedcc0b87ce7e9dd674486f7 (
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
|
--
-- File : LineFontDefPattern.cdl
-- Created : Mon 11 Jan 1993
-- Author : CKY / Contract Toubro-Larsen ( Niraj RANGWALA )
--
---Copyright : MATRA-DATAVISION 1993
--
class LineFontDefPattern from IGESGraph inherits LineFontEntity
---Purpose : defines IGESLineFontDefPattern, Type <304> Form <2>
-- in package IGESGraph
--
-- Line Font may be defined by repetition of a basic pattern
-- of visible-blank(or, on-off) segments superimposed on
-- a line or a curve. The line or curve is then displayed
-- according to the basic pattern.
uses
IGESEntity from IGESData,
HAsciiString from TCollection,
HArray1OfReal from TColStd
raises OutOfRange
is
Create returns mutable LineFontDefPattern;
-- Specific Methods pertaining to class
Init (me : mutable;
allSegLength : HArray1OfReal;
aPattern : HAsciiString);
---Purpose : This method is used to set the fields of the class
-- LineFontDefPattern
-- - allSegLength : Containing lengths of respective segments
-- - aPattern : HAsciiString indicating visible-blank segments
NbSegments (me) returns Integer;
---Purpose : returns the number of segments in the visible-blank pattern
Length (me; Index : Integer) returns Real
raises OutOfRange;
---Purpose : returns the Length of Index'th segment of the basic pattern
-- raises exception if Index <= 0 or Index > NbSegments
DisplayPattern (me) returns HAsciiString from TCollection;
---Purpose : returns the string indicating which segments of the basic
-- pattern are visible and which are blanked.
-- e.g:
-- theNbSegments = 5 and if Bit Pattern = 10110, which means that
-- segments 2, 3 and 5 are visible, whereas segments 1 and 4 are
-- blank. The method returns "2H16" as the HAsciiString.
-- Note: The bits are right justified. (16h = 10110)
IsVisible (me; Index : Integer) returns Boolean;
---Purpose : The Display Pattern is decrypted to
-- return True if the Index'th basic pattern is Visible,
-- False otherwise.
-- If Index > NbSegments or Index <= 0 then return value is
-- False.
fields
--
-- Class : IGESGraph_LineFontDefPattern
--
-- Purpose : Declaration of the variables specific to Line Font Patterns.
--
-- Reminder : A Line Font Pattern is defined by :
-- - Length of each Segment
-- - Visible-Blank Pattern Bitmap
--
theSegmentLengths : HArray1OfReal;
theDisplayPattern : HAsciiString;
end LineFontDefPattern;
|