;
;
; Get chronology locations
;
print,'Reading MXD data'
restore,filename='allmxd.idlsave'
;  nchron,idno,idname,location,country,tree,yrstart,yrend,statlat,statlon,$
;  mxd,fraction,timey,nyr
;
multi_plot,nrow=2
loadct,39
if !d.name eq 'X' then begin
  window,ysize=800
  !p.font=-1
endif else begin
  !p.font=0
  device,/helvetica,/bold,font_size=14
endelse
loadct,39
def_1color,20,color='lsand'
def_1color,40,color='dred'
def_smearcolor,fromto=[20,40]
;
nlen=yrend-yrstart+1
isort=reverse(sort(nlen))
;
plot,[0,1],/nodata,$
  /xstyle,xrange=[1400,2000],xtitle='Year',$
  /ystyle,yrange=[-5,400],ytitle='Chronology'
;
for i = 0 , nchron-1 do begin
  j=isort(i)
  icol=((nlen(j)-100)/30)+20
  icol=(icol > 20) < 40
  plots,[yrstart(j) > 1400,yrend(j)],[i,i],thick=1,color=icol
endfor
;
end