Fix build.tk

This commit is contained in:
Dianne Skoll
2022-01-31 09:00:02 -05:00
parent d09b725710
commit b011adf94e

View File

@@ -432,14 +432,14 @@ proc CreateCustomH {} {
while {[gets $in line] != -1} {
switch -glob -- $line {
"#define DEFAULT_LATITUDE *" {
set $lat [expr $LAT_DEG + ($LAT_MIN/60) + ($LAT_SEC/3600)]
set lat [expr $LAT_DEG + ($LAT_MIN/60.0)];
puts $out "#define DEFAULT_LATITUDE $lat"
.msgs insert end "#define DEFAULT_LATITUDE $lat"
}
"#define DEFAULT_LONGITUDE *" {
set $lon [expr -1 * ($LAT_DEG + ($LAT_MIN/60) + ($LAT_SEC/3600))]
puts $out "#define DEFAULT_LONGITUDE $lat"
.msgs insert end "#define DEFAULT_LONGITUDE $lat"
set lon [expr -1.0 * ($LON_DEG + ($LON_MIN/60.0))]
puts $out "#define DEFAULT_LONGITUDE $lon"
.msgs insert end "#define DEFAULT_LONGITUDE $lon"
}
"#define LOCATION *" {
puts $out "#define LOCATION \"$Config(LOCATION)\""