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:
set color [format "%.6x" [expr {0xd53feb * $level & 0xffffff | 0x808080}]] # Local variables: # mode: tcl # tcl-indent-level: 4 # indent-tabs-mode: nil # End: