Posted to tcl by kbk at Sun Feb 27 22:49:14 GMT 2011view pretty

# Input data, as reported by Thomas
set data [binary format cccc 0x66 0x40 0x7d 0xe9]
# Get two little-endian shorts from the data
binary scan $data susu w0 w1
# Put them back in the opposite sequence, and rescan them as a float
binary scan [binary format ss $w1 $w0] r floatval
# Report on the result
puts $floatval