Mathematica 批量缩放图片
背景
批量缩放图片到某个大小,嗯。
准备工作
你需要有安装 Mathematica,官网见此:Wolfram Mathematica:现代科技计算
运行界面
全部代码
ReName[img_, size_] := (
FileNameJoin[Insert[FileNameSplit[img], ToString[size], -2]] //
(If[! DirectoryQ[#], CreateDirectory[DirectoryName[#]]]; #) &
);
ReSize[img_, size_] := (
If[ListQ[img],
Return[ReSize[#, size] & /@ img]];
If[StringQ[img] && FileExistsQ[img],
Return[Export[ReName[img, size], ReSize[Import[img], size]]]];
If[ImageQ[img],
Return[ImageResize[img, size]]];
Null
);
Functions = <|
"缩放到200宽" -> ReSize[f, 200],
"缩放到500宽" -> ReSize[f, 500]
|>;
"图片批量缩放器" // Labeled[#,
FileNameSetter[Dynamic[f], "OpenList"], Right] & // Labeled[#,
Grid[
{KeyValueMap[Button[#1, f = #2] &, Functions]}
]
] & // Labeled[#,
Dynamic[MatrixForm[f]]] & // Framed
Snowstar Miao.