terraformer 0.0.1 → 0.0.2

data/lib/terraformer/geodesic.rb

@@ -0,0 +1,116 @@
+module Terraformer
+
+  class Geodesic
+
+    MAX_ITERS = 20
+    attr_accessor :precision
+
+    def self.test
+      a = Coordinate.new -122.6764, 45.5165
+      b = a + [0.02, 0.02]
+      r = a.distance_and_bearing_to b
+      puts "distance between #{a} and #{b} : #{r[:distance]}"
+      puts "initial bearing: #{r[:bearing][:initial]}"
+      puts "final bearing: #{r[:bearing][:final]}"
+    end
+
+    class << self
+      [:sin, :cos, :tan, :sqrt, :atan, :atan2].each do |m|
+        define_method m do |*a|
+          BigMath.__send__ m, *a.push(PRECISION)
+        end
+      end
+    end
+
+    # http://www.ngs.noaa.gov/PUBS_LIB/inverse.pdf
+    #
+    # ported from https://android.googlesource.com/platform/frameworks/base/+/refs/heads/master/location/java/android/location/Location.java
+    #
+    def self.compute_distance_and_bearing lat_1, lon_1, lat_2, lon_2
+      lat_1 = lat_1.to_rad
+      lat_2 = lat_2.to_rad
+      lon_1 = lon_1.to_rad
+      lon_2 = lon_2.to_rad
+
+      a = 6378137.to_d
+      b = 6356752.3142.to_d
+      f = (a - b) / a
+      a_sq_minus_b_sq_over_b_sq = (a * a - b * b) / (b * b)
+
+      _l = lon_2 - lon_1
+      _a = BigMath::ZERO
+      _u1 = atan((BigMath::ONE - f) * tan(lat_1))
+      _u2 = atan((BigMath::ONE - f) * tan(lat_2))
+
+      cos_u1 = cos(_u1)
+      cos_u2 = cos(_u2)
+      sin_u1 = sin(_u1)
+      sin_u2 = sin(_u2)
+      cos_u1_cos_u2 = cos_u1 * cos_u2
+      sin_u1_sin_u2 = sin_u1 * sin_u2
+
+      sigma = BigMath::ZERO
+      delta_sigma = BigMath::ZERO
+      cos_sq_alpha = BigMath::ZERO
+      cos2_s_m = BigMath::ZERO
+      cos_sigma = BigMath::ZERO
+      sin_sigma = BigMath::ZERO
+      cos_lambda = BigMath::ZERO
+      sin_lambda = BigMath::ZERO
+
+      _lambda = _l
+      MAX_ITERS.times do |n|
+        _lambda_orig = _lambda
+        cos_lambda = cos(_lambda)
+        sin_lambda = sin(_lambda)
+        t1 = cos_u2 * sin_lambda
+        t2 = cos_u1 * sin_u2 - sin_u1 * cos_u2 * cos_lambda
+        sin_sq_sigma = t1 * t1 + t2 * t2
+        sin_sigma = sqrt(sin_sq_sigma)
+        cos_sigma = sin_u1_sin_u2 + cos_u1_cos_u2 * cos_lambda
+        sigma = atan2(sin_sigma, cos_sigma)
+        sin_alpha = (sin_sigma == BigMath::ZERO) ? BigMath::ZERO : (cos_u1_cos_u2 * sin_lambda / sin_sigma)
+        cos_sq_alpha = BigMath::ONE - sin_alpha * sin_alpha
+        cos_2_s_m = (cos_sq_alpha == BigMath::ZERO) ? BigMath::ZERO : (cos_sigma - BigMath::TWO * sin_u1_sin_u2 / cos_sq_alpha)
+
+        u_squared = cos_sq_alpha * a_sq_minus_b_sq_over_b_sq
+        _a = BigMath::ONE + (u_squared / 16384.0) *
+               (4096.0 + u_squared *
+                 (-768.0 + u_squared * (320.0 - 175.0 * u_squared)))
+        _b = (u_squared / 1024.0) *
+               (256.0 + u_squared *
+                 (-128.0 + u_squared * (74.0 - 47.0 * u_squared)))
+        _c = (f / 16.0) *
+               cos_sq_alpha *
+               (4.0 + f * (4.0 - 3.0 * cos_sq_alpha))
+        cos2_s_m_sq = cos2_s_m * cos2_s_m
+        delta_sigma = _b * sin_sigma *
+                        (cos2_s_m + (_b / 4.0) *
+                          (cos_sigma * (BigMath::N_ONE + BigMath::TWO * cos2_s_m_sq) -
+                          (_b / 6.0) * cos2_s_m *
+                          (-3.0 + 4.0 * sin_sigma * sin_sigma) *
+                          (-3.0 + 4.0 * cos2_s_m_sq)))
+
+        _lambda = _l +
+                    (BigMath::ONE - _c) * f * sin_alpha *
+                    (sigma + _c * sin_sigma *
+                      (cos2_s_m + _c * cos_sigma *
+                      (BigMath::N_ONE + BigMath::TWO * cos2_s_m * cos2_s_m)))
+
+        delta = (_lambda - _lambda_orig) / _lambda
+        if delta.abs < 1.0e-12
+          break
+        end
+      end
+
+      { distance: (b * _a * (sigma - delta_sigma)),
+        bearing: {
+          initial: atan2(cos_u2 * sin_lambda, cos_u1 * sin_u2 - sin_u1 * cos_u2 * cos_lambda).to_deg,
+          final: atan2(cos_u1 * sin_lambda, -(sin_u1) * cos_u2 + cos_u1 * sin_u2 * cos_lambda).to_deg
+        }
+      }
+    end
+
+  end
+
+end

