// 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]