- 积分
- 3638
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2014-10-21
- 最后登录
- 1970-1-1
|
楼主 |
发表于 2018-8-29 14:10:25
|
显示全部楼层
xInterAnimate:做动画的组件
OPENR, unit, FILEPATH('abnorm.dat', $
SUBDIR=['examples','data']), /GET_LUN
H = BYTARR(64, 64, 16, /NOZERO)
READU, unit, H
CLOSE, unit
; Read the images into variable H:
H = REBIN(H, 128, 128, 16)
; Initialize XINTERANIMATE:
XINTERANIMATE, SET=[128, 128, 16], /SHOWLOAD
; Load the images into XINTERANIMATE:
FOR I=0,15 DO XINTERANIMATE, FRAME = I, IMAGE = H[*,*,I]
; Play the animation:
XINTERANIMATE, /KEEP_PIXMAPS
代码的思路其实就是把一个三维数组每一层作为一帧
|
|