7
-- Method on WrpPoint: <Point> coordonnees
8
⇒ instance de ‘Point’, coordonnées du point
10
-- Method on WrpPoint: <Number> x
11
⇒ instance de ‘Number’, abscisse du point
13
-- Method on WrpPoint: <Number> y
14
⇒ instance de ‘Number’, ordonnée du point
15
a := figure point: 0@10.
16
figure assert: [a y = 10].
17
figure assert: [a coordonnees = (0@10)]
19
Modification des attributs
20
..........................
22
Pour modifier les attributs d’un objet déjà créé, nous lui envoyons le
23
message approprié. La modification des attributs se fait donc toujours
26
-- Method on WrpItem: couleur: uneCouleur
27
UNECOULEUR, une instance de ‘Color’, voir ses méthodes de classe
28
pour des définitions existantes : ‘Color black, Color red, Color
29
blue, Color orange, Color yellow,...’
31
Modifie la couleur d’un item
33
pointA couleur: Color green
35
-- Method on WrpText: couleurFond: uneCouleur
36
UNCOULEUR, une instance de ‘Color’
38
Modifie la couleur d’arrière plan d’un texte
40
monTexte couleurFond: Color green
42
-- Method on WrpItem: nommer: string
43
STRING, une chaîne de caractères
47
segment nommer: '[AB]'
49
-- Method on MathItemCostume: textPositionDelta: vecteur
50
VECTEUR, une instance de ‘Point’
52
Modifie la position de l’étiquette d’ un item relativement à sa
53
position de référence.
56
point costume textPositionDelta: -20 @ -20.
58
-- Method on WrpItem: cacher
62
-- Method on WrpItem: montrer
66
-- Method on WrpCurve: fin
67
Donne une épaisseur fine à une ligne (droite, demi-droite, cercle,
72
-- Method on WrpCurve: normal
73
Donne une épaisseur normale à une ligne (droite, demi-droite,
74
cercle, lieu, etc.). C’est l’épaisseur par défaut.
78
-- Method on WrpCurve: epais
79
Donne une épaisseur large à une ligne (droite, demi-droite, cercle,
84
-- Method on WrpCurve: plein
85
Donne un style de trait continue, plein, à une ligne (droite,
86
demi-droite, cercle, lieu, etc.).
90
-- Method on WrpCurve: tiret
91
Donne un style de trait en tirets à une ligne (droite, demi-droite,
96
-- Method on WrpCurve: pointille
97
Donne un style de trait en pointillés à une ligne (droite,
98
demi-droite, cercle, lieu, etc.).
102
-- Method on wrpFinitCurve: flecheDebut
103
Ajoute à un *arc* ou un *segment* une flèche en début de ligne.
106
figure := DrGeoFigure nouveau.
107
segment := figure segmentDe: 0@0 a: 5@1.
110
-- Method on wrpFinitCurve: flecheFin
111
Ajoute à un *arc* ou un *segment* une flèche en fin ligne.
115
-- Method on wrpFinitCurve: fleches
116
Ajoute à un *arc* ou un *segment* des flèches en début et en fin de
120
figure := DrGeoFigure nouveau.
121
arc := figure arcDe: 0@0 a: 5@3 passantPar: 2@1.
124
-- Method on wrpSegment: marquerAvecCercle
125
Marque – codage – un segment avec un cercle.
127
segment marquerAvecCercle
129
-- Method on wrpSegment: marquerAvecDisque
130
Marque – codage – un segment avec un Disque.
132
segment marquerAvecDisque
134
-- Method on wrpSegment: marquerAvecSimpleTrait
135
Marque – codage – un segment avec un trait.
137
segment marquerAvecSimpleTrait
139
-- Method on wrpSegment: marquerAvecDoubleTrait
140
Marque – codage – un segment avec un double trait.
142
segment marquerAvecDoubleTrait
144
-- Method on wrpSegment: marquerAvecTripleTrait
145
Marque – codage – un segment avec un triple trait.
147
segment marquerAvecTripleTrait
149
-- Method on wrpSegment: marquerAucun
150
Supprime toute marque d’un segment. Cette fonctionnalité sera
151
rarement nécessaire car les segments nouvellement créés ne sont pas
156
-- Method on WrpPoint: croix
157
Donne une forme en croix à un point.
159
a := figure point: 0@0.
162
-- Method on WrpPoint: rond
163
Donne une forme en rond à un point.
167
-- Method on WrpPoint: carre
168
Donne une forme carrée à un point.
172
-- Method on WrpPoint: small
173
Donne une petite taille à un point.
177
-- Method on WrpPoint: large
178
Donne une taille large à un point.
182
-- Method on WrpItem: bloquer
183
Bloque un item à sa position actuelle, pour peu que cela ait un
187
figure := DrGeoFigure nouveau.
188
cercle := figure cercleCentre: 0@0 passantPar: 5@0.
189
figure := segmentDe: 0@0 a: (figure pointSurLigne: cercle a: 0.2).
190
(figure point: 0@0) bloquer
192
-- Method on WrpItem: debloquer
193
Débloque un item de sa position actuelle, pour peu que cela ait un
194
sens. Cette fonctionnalité est rarement nécessaire car les items
195
nouvellement créés sont débloqués par défaut.
198
(figure point: 0@0) debloquer
200
-- Method on WrpItem: deplacerA: point
201
POINT, couple de coordonnées
203
Déplace un point ou une valeur à la position donnée, pour peu que
207
a := figure point: 0@0.