schleyfox-rgeo 0.2.5

data/lib/rgeo/impl_helper/basic_geometry_collection_methods.rb

@@ -0,0 +1,235 @@
+# -----------------------------------------------------------------------------
+# 
+# Common methods for GeometryCollection features
+# 
+# -----------------------------------------------------------------------------
+# Copyright 2010 Daniel Azuma
+# 
+# All rights reserved.
+# 
+# Redistribution and use in source and binary forms, with or without
+# modification, are permitted provided that the following conditions are met:
+# 
+# * Redistributions of source code must retain the above copyright notice,
+#   this list of conditions and the following disclaimer.
+# * Redistributions in binary form must reproduce the above copyright notice,
+#   this list of conditions and the following disclaimer in the documentation
+#   and/or other materials provided with the distribution.
+# * Neither the name of the copyright holder, nor the names of any other
+#   contributors to this software, may be used to endorse or promote products
+#   derived from this software without specific prior written permission.
+# 
+# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+# AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+# ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+# LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+# CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+# SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+# INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+# CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+# ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+# POSSIBILITY OF SUCH DAMAGE.
+# -----------------------------------------------------------------------------
+;
+
+
+module RGeo
+  
+  module ImplHelper  # :nodoc:
+    
+    
+    module BasicGeometryCollectionMethods  # :nodoc:
+      
+      
+      def initialize(factory_, elements_)
+        _set_factory(factory_)
+        @elements = elements_.map do |elem_|
+          elem_ = Feature.cast(elem_, factory_)
+          unless elem_
+            raise Error::InvalidGeometry, "Could not cast #{elem_}"
+          end
+          elem_
+        end
+        _validate_geometry
+      end
+      
+      
+      def eql?(rhs_)
+        if rhs_.is_a?(self.class) && rhs_.factory.eql?(@factory) && @elements.size == rhs_.num_geometries
+          rhs_.each_with_index{ |p_, i_| return false unless @elements[i_].eql?(p_) }
+        else
+          false
+        end
+      end
+      
+      
+      def num_geometries
+        @elements.size
+      end
+      
+      
+      def geometry_n(n_)
+        @elements[n_]
+      end
+      
+      
+      def each(&block_)
+        @elements.each(&block_)
+      end
+      
+      
+      def dimension
+        unless @dimension
+          @dimension = -1
+          @elements.each do |elem_|
+            dim_ = elem_.dimension
+            @dimension = dim_ if @dimension < dim_
+          end
+        end
+        @dimension
+      end
+      
+      
+      def geometry_type
+        Feature::GeometryCollection
+      end
+      
+      
+      def is_empty?
+        @elements.size == 0
+      end
+      
+      
+    end
+    
+    
+    module BasicMultiLineStringMethods  # :nodoc:
+      
+      
+      def initialize(factory_, elements_)
+        _set_factory(factory_)
+        @elements = elements_.map do |elem_|
+          elem_ = Feature.cast(elem_, factory_, Feature::LineString, :keep_subtype)
+          unless elem_
+            raise Error::InvalidGeometry, "Could not cast #{elem_}"
+          end
+          elem_
+        end
+        _validate_geometry
+      end
+      
+      
+      def geometry_type
+        Feature::MultiLineString
+      end
+      
+      
+      def is_closed?
+        all?{ |elem_| elem_.is_closed? }
+      end
+      
+      
+      def length
+        @elements.inject(0.0){ |sum_, obj_| sum_ + obj_.length }
+      end
+      
+      
+      def _add_boundary(hash_, point_)  # :nodoc:
+        hval_ = [point_.x, point_.y].hash
+        (hash_[hval_] ||= [point_, 0])[1] += 1
+      end
+      
+      
+      def boundary
+        hash_ = {}
+        @elements.each do |line_|
+          if !line_.is_empty? && !line_.is_closed?
+            _add_boundary(hash_, line_.start_point)
+            _add_boundary(hash_, line_.end_point)
+          end
+        end
+        array_ = []
+        hash_.each do |hval_, data_|
+          array_ << data_[0] if data_[1] % 2 == 1
+        end
+        factory.multi_point([array_])
+      end
+      
+      
+    end
+    
+    
+    module BasicMultiPointMethods  # :nodoc:
+      
+      
+      def initialize(factory_, elements_)
+        _set_factory(factory_)
+        @elements = elements_.map do |elem_|
+          elem_ = Feature.cast(elem_, factory_, Feature::Point, :keep_subtype)
+          unless elem_
+            raise Error::InvalidGeometry, "Could not cast #{elem_}"
+          end
+          elem_
+        end
+        _validate_geometry
+      end
+      
+      
+      def geometry_type
+        Feature::MultiPoint
+      end
+      
+      
+      def boundary
+        factory.collection([])
+      end
+      
+      
+    end
+    
+    
+    module BasicMultiPolygonMethods  # :nodoc:
+      
+      
+      def initialize(factory_, elements_)
+        _set_factory(factory_)
+        @elements = elements_.map do |elem_|
+          elem_ = Feature.cast(elem_, factory_, Feature::Polygon, :keep_subtype)
+          unless elem_
+            raise Error::InvalidGeometry, "Could not cast #{elem_}"
+          end
+          elem_
+        end
+        _validate_geometry
+      end
+      
+      
+      def geometry_type
+        Feature::MultiPolygon
+      end
+      
+      
+      def area
+        @elements.inject(0.0){ |sum_, obj_| sum_ + obj_.area }
+      end
+      
+      
+      def boundary
+        array_ = []
+        @elements.each do |poly_|
+          unless poly_.is_empty?
+            array_ << poly_.exterior_ring
+          end
+          array_.concat(poly_.interior_rings)
+        end
+        factory.multi_line_string(array_)
+      end
+      
+      
+    end
+    
+    
+  end
+  
+end

