{ Type agrege de stockage d'un sommet 3D       }

structure sommet3D
  reel x <- 0.0
  reel y <- 0.0
  reel z <- 0.0
fin structure

{ Fonction de calcul et retour du barycentre  }
{ d'un nuage de points stocké dans un tableau }
{ de sommet3D                                 }
{ tp : Le tableau de sommet3D                 }
  
sommet3D fonction barycentre(sommet3D [] tp)
  sommet3D p
  entier i
  pour i de 0 ŕ longueur(tp)-1 faire
    p.x <- p.x+tp[i].x
    p.y <- p.y+tp[i].y
    p.z <- p.z+tp[i].z
  fait
  p.x <- p.x/longueur(tp)
  p.y <- p.y/longueur(tp)
  p.z <- p.z/longueur(tp)
  retourner p
fin fonction