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 17683 days, 14 hours, 40 minutes ago.