00001 // Copyright (C) 2007, 2008, 2009 EPITA Research and Development Laboratory (LRDE) 00002 // 00003 // This file is part of Olena. 00004 // 00005 // Olena is free software: you can redistribute it and/or modify it under 00006 // the terms of the GNU General Public License as published by the Free 00007 // Software Foundation, version 2 of the License. 00008 // 00009 // Olena is distributed in the hope that it will be useful, 00010 // but WITHOUT ANY WARRANTY; without even the implied warranty of 00011 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 00012 // General Public License for more details. 00013 // 00014 // You should have received a copy of the GNU General Public License 00015 // along with Olena. If not, see <http://www.gnu.org/licenses/>. 00016 // 00017 // As a special exception, you may use this file as part of a free 00018 // software project without restriction. Specifically, if other files 00019 // instantiate templates or use macros or inline functions from this 00020 // file, or you compile this file and link it with other files to produce 00021 // an executable, this file does not by itself cause the resulting 00022 // executable to be covered by the GNU General Public License. This 00023 // exception does not however invalidate any other reasons why the 00024 // executable file might be covered by the GNU General Public License. 00025 00026 #include <mln/fun/p2b/chess.hh> 00027 #include <mln/fun/i2v/array.hh> 00028 #include <mln/core/alias/box2d.hh> 00029 #include <mln/core/site_set/p_array.hh> 00030 #include <mln/pw/image.hh> 00031 #include <mln/core/var.hh> 00032 00033 00034 int main() 00035 { 00036 using namespace mln; 00037 00038 typedef pw::image<fun::p2b::chess, 00039 box<mln::point<grid::square, short int> > > ima_t; 00040 ima_t ima = fun::p2b::chess() | make::box2d(8, 8); 00041 // trait::image::print(ima); 00042 00043 unsigned i = 0; 00044 mln_piter_(ima_t) p(ima.domain()); 00045 for_all(p) 00046 { 00047 if (p.row() % 2) 00048 mln_assertion(ima(p) == (p.col() % 2)); 00049 else 00050 mln_assertion(ima(p) == !(p.col() % 2)); 00051 ++i; 00052 } 00053 mln_assertion(i == 64); 00054 00055 // A mutable pw::image. 00056 { 00057 p_array<int> arr; // Sites are ints (why not?) 00058 arr.insert(51); // Site 51. 00059 typedef pw::image<fun::i2v::array<int>, p_array<int> > ima_t; 00060 ima_t ima = fun::i2v::array<int>(1) | arr; // An array psite converts to int so that works :-) 00061 // trait::image::print(ima); 00062 00063 p_array<int>::psite p(ima.domain(), 0); // index 0 means the 1st element of arr 00064 ima(p) = 7; 00065 mln_assertion(ima(p) == 7); 00066 } 00067 00068 }