openstreetmap-website/lib/osm.rb
Tom Hughes b982bc6b19 Make "nearby users" show all those within 50km rather than all those
within a degree of latitude and longitude.
2007-06-20 17:04:29 +00:00

365 lines
9.5 KiB
Ruby

module OSM
# This piece of magic reads a GPX with SAX and spits out
# lat/lng and stuff
#
# This would print every latitude value:
#
# gpx = OSM:GPXImporter.new('somefile.gpx')
# gpx.points {|p| puts p['latitude']}
require 'time'
require 'rexml/parsers/sax2parser'
require 'rexml/text'
require 'xml/libxml'
require 'RMagick'
class Mercator
include Math
def initialize(lat, lon, degrees_per_pixel, width, height)
#init me with your centre lat/lon, the number of degrees per pixel and the size of your image
@clat = lat
@clon = lon
@degrees_per_pixel = degrees_per_pixel
@degrees_per_pixel = 0.0000000001 if @degrees_per_pixel < 0.0000000001
@width = width
@height = height
@dlon = width / 2 * @degrees_per_pixel
@dlat = height / 2 * @degrees_per_pixel * cos(@clat * PI / 180)
@tx = xsheet(@clon - @dlon)
@ty = ysheet(@clat - @dlat)
@bx = xsheet(@clon + @dlon)
@by = ysheet(@clat + @dlat)
end
#the following two functions will give you the x/y on the entire sheet
def kilometerinpixels
return 40008.0 / 360.0 * @degrees_per_pixel
end
def ysheet(lat)
log(tan(PI / 4 + (lat * PI / 180 / 2)))
end
def xsheet(lon)
lon
end
#and these two will give you the right points on your image. all the constants can be reduced to speed things up. FIXME
def y(lat)
return @height - ((ysheet(lat) - @ty) / (@by - @ty) * @height)
end
def x(lon)
return ((xsheet(lon) - @tx) / (@bx - @tx) * @width)
end
end
class GPXImporter
# FIXME swap REXML for libXML
attr_reader :possible_points
attr_reader :actual_points
attr_reader :tracksegs
def initialize(filename)
@possible_points = 0
@actual_points = 0
@tracksegs = 0
@points = []
file = File.new(filename)
parser = REXML::Parsers::SAX2Parser.new( file )
lat = -1
lon = -1
ele = -1
date = DateTime.now();
gotlatlon = false
gotele = false
gotdate = false
parser.listen( :start_element, %w{ trkpt }) do |uri,localname,qname,attributes|
lat = attributes['lat'].to_f
lon = attributes['lon'].to_f
gotlatlon = true
@possible_points += 1
end
parser.listen( :characters, %w{ ele } ) do |text|
ele = text
gotele = true
end
parser.listen( :characters, %w{ time } ) do |text|
if text && text != ''
date = DateTime.parse(text)
gotdate = true
end
end
parser.listen( :end_element, %w{ trkseg } ) do |uri, localname, qname|
@tracksegs += 1
end
parser.listen( :end_element, %w{ trkpt } ) do |uri,localname,qname|
if gotlatlon && gotdate
ele = '0' unless gotele
if lat < 90 && lat > -90 && lon > -180 && lon < 180
@actual_points += 1
@points.push(Hash['latitude' => lat,'longitude' => lon,'timestamp' => date,'altitude' => ele,'segment' => @tracksegs])
end
end
gotlatlon = false
gotele = false
gotdate = false
end
parser.parse
end
def points
@points.each { |p| yield p }
end
def get_picture(min_lat, min_lon, max_lat, max_lon, num_points)
#puts "getting picfor bbox #{min_lat},#{min_lon} - #{max_lat},#{max_lon}"
frames = 10
width = 250
height = 250
rat= Math.cos( ((max_lat + min_lat)/2.0) / 180.0 * 3.141592)
proj = OSM::Mercator.new((min_lat + max_lat) / 2, (max_lon + min_lon) / 2, (max_lat - min_lat) / width / rat, width, height)
images = []
frames.times do
gc = Magick::Draw.new
gc.stroke_linejoin('miter')
gc.stroke('#FFFFFF')
gc.fill('#FFFFFF')
gc.rectangle(0,0,width,height)
gc.stroke_width(1)
images << gc
end
oldpx = 0.0
oldpy = 0.0
first = true
m = 0
mm = 0
points do |p|
px = proj.x(p['longitude'])
py = proj.y(p['latitude'])
frames.times do |n|
images[n].stroke_width(1)
images[n].stroke('#BBBBBB')
images[n].fill('#BBBBBB')
# puts "A #{px},#{py} - #{oldpx},#{oldpy}"
images[n].line(px, py, oldpx, oldpy ) unless first
end
images[mm].stroke_width(3)
images[mm].stroke('#000000')
images[mm].fill('#000000')
images[mm].line(px, py, oldpx, oldpy ) unless first
# puts "B #{px},#{py} - #{oldpx},#{oldpy}"
m +=1
if m > num_points.to_f / frames.to_f * (mm+1)
mm += 1
end
first = false
oldpy = py
oldpx = px
end
il = Magick::ImageList.new
frames.times do |n|
canvas = Magick::Image.new(width, height) {
self.background_color = 'white'
}
begin
images[n].draw(canvas)
rescue ArgumentError
end
canvas.format = 'GIF'
il << canvas
end
il.delay = 50
il.format = 'GIF'
return il.to_blob
end
def get_icon(min_lat, min_lon, max_lat, max_lon)
#puts "getting icon for bbox #{min_lat},#{min_lon} - #{max_lat},#{max_lon}"
width = 50
height = 50
rat= Math.cos( ((max_lat + min_lat)/2.0) / 180.0 * 3.141592)
proj = OSM::Mercator.new((min_lat + max_lat) / 2, (max_lon + min_lon) / 2, (max_lat - min_lat) / width / rat, width, height)
images = []
gc = Magick::Draw.new
gc.stroke_linejoin('miter')
oldpx = 0.0
oldpy = 0.0
first = true
gc.stroke_width(1)
gc.stroke('#000000')
gc.fill('#000000')
points do |p|
px = proj.x(p['longitude'])
py = proj.y(p['latitude'])
gc.line(px, py, oldpx, oldpy ) unless first
# puts "C #{px},#{py} - #{oldpx},#{oldpy}"
first = false
oldpy = py
oldpx = px
end
canvas = Magick::Image.new(width, height) {
self.background_color = 'white'
}
begin
gc.draw(canvas)
rescue ArgumentError
end
canvas.format = 'GIF'
return canvas.to_blob
end
end
class GreatCircle
include Math
# initialise with a base position
def initialize(lat, lon)
@lat = lat * PI / 180
@lon = lon * PI / 180
end
# get the distance from the base position to a given position
def distance(lat, lon)
lat = lat * PI / 180
lon = lon * PI / 180
return 6372.795 * 2 * asin(sqrt(sin((lat - @lat) / 2) ** 2 + cos(@lat) * cos(lat) * sin((lon - @lon)/2) ** 2))
end
# get the worst case bounds for a given radius from the base position
def bounds(radius)
latradius = 2 * asin(sqrt(sin(radius / 6372.795 / 2) ** 2))
lonradius = 2 * asin(sqrt(sin(radius / 6372.795 / 2) ** 2 / cos(@lat) ** 2))
minlat = (@lat - latradius) * 180 / PI
maxlat = (@lat + latradius) * 180 / PI
minlon = (@lon - lonradius) * 180 / PI
maxlon = (@lon + lonradius) * 180 / PI
return { :minlat => minlat, :maxlat => maxlat, :minlon => minlon, :maxlon => maxlon }
end
end
class GeoRSS
def initialize(feed_title='OpenStreetMap GPS Traces', feed_description='OpenStreetMap GPS Traces', feed_url='http://www.openstreetmap.org/traces/')
@doc = XML::Document.new
@doc.encoding = 'UTF-8'
rss = XML::Node.new 'rss'
@doc.root = rss
rss['version'] = "2.0"
rss['xmlns:geo'] = "http://www.w3.org/2003/01/geo/wgs84_pos#"
@channel = XML::Node.new 'channel'
rss << @channel
title = XML::Node.new 'title'
title << feed_title
@channel << title
description_el = XML::Node.new 'description'
@channel << description_el
description_el << feed_description
link = XML::Node.new 'link'
link << feed_url
@channel << link
image = XML::Node.new 'image'
@channel << image
url = XML::Node.new 'url'
url << 'http://www.openstreetmap.org/feeds/mag_map-rss2.0.png'
image << url
title = XML::Node.new 'title'
title << "OpenStreetMap"
image << title
width = XML::Node.new 'width'
width << '100'
image << width
height = XML::Node.new 'height'
height << '100'
image << height
link = XML::Node.new 'link'
link << feed_url
image << link
end
def add(latitude=0, longitude=0, title_text='dummy title', url='http://www.example.com/', description_text='dummy description', timestamp=DateTime.now)
item = XML::Node.new 'item'
title = XML::Node.new 'title'
item << title
title << title_text
link = XML::Node.new 'link'
link << url
item << link
guid = XML::Node.new 'guid'
guid << url
item << guid
description = XML::Node.new 'description'
description << description_text
item << description
pubDate = XML::Node.new 'pubDate'
pubDate << timestamp.to_s(:rfc822)
item << pubDate
if latitude
lat_el = XML::Node.new 'geo:lat'
lat_el << latitude.to_s
item << lat_el
end
if longitude
lon_el = XML::Node.new 'geo:long'
lon_el << longitude.to_s
item << lon_el
end
@channel << item
end
def to_s
return @doc.to_s
end
end
class API
def get_xml_doc
doc = XML::Document.new
doc.encoding = 'UTF-8'
root = XML::Node.new 'osm'
root['version'] = API_VERSION
root['generator'] = 'OpenStreetMap server'
doc.root = root
return doc
end
end
end