Module: Utilities::Geo

Defined in:
lib/utilities/geo.rb

Overview

Special general routines for Geo-specific itams

Defined Under Namespace

Classes: ConvertToDecimalDegrees

Constant Summary

SPECIAL_LATLONG_SYMBOLS =

degree symbols, in addition to 'd', 'o', and '*' u00b0 “°” u00ba “º” u02da “˚” u030a “?” u221e “∞” u222b “∫”

tick symbols, in addition to “'” (“u0027”“), and '”' (“u0022”) u00a5 “¥” u00b4 “´” u02B9 “ʹ” u02BA “ʺ” u02BB “ʻ” u02BC “ʼ” u02CA “ˊ” u02EE “ˮ” u2032 “′” u2033 “″”

"do*\u00b0\u00ba\u02DA\u030a\u221e\u222b\u0027\u00b4\u02B9\u02BA\u02BB\u02BC\u02CA\u02EE\u2032\u2033\u0022".freeze
LAT_LON_REGEXP =
Regexp.new(/(?<lon>-?\d+\.?\d*),?\s*(?<lat>-?\d+\.?\d*)/)
ONE_WEST =

EARTH_RADIUS = 6371000 # km, 3959 miles (mean Earth radius) # Not used? RADIANS_PER_DEGREE = ::Math::PI/180.0 DEGREES_PER_RADIAN = 180.0/::Math::PI

111_319.490779206
ONE_NORTH =

ONE_WEST = 111_319.444444444 # meters/degree (calculated mean)

110_574.38855796

Class Method Summary (collapse)

Instance Method Summary (collapse)

Class Method Details

+ (Object) degrees_minutes_seconds_to_decimal_degrees(dms_in)

42∞5'18.1“S88∞11'43.3”W S42∞5'18.1“W88∞11'43.3” S42∞5.18'W88∞11.43' 42∞5.18'S88∞11.43'W S42.18∞W88.34∞ 42.18∞S88.43∞W -12.263, 49.398

42:5:18.1N 88:11:43.3W

no limit test, unless there is a letter included



107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
# File 'lib/utilities/geo.rb', line 107

