1. Bonjour tout le monde ! Veillez consulter la Politique de forum pour comprendre nos règles, Merci a vous !
    Rejeter la notice

AIDE [WD20] remplacer une couleur par une autre dans une image

Discussion dans 'Windev' créé par irobot, Août 22, 2018.

  1. irobot

    irobot Active Member
    MEMBRE WX

    Inscrit:
    Jan 10, 2018
    Messages:
    143
    J'aime reçus:
    131
    Salut à tous!
    toujours avec mes marqueurs, je cherche une solution pour remplacer par programmation une couleur par une autre dans une image. J'ai vu sur ggl une solution à base d'API windows, mais c'est bof bof et très ancien. D'autres pistes ?

    Merci de vote aide.
     
    #1 irobot, Août 22, 2018
    Tags:
  2. Ezekiel056

    Ezekiel056 Active Member

    Inscrit:
    Jan 17, 2018
    Messages:
    200
    J'aime reçus:
    154
    Salut,

    La couleur est fixe? Genre Pixel rouge par un pixel vert ?
     
    #2 Ezekiel056, Août 22, 2018
    irobot apprécie ceci.
  3. irobot

    irobot Active Member
    MEMBRE WX

    Inscrit:
    Jan 10, 2018
    Messages:
    143
    J'aime reçus:
    131

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    Salut,

    La couleur est fixe? Genre Pixel rouge par un pixel vert ?
    Cliquez pour agrandir...
    oui.
    j'ai trouvé la solution : je passe par dimageverstableau pour identifier les pixels à modifier, puis je les remplace:

    Code (Text):

    LOCAL
       mon_image est une Image
       nCouleur_aremplacer est un entier=RougeClair // 255.0.0
       ncouleur_nouvelle est un entier=BleuClair
     
       tabLuminance est un tableau de * par * entiers
       sfic est une chaîne=ComplèteRep(fRepExe())+"temp\test.png"
    SI gsimage<>"" ALORS
       mon_image=dChargeImage(gsimage)
       dDébutDessin(mon_image)
       dImageVersTableau(gsimage,tabLuminance,dComposanteRVB)
       POUR nx = 1 _A_ TableauInfo(tabLuminance, tiNombreLignes)
           POUR ny = 1 _A_ TableauInfo(tabLuminance, tiNombreColonnes)
               SI tabLuminance[nx][ny]=nCouleur_aremplacer   ALORS
                   dPoint(nx-1, ny-1, ncouleur_nouvelle)
               FIN
           FIN
       FIN
       dSauveImagePNG(mon_image,sfic)
       IMG_resultat=dChargeImage(sfic)

     
     
    #3 irobot, Août 22, 2018
    CharlyGO, elhacene, joker et 1 autre personne aiment ça.
  • Ezekiel056

    Ezekiel056 Active Member

    Inscrit:
    Jan 17, 2018
    Messages:
    200
    J'aime reçus:
    154
    C'est ce que j'allais te proposer :)
     
    #4 Ezekiel056, Août 22, 2018
    irobot apprécie ceci.
    • (Vous devez vous identifier ou vous inscrire pour poster ici.)

    Partager cette page

    Chargement...