;
; Plots maps for Briffa
;
ploton,1
;
y1=1571
y2=1900
ny=y2-y1+1
ally=findgen(ny)+y1
;
maps_general,ally,/doinfill,/doabd,composite=txt(y1)+'!C'+txt(y2),wantnmap=6
;
for i = 0 , 10 do begin
 y1=1571+i*30
 y2=y1+29
 ny=y2-y1+1
 ally=findgen(ny)+y1
 ;
 if !p.multi[0] eq 0 then begin
  plotoff
  spawn,'mv idl.ps1 briffafig_page1.ps'
  ploton,1
  pause
  maps_general,ally,/doinfill,/doabd,composite=txt(y1)+'!C'+txt(y2),noscale=0,oldpage=0,$
   wantnmap=6
 endif else begin
  maps_general,ally,/doinfill,/doabd,composite=txt(y1)+'!C'+txt(y2),noscale=2,/oldpage
 endelse
endfor
;
plotoff
spawn,'mv idl.ps1 briffafig_page2.ps'
;
spawn,'ps2pdf briffafig_page1.ps'
spawn,'ps2pdf briffafig_page2.ps'
;
end