움직이는 GIF 화일 만들기(예제)

IDL의 버젼이 올라가면서 작동하는 기능..
기본적으로 GIF 화일을 읽고 쓰는 것이 되어야 가능한 기능..
IDL5.3 버젼에서는 아무 꺼리낌없이 GIF화일을 읽고 저장할 수 있었으나
GIF 포맷의 라이센스 문제가 해결되지 않아서 한동안 GIF를 읽고 쓸 수 없었음.
그 대신 추천한 포맷이 png 포맷이었구.

6.4가 나올 때 라이센스 문제가 풀려서
GIF을 읽고 쓸 수 있게 되었고, 그로 인해서 움직이는 GIF 화일 작성이 가능해짐..


아래 내용은 idluser.org에서 가져옴..

pro test_anim_gif
file=filepath('abnorm.dat', subdir=['examples', 'data'])
heart=read_binary(file, data_dims=[64, 64, 15])

device, decomposed=0
loadct, 8
tvlct, r, g, b, /get

wfile='abnorm_anim.gif'
for i=0, 14 do begin
  one_pic=rebin(bytscl(heart[*,*,i]<239), 192, 192)
  write_gif, wfile, one_pic, r, g, b, /multiple, delay=10, repeat_count=5
endfor
write_gif, wfile, /close
end