function mk4pane, nb, nf, arg1, arg2, arg3, arg4 
; The arguments are:
;
; nb== begining frame number
; nf== ending frame number
; arg1== a 3D byte array containing the image sequence
;        to go into the upper left hand panel
; arg2== a 3D byte array containing the image sequence
;        to go into the upper right hand panel
; arg3== a 3D byte array containing the image sequence
;        to go into the lower left hand panel
; arg4== a 3D byte array containing the image sequence
;        to go into the upper right hand panel
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

stuff= size(arg1)
nframes= nf-nb + 1
fsize= stuff(2)

themov= bytarr(2*fsize, 2*fsize, nframes)

window, 1, xsize= 2*fsize, ysize= 2*fsize, /pixmap

frame= nb 
for i= 0, nframes-1 do begin
  print, "MK4PANE: Generating frame ", frame
  pane1= arg1(*,*,i)
  pane2= arg2(*,*,i)
  pane3= reverse(arg3(*,*,i), 2)
  pane4= reverse(arg4(*,*,i), 2)

  tv, pane1, 0, fsize
  tv, pane2, fsize, fsize
  tv, pane3, 0, 0
  tv, pane4, fsize, 0

  themov(*,*,i)= tvrd()
  frame= frame+1
endfor

wdelete, 1
print, "Fini!"
return, themov 

end