data/lib/terraformer/geometry/class_methods.rb

@@ -0,0 +1,92 @@
+module Terraformer
+  class Geometry < Primitive
+
+    # geometric "helpers"
+    #
+    module ClassMethods
+
+      def coordinates_contain_point? coordinates, point
+        contains = false
+        i = -1
+        l = coordinates.length
+        j = l - 1
+        loop do
+          break unless (i += 1) < l
+
+          if ((coordinates[i][1] <= point[1] && point[1] < coordinates[j][1]) ||
+              (coordinates[j][1] <= point[1] && point[1] < coordinates[i][1])) &&
+             (point[0] < (coordinates[j][0] - coordinates[i][0]) *
+              (point[1] - coordinates[i][1]) / (coordinates[j][1] - coordinates[i][1]) + coordinates[i][0])
+
+             contains = !contains
+          end
+          j = i
+        end
+        contains
+      end
+
+      def edge_intersects_edge? a1, a2, b1, b2
+        ua_t = (b2[0] - b1[0]) * (a1[1] - b1[1]) - (b2[1] - b1[1]) * (a1[0] - b1[0])
+        ub_t = (a2[0] - a1[0]) * (a1[1] - b1[1]) - (a2[1] - a1[1]) * (a1[0] - b1[0])
+        u_b  = (b2[1] - b1[1]) * (a2[0] - a1[0]) - (b2[0] - b1[0]) * (a2[1] - a1[1])
+        if u_b != 0
+          ua = ua_t / u_b
+          ub = ub_t / u_b
+          return true if  0 <= ua && ua <= 1 && 0 <= ub && ub <= 1
+        end
+        false
+      end
+
+      def arrays_intersect_arrays? a, b
+        case
+        when a[0].class == Coordinate
+          case
+          when b[0].class == Coordinate
+            a.each_cons(2) do |a1, a2|
+              b.each_cons(2) do |b1, b2|
+                return true if edge_intersects_edge?(a1, a2, b1, b2)
+              end
+            end
+          when b[0].class == Array
+            b.each {|e| return true if intersects = arrays_intersect_arrays?(a, e)}
+          end
+        when a[0].class == Array
+          a.each {|e| return true if intersects = arrays_intersect_arrays?(e, b)}
+        end
+        false
+      end
+
+      def line_contains_point? line, point
+        raise ArgumentError unless Array === line and
+                                   line.length == 2 and
+                                   Coordinate === line[0] and
+                                   Coordinate === line[1]
+        point = point.coordinates if Point === point
+        raise ArgumentError unless Coordinate === point
+
+        return true if line[0] == point or line[1] == point
+
+        dxp = point.x - line[0].x
+        dyp = point.y - line[0].y
+
+        dxl = line[1].x - line[0].x
+        dyl = line[1].y - line[0].y
+
+        cross = dxp * dyl - dyp * dxl
+        return false unless cross == BigMath::ZERO
+
+        if dxl.abs >= dyl.abs
+          return dxl > BigMath::ZERO ?
+            line[0].x <= point.x && point.x <= line[1].x :
+            line[1].x <= point.x && point.x <= line[0].x
+        else
+          return dyl > BigMath::ZERO ?
+            line[0].y <= point.y && point.y <= line[1].y :
+            line[1].y <= point.y && point.y <= line[0].y
+        end
+      end
+
+    end
+
+  end
+end

