proc ::darksky::convert_deg_to_directions {deg} {
    set directions [list "N" "NNE" "NNE" "NE" "NE" "ENE" "ENE" "E" "E" "ESE" "ESE" "SE" "SE" "SSE" "SSE" "S" "S" "SSW" "SSW" "SW" "SW" "WSW" "WSW" "W" "W" "WNW" "WNW" "NW" "NW" "NNW" "NNW" "N"]
    set tick_length [expr 360.0 / [llength $directions]]
    set expression {if {0} {} }
    for {set i 0} {$i < [llength $directions]} {incr i} {
        append expression [format {elseif {$deg >= [expr %s*$tick_length] && $deg < [expr (%s + 1)*$tick_length] } { return [lindex $directions %s] } } $i $i $i]
    }
    return [eval $expression]
}