IDL对于图像重采样的批处理 

 1  ;+
 2     ; :Description:
 3     ;    Describe the procedure.
 4     ; :Author: Siyuan_Wang
 5     ;-
 6 pro gif_resample
 7   ;read_jpeg,'I:\新建文件夹\道路车速工作日0-1.jpg',a,true=1
 8   ;TV,a,true=1
 9   file_dir = 'C:\Users\Siyuan_Wang\Desktop\tu'
10   d=file_search(file_dir,'*.jpg')
11     for i = 0, 23 do begin
12       filedir = d[i]
13       img = read_image(filedir)
14       imgsize = size(img,/dimensions)
15       a = (imgsize[1]+1)/2
16       b=  imgsize[2]/2
17       img_rebin = congrid(img,imgsize[0],a,b)
18       A=strmid(filedir,10,7,/reverse_offset)
19       savedir = 'C:\Users\Siyuan_Wang\Desktop\tu\resample_results\'+A+'.jpg'
20       imgshow = image(img_rebin)
21       imgshow.Save,savedir
22       imgshow.window.close
23     endfor
24 ;;循环读取
25   ;  for i = 0,23 do begin
26   ;    image_dir=d[i]
27 ;   
28 ;    从文件名字里提取string，从33开始，一共5个字母
29 ;    A=strmid(image_dir,33,5,/reverse_offset)
30 ;    img=image(image_dir,window_title=A+'show')
31 ;  endfor
32   
33  end

 

posted @ 2017-04-17 18:52  一汉  阅读(1894)  评论(0)    收藏  举报