Batch resize files?

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|592\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> On Topic -> Batch resize files?
Fri, 11 Mar 2016, 07:37
GfK	I've got a bunch of folders/subfolders with (among other stuff) images of 496x496px. I want to resize ONLY the images of this size and resave (overwrite) them in PNG format. I thought Irfanview might do the job, but that'll resize every image it finds in the subfolders, and this isn't what I want to do. Sort of: If image.width = 496 and image.height = 496 Resize it Else Do Nowt EndIf --v Any ideas?
Fri, 11 Mar 2016, 07:51
Jayenkai	BlitzMax.. Readdir Loadpixmappng() If img size resizepixmap(); Savepixmappng() --v I recently did this to rescale all my thumbnails for my game archive. -=-=- ''Load, Next List!''
Fri, 11 Mar 2016, 07:54
GfK	i thought about doing it like that. But from memory, isn't Blitzmax's pixmap resizey thingy a bit.... you know.... shit?
Fri, 11 Mar 2016, 08:04
Jayenkai	Depends what you're using it for, and how much you're scaling it. Scaled from this Mileage may vary! -=-=- ''Load, Next List!''
Fri, 11 Mar 2016, 08:07
GfK	It's for ebay listings, which insists on mininum 500x500. All my images are 496x496.
Fri, 11 Mar 2016, 08:12
Jayenkai	Alternatively, also BlitzMax Scan folder If image=size system_("c:\pathtoirfanview\irfanview pathtoimage\img longForgottenParametersToRescaleImage") endif --v -=-=- ''Load, Next List!''
Fri, 11 Mar 2016, 08:15
Jayenkai	That's only 4 pixels.. Why not, instead, do.. loadpixmappng(img_in) img_out=Createpixmap(500,500,PF_RGBA8888) for x=0 to 499 for y=0 to 499 writepixel(img_out,x,y,$00000000) next next for x=0 to 495 for y=0 to 495 argb=readpixel(img_in,x,y) writepixel(img_out,x+2,y+2,argb) next next savepixmappng(img_out,filename) --v -=-=- ''Load, Next List!''
Sat, 12 Mar 2016, 04:48
GfK	Well, all my images are on a mid-grey background. ResizePixmap made them look quite muddy, which was no good. So instead I just sampled the top-left pixel, created a new 500x500 pixmap and cleared the pixels to that colour, pasted the old pixmap in the middle, and resave the file over the original. Ran this, and it found over 800 images on the NAS. Don't know/care how many were actually 496x496 but it must have been at least 75%. Took about three minutes to complete but I guess most of that was transferring data to/from the NAS. It'd have taken days to do this manually. Plus, always the chance that I'd accidentally miss a few. Strict Global fileList:TList = New TList Global count:Int 'prescan DebugLog "Pre-scan..." scanFolder(CurrentDir()) DebugLog fileList.count() + " files found" DebugLog "Resizing..." resizeImages(496, 496, 500, 500) Function resizeImages(width:Int, height:Int, newWidth:Int, newHeight:Int) Local total:Int = fileList.count() Local c:Int = 1 For Local file:String = EachIn fileList DebugLog "processing " + c + " / " + total Local px:TPixmap = LoadPixmap(file) Local newPx:TPixmap If px If px.width = width And px.height = height newPx = CreatePixmap(newWidth, newHeight, PF_RGBA8888) newPx.ClearPixels(ReadPixel(px, 0, 0)) newPx.paste(px, 2, 2) SavePixmapPNG(newPx, file, 0) EndIf EndIf c:+1 Next End Function Function scanFolder(path:String) Local dir:Int = ReadDir(path) Local t:String Repeat t = NextFile(dir) If t <> "." And t <> ".." Select FileType(path + "/" + t) Case FILETYPE_FILE If Right(t, 4) = ".png" fileList.AddLast(path + "/" + t) EndIf Case FILETYPE_DIR scanFolder(path + "/" + t) End Select EndIf Until t = "" End Function --v