blob: dc6425d24beb0675d48952c74c1a9f3518598973 (
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
|
-- File: Graphic2d_VectorialMarker.cdl
-- Created: Tue Jun 22 16:36:51 1993
-- Author: Jean Louis FRENKEL
-- <jlf@pernox>
---Copyright: Matra Datavision 1993
-- Modified: Jeudi 26 Janvier 1995
-- by: CAL
-- The old name of this was Marker.
deferred class VectorialMarker from Graphic2d inherits Line from Graphic2d
---Version:
---Purpose: Groups all the primitives which behaves like
-- geometrical marker.
-- for example : EllipsMarker, CircleMarker ...
-- A marker is a primitive which retains its original
-- on-screen size no matter how the view is zoomed.
-- For example, markers are used as symbols of dimension.
-- Every marker takes a reference point as an argument in
-- its constructor. CircleMarker and EllipsMarker take
-- another point as the center and PolylineMarker takes the
-- first point of its list as its origin.
-- The coordinates of the centre or origin point are offsets
-- with respect to the reference point.
---Keywords: Primitive, VectorialMarker
---Warning:
---References:
uses
GraphicObject from Graphic2d,
Length from Quantity
is
-------------------------
-- Category: Constructors
-------------------------
Initialize (aGraphicObject: GraphicObject from Graphic2d;
aXPosition, aYPosition: Length from Quantity);
---Level: Public
---Purpose: Creates a marker at <aXPosition>, <aYPosition>
---Category: Constructors
---------------------------------------------------
-- Category: Methods to modify the class definition
---------------------------------------------------
SetPosition (me: mutable;
aXPosition, aYPosition: Length from Quantity)
is static;
---Level: Public
---Purpose: Modifies the marker position.
-- Warning: If the associated GraphicObject is transformed
-- the position will be transformed.
---Category: Methods to modify the class definition
----------------------------
-- Category: Inquire methods
----------------------------
XPosition (me) returns Length from Quantity
is static;
---Level: Public
---Purpose: Returns the x position of the marker
-- Warning: If the associated GraphicObject is transformed
-- the returned position is the transformed position.
---Category: Inquire methods
YPosition (me) returns Length from Quantity is static;
---Level: Public
---Purpose: Returns the y position of the marker
-- Warning: If the associated GraphicObject is transformed
-- the returned position is the transformed position.
---Category: Inquire methods
fields
myXPosition: ShortReal from Standard is protected;
myYPosition: ShortReal from Standard is protected;
end VectorialMarker from Graphic2d;
|
