CacheFreeGDMII.frink

View or download CacheFreeGDMII.frink in plain text format


// Helper application for "Cache Free GDM II" cache,
// http://www.geocaching.com/seek/cache_details.aspx?guid=24f25844-2335-46cc-8b48-f5da056e7511

// The coordinates are presumed to be UTM values in zone 13E.
// Convert these to WGS84.  The GPS unit might just do it, but
// what fun is that?
use CoordinateConversions.frink
use Datum.frink

a = """
00111100001010000011110000111100000111000011110000111100
01000010010010000100001001000010001000100100001001000010
01000010010010000100001001000010010000000100001001000010
01000010010010000011110000111100010000000011111001000010
01000010011111100100001001000010011111000000001001000010
01000010000010000100001001000010010000100000001001000010
00111100000010000011110000111100001111000000001000111100
00000000000000000000000000000000000000000000000000000000
00101000001010000011100000111000001111100010100000111100
01001000010010000100100001001000010000000100100001000010
01001000010010000000100000001000010000000100100001000010
01001000010010000000100000001000001111000100100001000010
01111110011111100000100000001000000000100111111001000010
00001000000010000000100000001000000000100000100001000010
00001000000010000111111001111110011111000000100000111100
00000000000000000000000000000000000000000000000000000000
"""

a =~ %s/0/./g
a =~ %s/1/#/g

println[a]

easting = eval[input["Enter easting number above: "]]
northing = eval[input["Enter northing number above: "]]
zone = input["Enter zone [13E]: ", "13E"]

println["Zone $zone meridian longitudes: "]
println[UTMZoneToLong[zone] -> "degrees"]

println["\nResults: "]
println[UTMToLatLong[easting, northing, zone, Datum.WGS84] -> "degrees"]
println[UTMToLatLong[easting, northing, zone, Datum.WGS84] -> DMS]

use GoogleEarth.frink
[lat,long] = UTMToLatLong[easting, northing, zone, Datum.WGS84]
browseGoogleMaps[lat, long]
sleep[10 s]


View or download CacheFreeGDMII.frink in plain text format


This is a program written in the programming language Frink.
For more information, view the Frink Documentation or see More Sample Frink Programs.

Alan Eliasen was born 17645 days, 8 hours, 28 minutes ago.