Source of fibo-master.tcl

set color [format "%.6x" [expr {0xd53feb * $level & 0xffffff | 0x808080}]]

# Local variables:
#    mode: tcl
#    tcl-indent-level: 4
#    indent-tabs-mode: nil
# End: