4 lines
137 B
Tcl
4 lines
137 B
Tcl
interp alias {} demomap {} rangemap {0 10} {-1 0}
|
|
for {set i 0} {$i <= 10} {incr i} {
|
|
puts [format "%2d -> %5.2f" $i [demomap $i]]
|
|
}
|