- 积分
- 3628
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2014-10-21
- 最后登录
- 1970-1-1
|
登录后查看更多精彩内容~
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
本帖最后由 15195775117 于 2019-9-30 15:50 编辑
在熟练使用编程之前,批量改图片大小我用的是PS的“动作”功能,它可以记录一张图片的执行步骤,生成一个依赖于PS的exe,然后把图拖到这个图标上,就会自动执行记录的步骤了。
今天,我想分享我的云摄影作品,但是上传失败,我估计是因为图太大了,于是写了个改大小的程序。
与大家分享:
;把大图改小
pro reduce_figsize,fold
;图片所在文件夹:
;fold='C:\Users\Administrator\Desktop\气象奇云\'
file=file_search(fold,'*.jpg')
for i=0,n_elements(file)-1 do begin
info=file_info(file)
; 如果图大于1M,就长宽各减为一半:
if(info.size/1000000.0 gt 1)then begin
read_jpeg,file,ima
sz=size(ima)
;sz[1]可能是3(jpg),可能是4(png)
;rebin要求数组修改是整数关系,但congrid修改大小是随意的
ima=congrid(ima,sz[1],sz[2]/2,sz[3]/2)
;覆盖写出:
WRITE_JPEG,file,ima,true=1
endif
endfor
end
|
|