制作电影有时候是科研过程不可或缺的一道程序,今天只说说用idl自带的XINTERANIMATE做电影的问题,初学者很容易在这方面耽误时间,因此跟大家分享一下自己的体会小程序,可以模仿着写一下:
pro **
file=file_search('*.'+'{jpeg,png,jpg,bmp}',count=n) f='*jpeg2' filedat=f+'_movie.dat' openw,1,filedat device,decomposed=0 for i=0,n-1 do begin read_jpeg,file[i],img,true=1;,img,r,g,b ; quantized_image=COLOR_QUAN(img,1, r, g, b, COLORS=256,CUBE=6) ; tvlct,r,g,b
s=size(img) help,s print,s[2],s[3] ;jpeg ; print,s[1],s[2] ;png printf,1,img[0,*,*] ;jpeg ; printf,1,img[*,*] ;png endfor free_lun,1;,/force
openr, 1, filedat img = BYTARR(s[2],s[3], n, /NOZERO) ;jpeg ; img = BYTARR(s[1],s[2], n, /NOZERO) ;png ;img = BYTARR(1000, 800, n, /NOZERO) readf, 1, img help,img,n CLOSE, 1 ;device,decomposed=0 img= REBIN(img, s[2],s[3],n) ;jpeg ; img= REBIN(img, s[1],s[2],n) ;png help,img XINTERANIMATE,SET=[s[2], s[3], n], /SHOWLOAD ,MPEG_FORMAT=1 ;, MPEG_QUALITY=100 ;window=[0,0,511,511] ;jpeg ; XINTERANIMATE,SET=[s[1], s[2], n], /SHOWLOAD ,MPEG_FORMAT=1 ,MPEG_QUALITY=100 ;png
; Load the images into XINTERANIMATE: FOR I=0,n-1 DO BEGIN XINTERANIMATE, FRAME = I, IMAGE = img[*,*,I] ,MPEG_FORMAT=1 ;, MPEG_QUALITY=100 endfor ; Play the animation: XINTERANIMATE, 60,/KEEP_PIXMAPS ,MPEG_FORMAT=1 ;, MPEG_QUALITY=100
end
未完待续
转载本文请联系原作者获取授权,同时请注明本文来自苗玉虎科学网博客。 链接地址: https://blog.sciencenet.cn/blog-1275130-1042482.html
上一篇:
sswidl利用fits文件或者jpeg文件制作电影的问题