lib/test.lua

   1 -- Swamp Bike Opera embedded system for Kaffe Matthews
   2 -- Copyright (C) 2012 Wolfgang Hauptfleisch, Dave Griffiths
   3 --
   4 -- This program is free software: you can redistribute it and/or modify
   5 -- it under the terms of the GNU General Public License as published by
   6 -- the Free Software Foundation, either version 3 of the License, or
   7 -- (at your option) any later version.
   8 --
   9 -- This program 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
  12 -- GNU General Public License for more details.
  13 --
  14 -- You should have received a copy of the GNU General Public License
  15 -- along with this program.  If not, see <http://www.gnu.org/licenses/>.
  16
  17 require 'poly'
  18 require 'map'
  19 require 'std'
  20
  21 ZONES = map.load()
  22
  23 --print(angle(1,2,1,1))
  24
  25
  26 --local ZONES = {
  27
  28 --{
  29 --{ x = 2, y = 3 } ,
  30 --{ x = 3, y = 7 },
  31 --{ x = 5, y = 6 },
  32 --{ x = 7, y = 6 },
  33 --{ x = 8, y = 2 },
  34 --{ x = 5, y = 1 },
  35 --},
  36 --
  37 --}
  38
  39
  40
  41 --local polygon = {
  42 --
  43 --{ 3.73725 , 51.04295 },
  44 --{ 3.73696 , 51.04325 },
  45 --{ 3.73738 , 51.04338 },
  46 --{ 3.73770 , 51.04313 },
  47 --
  48 --}
  49
  50 --for i, polygon in ipairs(ZONES) do
  51 --    print(poly.is_in_polygon(polygon, 51.04939 , 3.73439))
  52 --end
  53
  54 std.dumptable(ZONES)
  55
  56 -- std.dumptable(poly.polygon_shift(ZONES[1], "west"))