From: Roman Petrenko (rpetrenko_at_gmail.com)
Date: Wed Aug 13 2008 - 10:09:17 CDT

I have found this script in vmd-archive to label a residue. Is there
something to label all residues? something like in pymol.
or the only choice is to run 20 times this labelresidue procedure?

proc labelresidue { residueselection labeltext } {
 set sel [atomselect top "$residueselection and name CA"]
 set positions [$sel get {x y z}]
 set num [$sel num]
 for {set i 0} {$i < $num} {incr i} {
 draw text [lindex $positions $i] $labeltext
 }
 $sel delete
}

-- 
Roman Petrenko.
Physics Department
University of Cincinnati