Algorithmes de la morphologie mathématique pour - Pastel - HAL

Annexe BDéfinitions des fonctions utilitaires en HaskellFonctions c3e et c4e de création des vecteurs de couleurLa fonction c3e crée à partir d’un triplet d’éléments de couleur CElmnt un vecteur de couleur composéC en utilisant la fonction pvec, cf. 4.3.1.3 page 64 :c3e :: (CElmnt, CElmnt, CElmnt) → Cc3e (c 1 ,c 2 ,c 3 ) = pvec (1,3) [ (1,c 1 ) , (2,c 2 ) , (3,c 3 ) ]Suivant la même logique, la fonction c4e crée à partir d’un quadruplet d’éléments de couleur CElmnt unvecteur de couleur composé C :c4e :: (CElmnt, CElmnt, CElmnt, CElmnt) → Cc4e (c 1 ,c 2 ,c 3 , c 4 ) = array (1,4) [ (1,c 1 ) , (2,c 2 ) , (3,c 3 ) , (4,c 4 ) ]Fonctions p2D et p3D de création des pointsLa fonction p2D crée un point de 2D à partir d’un tuple de coordonnées :p2D :: ( Pos , Pos ) → Pp2D (x 1 ,x 2 ) = pvec (1,2) [ (1,x 1 ) , (2,x 2 ) ]La fonction p3D crée un point de 3D à partir d’un triplet de coordonnées :p3D :: ( Pos , Pos , Pos ) → Pp3D (x 1 ,x 2 ,x 3 ) = pvec (1,3) [ (1,x 1 ) , (2,x 2 ) , (3,x 3 ) ]Fonctions mkTX, getArFromTX et getTXBFromTX de manipulation des texturesLa fonction mkTX crée une texture à partir de ses composantes. La fonction (, ) prend deux paramètreset crée un tuple.mkTX :: Ar ( I , I ) C → [TXB] → TXmkTX ar txbs = ( , ) ar txbsLa fonction getArFromTX retourne l’array de couleur à partir de la texture TX :getArFromTX :: TX → Ar ( I , I ) CgetArFromTX (x , _) = xLa fonction getTXBFromTX retourne la valeur de bord TXB d’une texture TX :getTXBFromTX :: TX → TXBgetTXBFromTX (_, x) = x ! ! 0201