Saisir l'origine d'un vecteur à la souris pour le déplacer

liste1 = Sequence(Segment[(k, 0), (k, 8)], k, 0, 8)
liste2 = Sequence(Segment[(0, k), (8, k)], k, 0, 8)
liste3 = Sequence(Segment[(12, k), (20, k)], k, 0, 8)
liste4 = Sequence(Segment[(12 + k, 0), (12 + k, 8)], k, 0, 8)
a = (-1.5, 0)
b = (2, -3)
c = (-2, -2)
d = (0, -2)
e = (2, 3)
f = (1.5, 0)
g = (-2, 3)
h = (-1.5, 0)
i = (0, 1)
j = (3, 0)
k = (-1, -6)
l = (4, 2)
m = (-3, 3)
n = (1, -5)