; File: making_waves.pro
; Author: Erik Brisson

pro making_waves

a = fltarr(256,3,63)
for i=0,255 do for j=0,2 do for k=0,62 do $
    a(i,j,k) = sin(float(i-k)/10.)/exp((float(i)/200.))

frames=bytarr(400,300,63)
window,retain=2,/free,title='making waves',xsize=400,ysize=300

for k=0,62 do begin $
    shade_surf, a(*,*,k) & $
    frames(0,0,k) = tvrd() & $
end

movie, frames, order=0

end