$extrastylesheet
Olena  User documentation 2.1
An Image Processing Platform
 All Classes Namespaces Functions Variables Typedefs Enumerations Enumerator Friends Groups Pages
tests/pw/image.cc
1 // Copyright (C) 2007, 2008, 2009, 2014 EPITA Research and Development
2 // Laboratory (LRDE).
3 //
4 // This file is part of Olena.
5 //
6 // Olena is free software: you can redistribute it and/or modify it under
7 // the terms of the GNU General Public License as published by the Free
8 // Software Foundation, version 2 of the License.
9 //
10 // Olena is distributed in the hope that it will be useful,
11 // but WITHOUT ANY WARRANTY; without even the implied warranty of
12 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
13 // General Public License for more details.
14 //
15 // You should have received a copy of the GNU General Public License
16 // along with Olena. If not, see <http://www.gnu.org/licenses/>.
17 //
18 // As a special exception, you may use this file as part of a free
19 // software project without restriction. Specifically, if other files
20 // instantiate templates or use macros or inline functions from this
21 // file, or you compile this file and link it with other files to produce
22 // an executable, this file does not by itself cause the resulting
23 // executable to be covered by the GNU General Public License. This
24 // exception does not however invalidate any other reasons why the
25 // executable file might be covered by the GNU General Public License.
26 
27 #include <mln/fun/p2b/chess.hh>
28 #include <mln/fun/i2v/array.hh>
29 #include <mln/core/alias/box2d.hh>
30 #include <mln/core/site_set/p_array.hh>
31 #include <mln/pw/image.hh>
32 
33 
34 int main()
35 {
36  using namespace mln;
37 
38  typedef pw::image<fun::p2b::chess,
40  ima_t ima = fun::p2b::chess() | make::box2d(8, 8);
41  // trait::image::print(ima);
42 
43  unsigned i = 0;
44  mln_piter_(ima_t) p(ima.domain());
45  for_all(p)
46  {
47  if (p.row() % 2)
48  mln_assertion(ima(p) == (p.col() % 2));
49  else
50  mln_assertion(ima(p) == !(p.col() % 2));
51  ++i;
52  }
53  mln_assertion(i == 64);
54 
55  // A mutable pw::image.
56  {
57  p_array<int> arr; // Sites are ints (why not?)
58  arr.insert(51); // Site 51.
60  ima_t ima = fun::i2v::array<int>(1) | arr; // An array psite converts to int so that works :-)
61  // trait::image::print(ima);
62 
63  p_array<int>::psite p(ima.domain(), 0); // index 0 means the 1st element of arr
64  ima(p) = 7;
65  mln_assertion(ima(p) == 7);
66  }
67 
68 }