PureBasic

Code : Tout sélectionner

; Imagetest : "http://share.ldvmultimedia.com/pieces_donjon2.png"

UsePNGImageDecoder()
UsePNGImageEncoder()

Image = LoadImage(#PB_Any,"D:\OneDrive\Documents\PB\pieces_donjon2.png")


Macro GrabSave(IDim, PosX, PosY, La, Ha)
  ;Ar-S
  StartDrawing(ImageOutput(Image))
  NewImage = GrabDrawingImage(#PB_Any,PosX,PosY,La ,Ha)
  Resultat = SaveImage(NewImage, GetCurrentDirectory()+"image"+Str(IDim)+".png" , #PB_ImagePlugin_PNG)
  StopDrawing()
EndMacro

nombredimage_surmaligne = 4
L = 256 ;largeurduneimage ; a toi de voir la largeur d'une des images à capturer
H = 256 ;hauteurduneimage ; a toi de voir la hauteur d'une des images à capturer

NBR = 1
For i = 0 To nombredimage_surmaligne-1
  Debug x
  GrabSave(i, x, 0, L, H)
  x+256
Next

Code : Tout sélectionner

InitSprite()
UsePNGImageDecoder()
UsePNGImageEncoder()
i=LoadImage(#PB_Any,"Pieces_Donjon.png") ; image de travail
t=LoadImage(#PB_Any,"Pieces_Donjon.png") ; image de decoupage

Structure cut
  x.i
  y.i
  l.i
  h.i  
  pic.i
EndStructure
NewList pt.coord()
NewList ct.cut()
StartDrawing(ImageOutput(i))
x=0
y=0
c=Point(x,y) ; bg color
Repeat  
  fnd=0
  For y=0 To ImageHeight(i)-1
    If Point(x,y)<>c 
      Plot(x,y,$ffffff)
      fnd=1:Break
    EndIf      
  Next
  If fnd=1   ; object found
    AddElement(pt())
    pt()\x=x
    pt()\y=y
    minx=x
    miny=y
    maxx=x
    maxy=y
    start:
    ForEach pt()
      If pt()\x< minx
        minx=pt()\x
      EndIf
      If pt()\x> maxx
        maxx=pt()\x
      EndIf
      
      If pt()\y< miny
        miny=pt()\y
      EndIf
      If pt()\y> maxy
        maxy=pt()\y
      EndIf                        
      Plot(pt()\x,pt()\y,c) ; efface le point dans l'image      
      xx=pt()\x
      yy=pt()\y
      DeleteElement(pt())
      range=2
      For rng=1 To range
        If Point(xx-rng,yy)<>c
          AddElement(pt())
          pt()\x=xx-rng
          pt()\y=yy
          Plot(pt()\x,pt()\y,c) ; efface le point dans l'image        
        EndIf
        If Point(xx+rng,yy)<>c
          AddElement(pt())
          pt()\x=xx+rng
          pt()\y=yy
          Plot(pt()\x,pt()\y,c) ; efface le point dans l'image      
          
        EndIf
        If Point(xx,yy-rng)<>c
          AddElement(pt())
          pt()\x=xx
          pt()\y=yy-rng
          Plot(pt()\x,pt()\y,c) ; efface le point dans l'image      
        EndIf
        If Point(xx,yy+1)<>c
          AddElement(pt())
          pt()\x=xx
          pt()\y=yy+rng
          Plot(pt()\x,pt()\y,c) ; efface le point dans l'image      
        EndIf      
        If Point(xx-1,yy-rng)<>c
          AddElement(pt())
          pt()\x=xx-rng
          pt()\y=yy-rng
          Plot(pt()\x,pt()\y,c) ; efface le point dans l'image      
        EndIf
        If Point(xx+1,yy+1)<>c
          AddElement(pt())
          pt()\x=xx+rng
          pt()\y=yy+rng
          Plot(pt()\x,pt()\y,c) ; efface le point dans l'image      
        EndIf
        If Point(xx+rng,yy-rng)<>c
          AddElement(pt())
          pt()\x=xx+rng
          pt()\y=yy-rng
          Plot(pt()\x,pt()\y,c) ; efface le point dans l'image      
        EndIf
        If Point(xx-rng,yy+rng)<>c
          AddElement(pt())
          pt()\x=xx-rng
          pt()\y=yy+rng
          Plot(pt()\x,pt()\y,c) ; efface le point dans l'image      
        EndIf    
      Next
    Next
    If ListSize(pt())
      Goto start
    Else
      ;   Goto exit
      Debug Str(minx)+","+Str(miny)+","+Str(maxx)+","+Str(maxy)      
      AddElement(ct())
      ct()\x=minx
      ct()\y=miny
      ct()\l=maxx-minx+1
      ct()\h=maxy-miny+1
    EndIf    
  EndIf
  x+1  
Until x=ImageWidth(i) And y= ImageHeight(i)
StopDrawing()
SaveImage(i,"output.png",#PB_ImagePlugin_PNG)
ForEach ct()
  ct()\pic=GrabImage(t,#PB_Any,ct()\x,ct()\y,ct()\l,ct()\h)
  SaveImage(ct()\pic,"cutout_"+Str(ListIndex(ct()))+".png",#PB_ImagePlugin_PNG)
Next