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/util/lemmings.hh> 00027 #include <mln/core/image/image2d.hh> 00028 00029 00030 int main () 00031 { 00032 using namespace mln; 00033 00034 typedef image2d<int> I; 00035 00036 int vals[4][4] = {{2, 2, 6, 6}, 00037 {2, 2, 6, 6}, 00038 {3, 3, 4, 4}, 00039 {3, 3, 4, 4}}; 00040 00041 I ima = make::image<int>(vals); 00042 00043 point2d 00044 pt1(1, 0), 00045 pt2(0, 2), 00046 pt3(2, 3), 00047 pt4(3, 1), 00048 pt5(1, 1); 00049 00050 int 00051 vl1 = ima(pt1), 00052 vl2 = ima(pt2), 00053 vl3 = ima(pt3), 00054 vl4 = ima(pt4), 00055 vl5 = ima(pt5); 00056 00057 point2d 00058 ptl1 = util::lemmings(ima, pt1, right, vl1), 00059 ptl2 = util::lemmings(ima, pt2, down, vl2), 00060 ptl3 = util::lemmings(ima, pt3, left, vl3), 00061 ptl4 = util::lemmings(ima, pt4, up, vl4), 00062 ptl5 = util::lemmings(ima, pt5, up, vl5); 00063 00064 mln_assertion(ptl1 == point2d(1, 2)); 00065 mln_assertion(ptl2 == point2d(2, 2)); 00066 mln_assertion(ptl3 == point2d(2, 1)); 00067 mln_assertion(ptl4 == point2d(1, 1)); 00068 mln_assertion(ptl5 == point2d(-1, 1)); 00069 }