PRO CINE, data ; Load the data. IF N_Elements(data) EQ 0 THEN BEGIN data = BytArr(80,100,57) file = Filepath(Subdirectory=['examples','data'], 'head.dat') OpenR, lun, file, /Get_Lun ReadU, lun, data Free_Lun, lun ENDIF ; Set up colors. LoadCT, 0 ; Set up the animation. XInterAnimate, Set=[240, 300, 37], /Showload ; Load the animation FOR j=0,36 DO BEGIN rotData = Transform_Volume(data, Rotation=[0,0,(j*10) MOD 360], Missing=0) TVImage, Reform(Max(rotData, DIMENSION=1)) XInteranimate, Frame=j, Window=!D.Window ENDFOR ; Run the animation. XInterAnimate, 50 END