data/lib/terraformer/geometry.rb

@@ -1,14 +1,20 @@
+require 'terraformer/geometry/class_methods'
+
 module Terraformer
 
   class Geometry < Primitive
+    extend Terraformer::Geometry::ClassMethods
 
     MULTI_REGEX = /^Multi/
 
     attr_accessor :coordinates
 
     def initialize *args
-      if args.length > 1 or Array === args[0]
+      case
+      when args.length > 1
         self.coordinates = Coordinate.from_array args
+      when Array === args[0]
+        self.coordinates = Coordinate.from_array args[0]
       else
         super *args do |arg|
           self.coordinates = Coordinate.from_array arg['coordinates']
@@ -31,6 +37,12 @@ module Terraformer
       self.class.new *coordinates.map_coordinate(&:to_geographic)
     end
 
+    def to_feature
+      f = Feature.new
+      f.geometry = self
+      f
+    end
+
     def first_coordinate
       raise NotImplementedError
     end
@@ -53,19 +65,38 @@ module Terraformer
     end
 
     def convex_hull
-      raise NotImplementedError
+      ConvexHull.for coordinates
     end
 
-    def contains other
+    def contains? other
       raise NotImplementedError
     end
 
-    def within other
+    def within? other
       raise NotImplementedError
     end
 
-    def intersects other
-      raise NotImplementedError
+    def intersects? other
+      [self, other].each do |e|
+        if [Point, MultiPoint].include? e.class
+          raise ArgumentError.new "unsupported type: #{e.type rescue e.class}"
+        end
+      end
+      return true if begin
+        within? other or other.within? self
+      rescue ArgumentError
+        false
+      end
+      Terraformer::Geometry.arrays_intersect_arrays? coordinates, other.coordinates
+    end
+
+    def == obj
+      return false unless obj.class == self.class
+      if block_given?
+        yield obj
+      else
+        self.coordinates == obj.coordinates
+      end
     end
 
   end
@@ -93,6 +124,10 @@ module Terraformer
       }
     end
 
+    def convex_hull
+      ConvexHull.for geometries.map &:coordinates
+    end
+
   end
 
 end

data/lib/terraformer/line_string.rb

@@ -6,6 +6,81 @@ module Terraformer
       coordinates[0]
     end
 
