4
-- Method on DrGeoFigure: <WrpSegment> segmentDe:a: p1 p2
5
P1, référence d’un point ou d’un couple de coordonnées
7
P2, référence d’un point ou d’un couple de coordonnées
9
⇒ référence d’un segment défini par ses extrémités
11
a := figure point: 5@5.
12
figure segmentDe: 10@10 a: a.