function display_header
%DISPLAY_HEADER  Display the Image Header parameters.
%
%

%
% Copyright (c) 1995 by Claudio Rivetti and Mark Young
% claudio@alice.uoregon.edu,    mark@alice.uoregon.edu
%

global H

oldf=findobj(0, 'name', 'Image Parameters');
if ~isempty(oldf)
  figure(oldf);
  return;
end

if isempty(H)
  return;
end



beg=findstr(H, '\');
endrow=findstr(H,13);
i=min(length(beg), length(endrow));
beg=beg(1:i);
endrow=endrow(1:i);

sp=ones(1,length(beg))*50-(endrow-beg);
nrow=length(endrow);
ncol=128;

h=strrep(H, '\*', [10 32]);
h=strrep(h, '\', 9);


% Build resulting string
s=zeros(nrow, ncol);

for i=1:nrow,
   row=(h(beg(i):endrow(i)));
   newrow=strrep(row, ': ', [':' setstr(zeros(1,sp(i))+46) ' ']);
   newrow=[newrow zeros(1,ncol-length(newrow))];
   s(i,:)=newrow;
end


display_text(s, 'Image Parameters', [120 460 700 440]);

return