PureBasic

Code : Tout sélectionner

; code (effet noir et blanc) du Soldat Inconnu -2004
; adapté par blendman pour créer un effet de saturation/désaturation, avec trackbar, pour PB 4.60 (07/2011)

#img = 0
#Barre = 1
#track= 2

; on charge l'image
UseJPEGImageDecoder()
LoadImage(#img, "1.jpg")

; récupère la dimension de l'image
ImageX = ImageWidth(#img)
ImageY = ImageHeight(#img)
If imageX<310
  screenX = 310
Else
  screenX = ImageX
EndIf

Global clic.b

If OpenWindow(0, 0, 0, screenX, ImageY + 60,"saturation/désaturation", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
   
  ImageGadget(#img, 0, 0, ImageX, ImageY, ImageID(#img)) 
  ProgressBarGadget(#Barre, 0, ImageY + 2, ImageX, 18, 0, ImageX)
  TrackBarGadget(#track, 3, imageY+30, screenX-5 ,20, 0,200)
  SetGadgetState(#track,100)
 
  ; On récupère l'image
  Dim Pixel.l(ImageX, ImageY)
  StartDrawing(ImageOutput(#img))
  For Px = 0 To ImageX-1
    For Py = 0 To ImageY-1
      Pixel(Px, Py) = Point(Px, Py)
    Next
    ; on fait progresser la barre
    SetGadgetState(#Barre, Px)
  Next
  StopDrawing()
 
  ; On initialise le niveau de contraste
  Niveau.f = 1
  niveauplus.f = 0.1
  sature = 1
   
  Macro couleurz()
    If bleu >255 : bleu = 255 : ElseIf bleu <0 : bleu = 0 : EndIf           
    If rouge >255 : rouge = 255 : ElseIf rouge <0 : rouge = 0 : EndIf           
    If vert >255 : vert  = 255 : ElseIf vert  <0 : vert  = 0 : EndIf 
  EndMacro
     
 
  Repeat
    Event = WaitWindowEvent()
       
    Select Event
       
     Case #PB_Event_Gadget
         Select EventGadget()
           Case 2 : Debug "trackbar"             
             Niveau = (GetGadgetState(#track)/100)
             Debug "reel :" + Str(GetGadgetState(#track))
             Debug "niveau :"+StrD(niveau)
             If niveau >1
               niveau+niveau*0.1
               sature = 1
               Debug "New niveau (+):"+StrD(niveau)
             ElseIf niveau<1 And niveau >=0
               sature = -1
               Debug "New niveau (-):"+StrD(niveau)
             EndIf
             
                               
         
       
        StartDrawing(ImageOutput(#img)) ; on dessine sur l'image
       
        ;**********************************************************************
        x = 0 ; on se place en x=0 sur l'image
       
        Repeat
         
          y = 0 ; on se place en y=0 sur l'image
         
          Repeat
           
            ; on récupère la couleur du point en x et y
            Couleur = Pixel(x, y)
            Rouge = Red(couleur)
            Vert = Green(couleur)
            Bleu = Blue(couleur)

                       
            ; On recalcule la nouvelle couleur en saturant ou en désaturant
            rouge1 =rouge
            vert1=vert
            bleu1=bleu
            couleur1 = (rouge1+ vert1+ bleu1)/3           
           
            rouge1 = Red(couleur1)
            vert1 = Red(couleur1)
            bleu1 = Red(couleur1)
                     
            Rouge = Rouge1 * (1-niveau) + Rouge * (niveau)
            Vert = Vert1 * (1-niveau) + Vert * (niveau)
            Bleu = Bleu1 * (1-niveau) + Bleu * (niveau)
            couleurz()

            If sature = -1
              If niveau <=1 And niveau >0
                Couleur = RGB(rouge,vert,bleu)             
              EndIf
            ElseIf sature = 1
              Couleur = RGB(rouge,vert,bleu)
            EndIf
           
            If sature = -1 And niveau <=0
              Couleur = Pixel(x, y)
              Rouge = Red(couleur)
              Vert = Green(couleur)
              Bleu = Blue(couleur)
              Couleur = (Rouge + Vert + Bleu) /3
              Couleur = RGB(Couleur, Couleur, Couleur)
            EndIf
           
           
            ; si la taille du nouveau pixel est positive
            Plot(x, y, Couleur) ; on dessine un carré qui fait le nouveau pixel de la même couleur que celle récupéré en x et y
           
            ; on se déplace sur l'image en y de la taille d'un pixel
            y = y + 1
           
          Until y >= ImageY ; si on a finit la colonne de l'image placé en x
         
          ; on se déplace sur l'image en x de la taille d'un pixel
          x = x + 1
        ;**********************************************************************
          ; on fait progresser la barre
          SetGadgetState(#Barre, x)
         
        Until x >= ImageX ; si on a traité toutes les lignes de l'image
       
        StopDrawing()
       
        ; on réaffiche l'image
        SetGadgetState(#img, ImageID(#img))       
             
      EndSelect         
EndSelect
       
Until Event = #WM_CLOSE ; on clique sur la croix, fin du prog

EndIf