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

Algorithmes de la morphologie mathématique pour les architectures orientées fluxJaromír BRAMBORAlgorithme 5.12 : gpuTexture, skeleton algorithmique d’affichage d’une texture dans le framebufferdu GPU1 gpuTexture :: Commands → Env → Env2 gpuTexture cmd e = pipeGPU vpid rasterize fpTexture rpid cmd e34 fpTexture :: FProg5 fpTexture e (p, d, cs, [ ( txi ,txp) ] ) = mkF p d [ (1,col) ] [ ( txi ,txp) ]6 where7 col = smpBorder ( ( getTXs $ e) ! ! txi ) txpLe fonctionnement de cet algorithme s’appuie sur le bloc de traitement des fragments et, par conséquent,l’algorithme spécifie le fragment programme fpTexture pour cet affichage. Le reste du pipelinen’effectue que le passage d’une unité à l’autre – vertex programme vpid retourne le vertex inchangé,l’unité de rastérisation rasterize effectue la rastérisation standard et nous n’utilisons aucune fonctionnalitéspécifique de post-traitement des fragments (exprimé par rpid).Le fonctionnement du fragment programme se compose d’appel d’une seule fonction – fonctiond’échantillonnage des textures smpBorder. Ses deux arguments sont la texture, spécifiée par l’expression( ( getTXs $ e) ! ! txi )et qui récupère la texture de l’environnement, et par la position txp du texel à échantillonner.L’algorithme de la dilatation suit la logique présentée. Nous modifions le fragment programme pource but. Plutôt qu’échantillonner un seul texel de la texture, nous procédons à l’échantillonnage de toutle voisinage spécifié par la liste des vecteurs de déplacement ngb. Dans le cœur de la fonction fpDilatedéfinissant le fragment programme, nous créons (ligne 7) la fonction d’échantillonnage smpfnc par l’applicationpartielle de la fonction smpBorder à la texture qui est récupérée de l’environnement env dela même manière que dans l’algorithme précédent. Nous appliquons, ligne 8, la fonction de spécialisationdu voisinage specNgbSQR pour obtenir des index pointant vers les pixels du voisinage. Ensuite,l’échantillonnage par la fonction smpf nc est appliquée et nous fournit les valeurs des pixels samples. Lavaleur résultante col est obtenue, ligne 9, par l’application de la fonction morphologique de dilatation,ngbDilate.L’initialisation de l’environnement de travail du GPU doit être effectué de la même façon que décritprécédemment.Algorithme 5.13 : gpuTexture, skeleton algorithmique de la dilatation, image est stockée dans latexture, résultat sera écrit dans le framebuffer du GPU1 gpuDilate :: Ngb → Commands → Env → Env2 gpuDilate ngb cmd e = pipeGPU vpid rasterize ( fpDilate $ ngb) rpid cmd e34 fpDilate :: Ngb → FProg5 fpDilate ngb e (p, d, cs, [ ( txi ,txp) ] ) = mkF p d [ (1,col) ] [ ( txi ,txp) ]6 where7 smpfnc = smpBorder ( ( getTXs $ e) ! ! txi )8 samples = map smpfnc (specNgbSQR ngb txp)9 col = ngbDilate samples122