; g=def_grid(/ipcc) ; multi_plot,nrow=4,layout='large' !p.multi(1)=2 if !d.name eq 'X' then begin window,xsize=650,ysize=950 endif else begin device,xsize=15,xoffset=3 device,ysize=24,yoffset=2 endelse ; map=def_map(/npolar) & map.limit(0)=30. coast=def_coast(/get_device) & coast.double=0 labels=def_labels(/off) ; restore,filename='regboxes.idlsave' for i = 0 , nreg-1 do begin ; pause fd1=boxlists(*,*,i) inter_boxfd,fd1,g.x,g.y,map=map,coast=coast,labels=labels,$ title=regname(i),levels=[0.5,1.5],c_colors=[100.] ; endfor ; end