function wavplot(t,s,n=256)

  N = (floor(length(s)/n)-1)*n;
  
  np = 1;
  for i=1:n:N
    tt(np)=t(i);
    ss(np)=min(s(i:i+n-1));
    np = np + 1;
    tt(np) = t(i+n/2);
    ss(np)=max(s(i:i+n-1));
    np = np + 1;    
  endfor

  plot(tt,ss)

  set(findall('type','line'), 'linewidth', 2);
  set(gca(), 'fontsize', 18);
  set(gca(), 'linewidth', 2);     
  
endfunction
