pro cont4,im0,im1,im2,im3,tit,stit,anot,delta=delta


  if keyword_set(delta) then delta=delta else delta=25
  !p.multi=[0,2,2]
  if n_elements(im0) gt 1 then cnt,im0,subtit=anot(0),delta=delta,nlevels=25
  if n_elements(im1) gt 1 then cnt,im1,subtit=anot(1),delta=delta
  if n_elements(im2) gt 1 then cnt,im2,subtit=anot(2),delta=delta
  if n_elements(im3) gt 1 then cnt,im3,subtit=anot(3),delta=delta

  if n_elements(tit) gt 0 then xyouts,/norm,0,1.1,tit
  if n_elements(stit) gt 0 then xyouts,/norm,0,1.065,stit
;  x=[0,.5,0,.5] & y=[1.01,1.01,-0.05,-0.05]
;  for i=0,n_elements(anot)-1 do xyouts,/norm,x(i),y(i),anot(i)
  !p.multi=0

end