function test(W,r);

  s = sqrt(size(W));

  m = reshape(W(r,:),s);

  clf, whitebg(gcf,[0 0 0])
  imagesc(m)
