Mercurial > hg > egg-tcls

comparison config.weather.example @ 430:8efbb045d44d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
weather: Implement searching for nearest of measurement stations based on given lat/long coordinates. The distance calculation is naive pythagoraean one, should be changed to "Great circle distance" https://en.wikipedia.org/wiki/Great-circle_distance. (C implementation already done, just needs TCL-ization.)
author Matti Hamalainen <ccr@tnsp.org>
date Sun, 08 Jan 2017 05:08:38 +0200
parents db6e1d39db11
children d4f4a9dfb34f
comparison
equal deleted inserted replaced
429:1ada0cb9bdd9 430:8efbb045d44d
33 33
34 34
35 ### 35 ###
36 ### Messages 36 ### Messages
37 ### 37 ###
38 set weather_msg_list_station [list "\002@station@\002 ( http://www.google.fi/maps/@@c_lat@,@c_lng@,15z )"] 38 set weather_msg_list_station [list "\002@station@\002 ( http://www.google.fi/maps/@@c_lat@,@c_lng@,18z )"]
39 39
40 40
41 set weather_msg_result [list "\002@station@\002, mitattu klo @ctime@: \002@temp@°C\002"] 41 set weather_msg_result [list "\002@station@\002, mitattu klo @ctime@: \002@temp@°C\002"]
42 lappend weather_msg_result ", @weather1@" 42 lappend weather_msg_result ", @weather1@"
43 lappend weather_msg_result ", keli @weather2@" 43 lappend weather_msg_result ", keli @weather2@"
48 lappend weather_msg_result "." 48 lappend weather_msg_result "."
49 49
50 50
51 set weather_msg_usage_prefix_1 "Käyttö: !sää " 51 set weather_msg_usage_prefix_1 "Käyttö: !sää "
52 set weather_msg_usage_prefix_2 " !sää " 52 set weather_msg_usage_prefix_2 " !sää "
53
54 set weather_msg_list_nearest $weather_msg_list_station
55 set weather_msg_usage_nearest "lähin <lat>\[, \]<long> -- näyttää annettuja koordinaatteja lähimpänä olevat mittausasemat"
56 set weather_msg_usage_nearest_invalid "lähin <lat>\[, \]<long> -- näyttää annettuja koordinaatteja lähimpänä olevat mittausasemat"
57 set weather_msg_nearest_stations "Lähimmät mittausasemat (%1, %2): %3"
58
53 59
54 set weather_msg_usage_def_set "vakio <paikka>\[;<paikka2>\] -- asettaa vakiohavaintoaseman\nvakio -- näyttää nykyisen" 60 set weather_msg_usage_def_set "vakio <paikka>\[;<paikka2>\] -- asettaa vakiohavaintoaseman\nvakio -- näyttää nykyisen"
55 set weather_msg_usage_alias "alias <alias> = <nimi> (Lisää alias-nimen, esim. alias perse = turku)" 61 set weather_msg_usage_alias "alias <alias> = <nimi> (Lisää alias-nimen, esim. alias perse = turku)"
56 set weather_msg_usage_unalias "unalias <alias> (Poistaa aliaksen)" 62 set weather_msg_usage_unalias "unalias <alias> (Poistaa aliaksen)"
57 63