[fh_country]=textread('fh_countries2','%q');
load fh_timedata;
n=size(fh_timedata,2);

pr=fh_timedata(:,1:3:n);
cl=fh_timedata(:,2:3:n);
t=1972:2002;

%% Sort by latest ratings
%[pr,index]=sortrows(.5*(pr+cl),size(pr,2)-[0:size(pr,2)-1]);

%% Sort by early ratings
[pr,index]=sortrows(.5*(pr+cl),[1:size(pr,2)]);



for i=1:size(pr,1)
  for j=1:size(pr,2)
    if (pr(i,j)==-1) pr(i,j)=NaN; end
  end
end


co=jet(128);
im=zeros(size(pr,1),size(pr,2),3);
for i=1:size(pr,1)
  for j=1:size(pr,2)
    if (isnan(pr(i,j))) 
      im(i,j,:)=[1 1 1] ;
    else
      im(i,j,:)=co(1+ceil(127*(pr(i,j)-1)/7),:);
    end
  end
end


imagesc(t,1:size(pr,1),im)
%imagesc(t,1:size(pr,1),pr)

gg=gca;
set(gg,'YTick',[]);

for i=1:size(pr,1)
gg= text(1971-2*rem(i,2),i,fh_country(index(i)));
set(gg,'HorizontalAlignment','right');
set(gg,'FontSize',[3]);
end

text(2003, 1, 'Free');
text(2003, size(pr,1), 'Unfree');