function make_spectrograms(x,ddt,dwd,fmin,fmax,fsmp)
  % Creates spectrograms of {x} and sves them as
  % "spec_{dir}_{dwd}_{ddt}.png"
  
  S = spectrogram(x,ddt,dwd,fmin,fmax,fsmp);
  Ndir = 3;
  for kdir = 0:Ndir-1
    dir = kdir/(Ndir-1)
    SE = equalize_spectrogram(S,dir,ddt,dwd,fsmp);
    SE = add_tics_to_spectrogram(SE,ddt,dwd,fsmp); 
    fname = sprintf("spec_%03d_%05d_%04d.png", floor(100*dir+0.5), dwd, ddt);
    imwrite(SE, fname);
  end
  