function [pics_t, pics_f] = pics_spectraux(S)

    tau = 30;
    phi = 30;
    epsilon = 1;

    dilated = imdilate(S, true(phi, tau));
    [pics_f, pics_t] = find(S == dilated & S > epsilon);

end