Download or view 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]
Download or view 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 19966 days, 1 hours, 34 minutes ago.