data/lib/rgeo/impl_helper/basic_geometry_methods.rb

@@ -0,0 +1,85 @@
+# -----------------------------------------------------------------------------
+# 
+# Basic methods used by geometry objects
+# 
+# -----------------------------------------------------------------------------
+# Copyright 2010 Daniel Azuma
+# 
+# All rights reserved.
+# 
+# Redistribution and use in source and binary forms, with or without
+# modification, are permitted provided that the following conditions are met:
+# 
+# * Redistributions of source code must retain the above copyright notice,
+#   this list of conditions and the following disclaimer.
+# * Redistributions in binary form must reproduce the above copyright notice,
+#   this list of conditions and the following disclaimer in the documentation
+#   and/or other materials provided with the distribution.
+# * Neither the name of the copyright holder, nor the names of any other
+#   contributors to this software, may be used to endorse or promote products
+#   derived from this software without specific prior written permission.
+# 
+# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+# AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+# ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+# LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+# CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+# SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+# INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+# CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+# ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+# POSSIBILITY OF SUCH DAMAGE.
+# -----------------------------------------------------------------------------
+;
+
+
+module RGeo
+  
+  module ImplHelper  # :nodoc:
+    
+    
+    module BasicGeometryMethods  # :nodoc:
+      
+      include Feature::Instance
+      
+      
+      def inspect  # :nodoc:
+        "#<#{self.class}:0x#{object_id.to_s(16)} #{as_text.inspect}>"
+      end
+      
+      def to_s  # :nodoc:
+        as_text
+      end
+      
+      
+      def _validate_geometry  # :nodoc:
+      end
+      
+      
+      def _set_factory(factory_)  # :nodoc:
+        @factory = factory_
+      end
+      
+      
+      def factory
+        @factory
+      end
+      
+      
+      def as_text
+        WKRep::WKTGenerator.new.generate(self)
+      end
+      
+      
+      def as_binary
+        WKRep::WKBGenerator.new.generate(self)
+      end
+      
+      
+    end
+    
+    
+  end
+  
+end

data/lib/rgeo/impl_helper/basic_line_string_methods.rb

