Dear all:
I have a problem in drawing spheres and need your help.
I have all the coordinates (x, y, z) known, which will be changed every frame. I would like to draw the spheres based on my coordinates, and update each frame. So, only one sphere will be shown in each frame.
this is what my scripts looks like
.....
set frameNo [molinfo top get numframes]
draw color red
draw material Transparent
for {set x 0} {$x < $frameNo} {incr x} {
set sel1 [atomselect top " ((within 5 of resid 1 to 53)) " frame $x]
set center [measure center $contacts weight none]
lassign $center X Y Z
$sel1 delete
set sel2 [atomselect top "(sqr(x-$X)+sqr(y-$Y)+sqr(z-$Z) < sqr($radius)) and water " frame $x]
draw sphere {$X $Y $Z} radius 5 resolution 10 >>> this line does not work
$sel2 delete
}
Does any one have any suggestions? Thank you very much!!!
Yvonne
_______________________________________________
AMBER mailing list
AMBER.ambermd.org
http://lists.ambermd.org/mailman/listinfo/amber
Received on Wed Aug 11 2010 - 14:00:04 PDT
