erosion_tolerant.hh

// Copyright (C) 2009 EPITA Research and Development Laboratory (LRDE)
//
// This file is part of Olena.
//
// Olena is free software: you can redistribute it and/or modify it under
// the terms of the GNU General Public License as published by the Free
// Software Foundation, version 2 of the License.
//
// Olena is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
// General Public License for more details.
//
// You should have received a copy of the GNU General Public License
// along with Olena.  If not, see <http://www.gnu.org/licenses/>.
//
// As a special exception, you may use this file as part of a free
// software project without restriction.  Specifically, if other files
// instantiate templates or use macros or inline functions from this
// file, or you compile this file and link it with other files to produce
// an executable, this file does not by itself cause the resulting
// executable to be covered by the GNU General Public License.  This
// exception does not however invalidate any other reasons why the
// executable file might be covered by the GNU General Public License.

#ifndef MLN_MORPHO_EROSION_TOLERANT_HH
# define MLN_MORPHO_EROSION_TOLERANT_HH


# include <mln/accu/count_value.hh>
# include <mln/accu/logic/land.hh>
# include <mln/accu/logic/land_basic.hh>
# include <mln/accu/stat/min.hh>
# include <mln/accu/stat/min_h.hh>
# include <mln/accu/transform.hh>
# include <mln/morpho/general.hh>
# include <mln/morpho/includes.hh>
# include <mln/morpho/erosion.hh>

namespace mln
{

  namespace morpho
  {

    template <typename I, typename W>
    mln_concrete(I)
    erosion_tolerant(const Image<I>& input, const Window<W>& win,
                     unsigned rank);


# ifndef MLN_INCLUDE_ONLY


    // Implementation

    namespace impl
    {

      template <typename I, typename W>
      mln_concrete(I)
      erosion_tolerant_on_set(const Image<I>& input_,
                              const Window<W>& win_,
                              unsigned rank)
      {
        trace::entering("morpho::impl::erosion_tolerant_on_set");

        typedef mln_concrete(I) O;
        const I& input = exact(input_);
        const W& win = exact(win_);

        extension::adjust_fill(input, win, true);

        mln_ch_value(I, unsigned)
          tmp = accu::transform(input,
                                accu::count_value<mln_value(I)>(false),
                                win);

        O output;
        output = duplicate(input);

        mln_piter(I) p(input.domain());
        for_all(p)
          if (input(p) == true && tmp(p) >= rank)
            output(p) = false;

        trace::exiting("morpho::impl::erosion_tolerant_on_set");
        return output;
      }



      template <typename I, typename W>
      mln_concrete(I)
      erosion_tolerant_on_set_fastest(const Image<I>& input_,
                                      const Window<W>& win_,
                                      unsigned rank)
      {
        trace::entering("morpho::impl::erosion_tolerant_on_set_fastest");

        typedef mln_concrete(I) O;
        const I& input = exact(input_);
        const W& win = exact(win_);

        extension::adjust_fill(input, win, true);

        typedef mln_ch_value(I, unsigned) tmp_t;
        tmp_t tmp = accu::transform(input,
                                    accu::count_value<mln_value(I)>(false),
                                    win);

        O output;
        output = duplicate(input);

        mln_pixter(const I) p(input);
        for_all(p)
          if (p.val() == true)
            if (tmp.element(p.offset()) >= rank)
              output.element(p.offset()) = false;

        trace::exiting("morpho::impl::erosion_tolerant_on_set_fastest");
        return output;
      }

    } // end of namespace morpho::impl




    // Dispatch

    namespace internal
    {

      template <typename I, typename W>
      mln_concrete(I)
      erosion_tolerant_dispatch(trait::image::kind::any,
                                trait::image::speed::any,
                                const I& input, const W& win, unsigned rank)
      {
        mlc_abort(I)::check();

        typedef mln_concrete(I) output_t;
        return output_t();
      }


      template <typename I, typename W>
      mln_concrete(I)
      erosion_tolerant_dispatch(trait::image::kind::logic,
                                trait::image::speed::any,
                                const I& input, const W& win, unsigned rank)
      {
        return impl::erosion_tolerant_on_set(input,
                                             win,
                                             rank);
      }

      template <typename I, typename W>
      mln_concrete(I)
      erosion_tolerant_dispatch(trait::image::kind::logic,    // On sets.
                                trait::image::speed::fastest, // Fastest.
                                const I& input, const W& win, unsigned rank)
      {
        return impl::erosion_tolerant_on_set_fastest(input,
                                                     win,
                                                     rank);
      }


      template <typename I, typename W>
      inline
      mln_concrete(I)
      erosion_tolerant_dispatch(const Image<I>& input,
                                const Window<W>& win,
                                unsigned rank)
      {
        return erosion_tolerant_dispatch(mln_trait_image_kind(I)(),
                                         mln_trait_image_speed(I)(),
                                         exact(input), exact(win), rank);
      }

    } // end of namespace mln::morpho::internal




    // Facade

    template <typename I, typename W>
    inline
    mln_concrete(I)
    erosion_tolerant(const Image<I>& input, const Window<W>& win,
                     unsigned rank)
    {
      trace::entering("morpho::erosion_tolerant");
      mln_precondition(exact(input).is_valid());
      mln_precondition(exact(win).is_valid());

      mln_concrete(I)
        output = internal::erosion_tolerant_dispatch(input, win, rank);

      trace::exiting("morpho::erosion_tolerant");
      return output;
    }

# endif // ! MLN_INCLUDE_ONLY

  } // end of namespace mln::morpho

} // end of namespace mln


#endif // ! MLN_MORPHO_EROSION_TOLERANT_HH