right-shift bits
Posted to
tcl
by karen at Sun Jan 31 19:06:11 GMT 2021
view raw
for
{
set
val
expr
{2**10}} {
$val
>=0} {val >> 1}
after
100
write_source_data -instance_index 1 -value
$val
}
Recent Posts
tcl by bch
5 days ago
tcl by Bradipo
5 days ago
tcl by aspect
5 days ago
tcl by Bradipo
5 days ago
tcl by Bradipo
5 days ago
tcl by Bradipo
5 days ago
lilypond by Bradipo
7 days ago
tcl by cgm
17 days ago
tcl by dandyn
26 days ago
tcl by Stu
27 days ago
Submit
New paste
Documentation
From Jabber