#Test de perpendicularité
import GDroite
import GDroite|une deuxième droite
Point (0,0) sur #2
projection de LAST sur #1
intersection(0) de #1 et de #2
iflikepoint LAST=LAST(1)
  return true
endif
return false