+    def linear_ring?
+      coordinates.length > 3 and coordinates.first == coordinates.last
+    end
+
+    def lines
+      ls = []
+      coordinates.each_cons(2) {|l| ls << l}
+      ls
+    end
+
+    def contains? obj
+      case obj
+      when Point
+        lines.any? {|l| Geometry.line_contains_point? l, obj.coordinates}
+      when LineString
+        self == obj or coordinates.slice_exists? obj.coordinates
+        # todo this does not case for a line string of different coordinates
+        #      that is actually contained yet
+      when MultiLineString
+        obj.line_strings.all? {|ls| ls.within? self}
+      else
+        raise ArgumentError.new "unsupported type: #{obj.type rescue obj.class}"
+      end
+    end
+
+    def within? obj
+      case obj
+      when LineString
+        self == obj or obj.coordinates.slice_exists? coordinates
+        # todo this does not case for a line string of different coordinates
+        #      that is actually contained yet
+      when MultiLineString
+        obj.line_strings.any? {|ls| ls.contains? self}
+      when Polygon
+        obj.contains? self
+      when MultiPolygon
+        obj.polygons.any? {|p| p.contains? self}
+      else
+        raise ArgumentError.new "unsupported type: #{obj.type rescue obj.class}"
+      end
+    end
+
+    def points
+      coordinates.map &:to_point
+    end
+    alias_method :vertices, :points
+
+    def point_at idx
+      coordinates[idx].to_point
+    end
+    alias_method :vertex_at, :point_at
+
+    def add_vertex p
+      p = p.coordinates if Point === p
+      raise ArgumentError unless Coordinate === p
+      coordinates << p
+    end
+    alias_method :<<, :add_vertex
+
+    def insert_vertex idx, p
+      p = p.coordinates if Point === p
+      raise ArgumentError unless Coordinate === p
+      coordinates.insert idx, p
+    end
+
+    def remove_vertex p
+      p = p.coordinates if Point === p
+      raise ArgumentError unless Coordinate === p
+      coordinates.delete p
+    end
+
+    def remove_vertex_at idx
+      coordinates.delete_at idx
+    end
+
   end
 
 end

data/lib/terraformer/multi_line_string.rb

@@ -2,10 +2,72 @@ module Terraformer
 
   class MultiLineString < Geometry
 
+    def initialize *args
+      case
+      when Coordinate === args[0] # only one
+        self.coordinates = [Coordinate.from_array(args)]
+      when Array === args[0] # multiple?
+        self.coordinates = Coordinate.from args
+      when LineString === args[0]
+        self.coordinates = args.map &:coordinates
+      else
+        super *args
+      end
+    end
+
     def first_coordinate
       coordinates[0][0]
     end
 
+    def line_strings
+      coordinates.map {|ls| LineString.new ls}
+    end
+
+    def == obj
+      super obj do |o|
+        equal = true
+        lses = line_strings.sort
+        olses = o.line_strings.sort
+        lses.each_with_index do |ls, i|
+          equal = ls == olses[i]
+          break unless equal
+        end
+        equal
+      end
+    end
+
+    def contains? obj
+      case obj
+      when Point
+        line_strings.any? {|ls| ls.contains? obj}
+      when MultiPoint
+        obj.points.all? {|p| line_strings.any? {|ls| ls.contains? p}}
+      when LineString
+        line_strings.any? {|ls| ls == obj or ls.coordinates.slice_exists? obj.coordinates}
+      when MultiLineString
+        obj.line_strings.all? do |ols|
+          line_strings.any? do |ls|
+            ls == ols or ls.coordinates.slice_exists? ols.coordinates
+          end
+        end
+      else
+        raise ArgumentError.new "unsupported type: #{obj.type rescue obj.class}"
+      end
+    end
+
+    def within? obj
+      case obj
+      when MultiLineString
+        obj.contains? self
+      when Polygon
+        obj.contains? self
+      when MultiPolygon
+        obj.contains? self
+      else
+        raise ArgumentError.new "unsupported type: #{obj.type rescue obj.class}"
+      end
+    end
+
   end
 
 end

data/lib/terraformer/multi_point.rb

@@ -2,10 +2,73 @@ module Terraformer
 
   class MultiPoint < Geometry
 
+    def initialize *args
+      case
+      when Point === args[0]
+        self.coordinates = args.map &:coordinates
+      else
+        super *args
+      end
+    end
+
     def first_coordinate
       coordinates[0]
     end
 