@@ -0,0 +1,197 @@
+# -----------------------------------------------------------------------------
+# 
+# Common methods for LineString features
+# 
+# -----------------------------------------------------------------------------
+# Copyright 2010 Daniel Azuma
+# 
+# All rights reserved.
+# 
+# Redistribution and use in source and binary forms, with or without
+# modification, are permitted provided that the following conditions are met:
+# 
+# * Redistributions of source code must retain the above copyright notice,
+#   this list of conditions and the following disclaimer.
+# * Redistributions in binary form must reproduce the above copyright notice,
+#   this list of conditions and the following disclaimer in the documentation
+#   and/or other materials provided with the distribution.
+# * Neither the name of the copyright holder, nor the names of any other
+#   contributors to this software, may be used to endorse or promote products
+#   derived from this software without specific prior written permission.
+# 
+# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+# AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+# ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+# LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+# CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+# SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+# INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+# CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+# ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+# POSSIBILITY OF SUCH DAMAGE.
+# -----------------------------------------------------------------------------
+;
+
+
+module RGeo
+  
+  module ImplHelper  # :nodoc:
+    
+    
+    module BasicLineStringMethods  # :nodoc:
+      
+      
+      def initialize(factory_, points_)
+        _set_factory(factory_)
+        @points = points_.map do |elem_|
+          elem_ = Feature.cast(elem_, factory_, Feature::Point)
+          unless elem_
+            raise Error::InvalidGeometry, "Could not cast #{elem_}"
+          end
+          elem_
+        end
+        _validate_geometry
+      end
+      
+      
+      def _validate_geometry
+        if @points.size == 1
+          raise Error::InvalidGeometry, 'LineString cannot have 1 point'
+        end
+      end
+      
+      
+      def eql?(rhs_)
+        if rhs_.is_a?(self.class) && rhs_.factory.eql?(@factory) && @points.size == rhs_.num_points
+          rhs_.points.each_with_index{ |p_, i_| return false unless @points[i_].eql?(p_) }
+        else
+          false
+        end
+      end
+      
+      
+      def num_points
+        @points.size
+      end
+      
+      
+      def point_n(n_)
+        @points[n_]
+      end
+      
+      
+      def points
+        @points.dup
+      end
+      
+      
+      def dimension
+        1
+      end
+      
+      
+      def geometry_type
+        Feature::LineString
+      end
+      
+      
+      def is_empty?
+        @points.size == 0
+      end
+      
+      
+      def boundary
+        array_ = []
+        if !is_empty? && !is_closed?
+          array_ << @points.first << @points.last
+        end
+        factory.multi_point([array_])
+      end
+      
+      
+      def start_point
+        @points.first
+      end
+      
+      
+      def end_point
+        @points.last
+      end
+      
+      
+      def is_closed?
+        unless defined?(@is_closed)
+          @is_closed = @points.size > 2 && @points.first == @points.last
+        end
+        @is_closed
+      end
+      
+      
+      def is_ring?
+        is_closed? && is_simple?
+      end
+      
+      
+    end
+    
+    
+    module BasicLineMethods  # :nodoc:
+      
+      
+      def initialize(factory_, start_, end_)
+        _set_factory(factory_)
+        cstart_ = Feature.cast(start_, factory_, Feature::Point)
+        unless cstart_
+          raise Error::InvalidGeometry, "Could not cast start: #{start_}"
+        end
+        cend_ = Feature.cast(end_, factory_, Feature::Point)
+        unless cend_
+          raise Error::InvalidGeometry, "Could not cast end: #{end_}"
+        end
+        @points = [cstart_, cend_]
+        _validate_geometry
+      end
+      
+      
+      def _validate_geometry  # :nodoc:
+        super
+        if @points.size > 2
+          raise Error::InvalidGeometry, 'Line must have 0 or 2 points'
+        end
+      end
+      
+      
+      def geometry_type
+        Feature::Line
+      end
+      
+      
+    end
+    
+    
+    module BasicLinearRingMethods  # :nodoc:
+      
+      
+      def _validate_geometry  # :nodoc:
+        super
+        if @points.size > 0
+          @points << @points.first if @points.first != @points.last
+          if !is_ring?
+            raise Error::InvalidGeometry, 'LinearRing failed ring test'
+          end
+        end
+      end
+      
+      
+      def geometry_type
+        Feature::LinearRing
+      end
+      
+      
+    end
+    
+    
+  end
+  
+end