##
## Make an atom selection, set the "User" fields for all atoms
## in the selection ("all" in this case since I'm too lazy to do
## something more interesting)
##
set numframes [molinfo top get numframes]
set sel [atomselect top "resid 10"]
animate goto 1
$sel frame 1
#color resid 10 green
#mol modselect 0 0 "resid 10"
#mol modcolor 0 0 4 0
$sel set user 1
set sel [atomselect top "resid 14"]
animate goto 2
$sel frame 2
$sel set user 1
set sel [atomselect top "resid 18"]
animate goto 3
$sel frame 3
$sel set user 1
set sel [atomselect top "resid 16"]
animate goto 4
$sel frame 4
$sel set user 1
set sel [atomselect top "resid 13"]
animate goto 5
$sel frame 5
$sel set user 1
set sel [atomselect top "resid 15"]
animate goto 6
$sel frame 6
$sel set user 1
set sel [atomselect top "resid 17 and sidechain"]
animate goto 7
$sel frame 7
$sel set user 1
set sel [atomselect top "resid 19"]
animate goto 8
$sel frame 8
$sel set user 1
set sel [atomselect top "resid 21 and sidechain"]
animate goto 9
$sel frame 9
$sel set user 1
set sel [atomselect top "resid 18"]
animate goto 10
$sel frame 10
$sel set user 1
set sel [atomselect top "resid 15"]
animate goto 11
$sel frame 11
$sel set user 1
set sel [atomselect top "resid 11"]
animate goto 12
$sel frame 12
$sel set user 1
set sel [atomselect top "resid 9"]
animate goto 13
$sel frame 13
$sel set user 1
set sel [atomselect top "resid 12"]
animate goto 14
$sel frame 14
$sel set user 1
set sel [atomselect top "resid 12"]
animate goto 15
$sel frame 15
$sel set user 1
set sel [atomselect top "resid 7"]
animate goto 16
$sel frame 16
$sel set user 1
set sel [atomselect top "resid 5"]
animate goto 17
$sel frame 17
$sel set user 1
set sel [atomselect top "resid 2"]
animate goto 18
$sel frame 18
$sel set user 1
set sel [atomselect top "resid 3"]
animate goto 19
$sel frame 19
$sel set user 1
set sel [atomselect top "resid 4"]
animate goto 20
$sel frame 20
$sel set user 1
set sel [atomselect top "resid 4"]
animate goto 21
$sel frame 21
$sel set user 1
$sel delete
##
## change the "color by" and "trajectory" tab settings so that
## the new color values, and start it animating...
##
mol modcolor 0 0 User
mol colupdate 0 0 1
mol scaleminmax 0 0 0.0 4.0
#mol scaleminmax 0 0 0.0 $numframes
animate forward