$extrastylesheet
Olena  User documentation 2.1
An Image Processing Platform
 All Classes Namespaces Functions Variables Typedefs Enumerations Enumerator Friends Groups Pages
bind.cc
1 // Copyright (C) 2013 EPITA Research and Development Laboratory (LRDE).
2 //
3 // This file is part of Olena.
4 //
5 // Olena is free software: you can redistribute it and/or modify it under
6 // the terms of the GNU General Public License as published by the Free
7 // Software Foundation, version 2 of the License.
8 //
9 // Olena is distributed in the hope that it will be useful,
10 // but WITHOUT ANY WARRANTY; without even the implied warranty of
11 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
12 // General Public License for more details.
13 //
14 // You should have received a copy of the GNU General Public License
15 // along with Olena. If not, see <http://www.gnu.org/licenses/>.
16 //
17 // As a special exception, you may use this file as part of a free
18 // software project without restriction. Specifically, if other files
19 // instantiate templates or use macros or inline functions from this
20 // file, or you compile this file and link it with other files to produce
21 // an executable, this file does not by itself cause the resulting
22 // executable to be covered by the GNU General Public License. This
23 // exception does not however invalidate any other reasons why the
24 // executable file might be covered by the GNU General Public License.
25 
29 
30 #include <mln/core/image/image2d.hh>
31 
32 #include <mln/pw/all.hh>
33 #include <mln/fun/v2v/abs.hh>
34 #include <mln/fun/vv2v/max.hh>
35 
36 #include <mln/arith/minus.hh>
37 #include <mln/debug/iota.hh>
38 #include <mln/test/predicate.hh>
39 
40 
41 int main()
42 {
43  using namespace mln;
44 
45  image2d<int> pos_ints(3, 3);
46  debug::iota(pos_ints);
47  image2d<int> neg_ints = -pos_ints;
48 
49  // Exercise unary point-wise function binding.
50  mln_assertion(test::predicate(pos_ints.domain(),
52  pw::value(neg_ints))
53  == pw::value(pos_ints)));
54 
55  // Exercise binary point-wise function binding.
56  mln_assertion(test::predicate(pos_ints.domain(),
58  pw::value(pos_ints),
59  pw::value(neg_ints))
60  == pw::value(pos_ints)));
61 }