+    def points
+      coordinates.map {|p| Point.new p}
+    end
+
+    def == obj
+      super obj do |o|
+        self.coordinates.sort == obj.coordinates.sort
+      end
+    end
+
+    def contains? obj
+      points.any? {|p| p.contains? obj}
+    end
+
+    def within? obj
+      case obj
+      when MultiPoint
+        points.all? {|p| obj.contains? p}
+      when LineString
+        points.all? {|p| obj.contains? p}
+      when MultiLineString
+        points.all? {|p| obj.contains? p}
+      when Polygon
+        obj.contains? self
+      when MultiPolygon
+        points.all? {|p| obj.polygons.any? {|polygon| polygon.contains? p}}
+      else
+        raise ArgumentError.new "unsupported type: #{obj.type rescue obj.class}"
+      end
+    end
+
+    def add_point p
+      p = p.coordinates if Point === p
+      raise ArugmentError unless Coordinate === p
+      coordinates << p
+    end
+    alias_method :<<, :add_point
+
+    def insert_point idx, p
+      p = p.coordinates if Point === p
+      raise ArugmentError unless Coordinate === p
+      coordinates.insert idx, p
+    end
+
+    def remove_point p
+      p = p.coordinates if Point === p
+      raise ArugmentError unless Coordinate === p
+      coordinates.delete p
+    end
+
+    def remove_point_at idx
+      coordinates.delete_at idx
+    end
+
   end
 
 end

data/lib/terraformer/multi_polygon.rb

@@ -2,10 +2,55 @@ module Terraformer
 
   class MultiPolygon < Geometry
 
+    def initialize *args
+      case
+      when Coordinate === args[0] # only one
+        self.coordinates = [[Coordinate.from_array(args)]]
+      when Array === args[0] # multiple?
+        self.coordinates = [Coordinate.from(args)]
+      when Polygon === args[0]
+        self.coordinates = args.map &:coordinates
+      else
+        super *args
+      end
+    end
+
     def first_coordinate
       coordinates[0][0][0]
     end
 
+    def polygons
+      coordinates.map {|p| Polygon.new *p}
+    end
+
+    def == obj
+      super obj do |o|
+        equal = true
+        ps = polygons.sort
+        ops = o.polygons.sort
+        ps.each_with_index do |p, i|
+          equal = p == ops[i]
+          break unless equal
+        end
+        equal
+      end
+    end
+
+    def contains? obj
+      polygons.any? {|p| p.contains? obj}
+    end
+
+    def within? obj
+      case obj
+      when Polygon
+        polygons.all? {|p| p.within? obj}
+      when MultiPolygon
+        polygons.all? {|p| obj.polygons.any? {|op| op.contains? p}}
+      else
+        raise ArgumentError.new "unsupported type: #{obj.type rescue obj.class}"
+      end
+    end
+
   end
 
 end

data/lib/terraformer/point.rb

@@ -6,6 +6,55 @@ module Terraformer
       coordinates
     end
 
+    def distance_and_bearing_to obj
+      case obj
+      when Point
+        first_coordinate.distance_and_bearing_to obj.first_coordinate
+
+      # todo other cases
+      end
+    end
+
+    def distance_to obj
+      distance_and_bearing_to(obj)[:distance]
+    end
+
+    def initial_bearing_to obj
+      distance_and_bearing_to(obj)[:bearing][:initial]
+    end
+
+    def final_bearing_to obj
+      distance_and_bearing_to(obj)[:bearing][:final]
+    end
+
+    def contains? obj
+      case obj
+      when Point
+        self == obj
+      else
+        raise ArgumentError.new "unsupported type: #{obj.type rescue obj.class}"
+      end
+    end
+
+    def within? obj
+      case obj
+      when Point
+        self == obj
+      when MultiPoint
+        obj.coordinates.any? {|c| self.coordinates == c}
+      when LineString
+        obj.coordinates.any? {|c| self.coordinates == c}
+      when MultiLineString
+        obj.line_strings.any? {|ls| within? ls}
+      when Polygon
+        obj.contains? self
+      when MultiPolygon
+        obj.polygons.any? {|p| p.contains? self}
+      else
+        raise ArgumentError unless Geometry === obj
+      end
+    end
+
   end
 
 end