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
