Entrée des objets géométriques

Avec Maple release 5, pour travailler sur des objets géométriques, ceux-ci doivent exister...
En travaillant avec des coordonnées ou des équations dépendant d'un paramètre, cela oblige à déclarer toutes les impossibilités avec assume pour la première et additionally pour les suivantes ...

> restart;with(geometry):

> point(A,-2,-3):point(B,5,-2):point(C,1,4):

> line(AB,[A,B]):line(AC,[A,C]):line(BC,[C,B]):

> line(D,p*x+y+m,[x,y]):

> AreParallel(AB,D,'cond'):

AreParallel:   "hint: cannot determine if -1-7*p is zero"

> cond;

> assume(op(cond)[1]<>0):

> intersection(c,AB,D):

> AreParallel(AC,D,'cond'):

AreParallel:   "hint: cannot determine if -7-3*p is zero"

> cond:

> additionally(op(cond)[1]<>0):

> intersection(b,AC,D):

> AreParallel(BC,D,'cond'):

AreParallel:   "hint: cannot determine if 6-4*p is zero"

> cond:

> additionally(op(cond)[1]<>0):

> intersection(a,BC,D):

> triplet:=[a,b,c]:

> centroid(G,triplet):