def self.degrees_minutes_seconds_to_decimal_degrees(dms_in) # rubocop:disable Metrics/PerceivedComplexity !! But this is too complex :)
  match_string = nil
  # no_point     = false
  degrees      = 0.0
  minutes      = 0.0
  seconds      = 0.0

  # make SURE it is a string! Watch out for dms_in == -10
  dms_in       = dms_in.to_s
  dms          = dms_in.dup.upcase
  dms =~ /[NSEW]/i
  cardinal = $LAST_MATCH_INFO.to_s
  # return "#{dms}: Too many letters (#{cardinal})" if cardinal.length > 1
  # return nil if cardinal.length > 1
  dms      = dms.gsub!(cardinal, '').strip.downcase

  if dms.include? '.'
    no_point = false
    if dms.include? ':' # might be '42:5.1'
      /(?<degrees>-*\d+):(?<minutes>\d+\.*\d*)(:(?<seconds>\d+\.*\d*))*/ =~ dms
      match_string = $& # rubocop:disable Style/IdenticalConditionalBranches
    else
      # this will get over-ridden if the next regex matches
      /(?<degrees>-*\d+\.\d+)/ =~ dms
      match_string = $& # rubocop:disable Style/IdenticalConditionalBranches
    end
  else
    no_point = true
  end

  # >40°26′46″< >40°26′46″<
  dms.each_char { |c|
    next unless SPECIAL_LATLONG_SYMBOLS.include?(c)
    /^(?<degrees>-*\d{0,3}(\.\d+)*) # + or - three-digit number with optional '.' and additional decimal digits
        [do*\u00b0\u00ba\u02DA\u030a\u221e\u222b\uc2ba]*\s* # optional special degrees symbol, optional space
      (?<minutes>\d+\.*\d*)* # optional number, integer or floating-point
        ['\u00a5\u00b4\u02b9\u02bb\u02bc\u02ca\u2032\uc2ba]*\s* # optional special minutes symbol, optional space
      ((?<seconds>\d+\.*\d*) # optional number, integer or floating-point
        ['\u00a5\u00b4\u02b9\u02ba\u02bb\u02bc\u02ca\u02ee\u2032\u2033\uc2ba"]+)* # optional special seconds symbol, optional space
    /x =~ dms # '/(regexp)/x' modifier permits inline comments for regexp
    match_string = $&
    break # bail on the first character match
  }
  degrees = dms.to_f if match_string.nil? && no_point

  # @match_string = $&
  degrees = degrees.to_f
  case cardinal
    when 'W', 'S'
      sign = -1.0
    else
      sign = 1.0
  end
  if degrees < 0
    sign    *= -1
    degrees *= -1.0
  end
  frac = ((minutes.to_f * 60.0) + seconds.to_f) / 3600.0
  dd   = (degrees + frac) * sign
  case cardinal
    when 'N', 'S'
      limit = 90.0
    else
      limit = 180.0
  end
  # return "#{dms}: Out of range (#{dd})" if dd.abs > limit
  return nil if dd.abs > limit || dd == 0.0
  dd.round(6).to_s
end

+ (Object) distance_in_meters(elev_in)

12345 (presume meters) 123.45 123 ft > 123 ft. > 123 feet > 1 foot > 123 f > 123 f. 123 m > 123 meters > 123 m. 123 km > 123 km. > 123 kilometers



65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
# File 'lib/utilities/geo.rb', line 65

def self.distance_in_meters(elev_in)
  elev_in   = '0.0 meters' if elev_in.blank?
  elevation = elev_in.strip.downcase
  pieces    = elevation.split(' ')
  value     = elevation.to_f
  if pieces.count > 1 # two pieces, second is distance unit
    piece = 1
  else # one piece, may contain distance unit.
    if elevation.include?('.')
      value = elevation.to_f
    else
      value = elevation.to_i
    end
    piece = 0
  end
  scale = 1.0 # default is meters

  /(?<ft>f[oe]*[t]*\.*)|(?<m>[^k]m(eters)*[\.]*)|(?<km>kilometer(s)*|k[m]*[\.]*)/ =~ pieces[piece]
  # scale = $&

  scale = 1.0 unless m.blank?
  scale = 0.3048 unless ft.blank?
  scale = 1000.0 unless km.blank?

  elev = value * scale

  elev
end

+ (Object) nearby_from_params(params)



183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
# File 'lib/utilities/geo.rb', line 183

def self.nearby_from_params(params)
  nearby_distance = params['nearby_distance'].to_i
  nearby_distance = CollectingEvent::NEARBY_DISTANCE if nearby_distance == 0

  decade = case nearby_distance.to_s.length
             when 1..2
               10
             when 3
               100
             when 4
               1_000
             when 5
               10_000
             when 6
               100_000
             when 7
               1_000_000
             when 8
               10_000_000
             else
               10
           end
  digit  = (nearby_distance.to_f / decade.to_f).round

  case digit
    when 0..1
      digit = 1
    when 2
      digit = 2
    when 3..5
      digit = 5
    when 6..10
      decade *= 10
      digit  = 1 # rubocop:disable Style/SpaceAroundOperators
  end

  params['digit1'] = digit.to_s
  params['digit2'] = decade.to_s
  digit * decade
end

+ (Object) point_keystone_error_box(geo_object, error_radius)

confirm that this says that the error radius is one degree or smaller



225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
# File 'lib/utilities/geo.rb', line 225

def self.point_keystone_error_box(geo_object, error_radius)
  p0      = geo_object
  delta_x = (error_radius / ONE_WEST) / ::Math.cos(p0.y)
  delta_y = error_radius / ONE_NORTH

  Gis::FACTORY.polygon(
    Gis::FACTORY.line_string(
      [
        Gis::FACTORY.point(p0.x - delta_x, p0.y + delta_y), # northwest
        Gis::FACTORY.point(p0.x + delta_x, p0.y + delta_y), # northeast
        Gis::FACTORY.point(p0.x + delta_x, p0.y - delta_y), # southeast
        Gis::FACTORY.point(p0.x - delta_x, p0.y - delta_y) # southwest
      ]
    )
  )
end

Instance Method Details

- (Object) diamond_error_box

make a diamond 2 * radius tall and 2 * radius wide, with the reference point as center NOT TESTED/USED rubocop:disable Style/FirstParameterIndentation:



245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
# File 'lib/utilities/geo.rb', line 245

def diamond_error_box
  p0      = geo_object
  delta_x = (error_radius / ONE_WEST) / ::Math.cos(p0.y)
  delta_y = error_radius / ONE_NORTH

  retval = Gis::FACTORY.polygon(Gis::FACTORY.line_string(
    [Gis::FACTORY.point(p0.x, p0.y + delta_y), # north
     Gis::FACTORY.point(p0.x + delta_x, p0.y), # east
     Gis::FACTORY.point(p0.x, p0.y - delta_y), # south
     Gis::FACTORY.point(p0.x - delta_x, p0.y) # west
    ]))
  box    = RGeo::Cartesian::BoundingBox.new(Gis::FACTORY)
  box.add(retval)
  box.to_geometry
end

- (Object) uni_string(char)



177
178
179
180
181
# File 'lib/utilities/geo.rb', line 177

def uni_string(char)
  format('\\u%04X', char.ord)
  # "\\#{sprintf('u%04X', char.ord)}"
  # '\\u%04X' % [char.ord]
end