Effet sur des images

[Le Soldat Inconnu]

7 ans, déjà ça me rajeunit pas ...

[GallyHC]

Bonjour,

Je penses que certain des effets peuvent etre optimiser ou simplifier deja pour l'effet "PIXELISATION".

Code : Tout sélectionner

UseJPEGImageDecoder()
LoadImage(0, "Effet.jpg")

ImageX = ImageWidth(0)
ImageY = ImageHeight(0)

If OpenWindow(0, 0, 0, ImageX, ImageY, "Pixellisation", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  StartDrawing(WindowOutput(0))
    DrawImage(ImageID(0), 0, 0)
    niveau = 4
    Repeat
      Event = WaitWindowEvent()
      If Event = #WM_LBUTTONDOWN
        For x=0 To ImageX - (niveau-1)
          For y=0 To ImageY - (niveau-1)
            Couleur = Point(x, y)
            Box(x, y, niveau, niveau, Couleur)  
            y + (niveau-1)
          Next y
          x + (niveau-1)
        Next x
      EndIf
    Until Event = #WM_CLOSE
  StopDrawing()
EndIf

Cordialement,
GallyHC

[Fortix]

encore mieux

Code : Tout sélectionner

UseJPEGImageDecoder()
LoadImage(0,"Effet.jpg")

ImageX = ImageWidth(0)
ImageY = ImageHeight(0)

If OpenWindow(0,0,0,ImageX,ImageY,"Pixellisation",#PB_Window_SystemMenu | #PB_Window_ScreenCentered)
    ImageGadget(0,0,0,ImageX,ImageY,ImageID(0))
        If ResizeImage(0,30,30)
            SetGadgetState(0,ImageID(0))
            ResizeImage(0,ImageX,ImageY)
            SetGadgetState(0,ImageID(0))
        EndIf
    Repeat:Until Event = #WM_CLOSE
EndIf

avec moin de ligne

non je déconne

[GallyHC]

Bonjour Fortix,

Je penses qu'il te manque quelque chose dans ton code, peux etre un

Code : Tout sélectionner

event = WaitWindowEvent()

Cordialement,
GallyHC

[Fortix]

je voulais économiser une ligne
je plaisante)