;
dops=0      ; 0=PNG 1=PS output
doabd=1
doinfill=1
if doabd ne 0 then fadd='abd' else fadd=''
;
for kkk = 1400 , 1960 do begin
  if dops eq 1 then ploton,1
  yrlist=kkk
  maps_general,yrlist,nmaps=1,doinfill=doinfill,doabd=doabd,noscale=1-dops
  if dops eq 1 then begin
    plotoff
    spawn,'mv idl.ps1 fig/webmap_'+fadd+string(kkk,format='(I4)')+'.ps'
  endif else begin
    mkpng,fn='fig/webmap_'+fadd+string(kkk,format='(I4)')+'.png'
  endelse
endfor
;
end