VMD-L Mailing List
From: John Stone (johns_at_ks.uiuc.edu)
Date: Tue Mar 20 2007 - 20:40:09 CDT
- Next message: Myunggi Yi: "Re: graphic update"
- Previous message: Myunggi Yi: "graphic update"
- In reply to: Myunggi Yi: "graphic update"
- Next in thread: Myunggi Yi: "Re: graphic update"
- Reply: Myunggi Yi: "Re: graphic update"
- Messages sorted by: [ date ] [ thread ] [ subject ] [ author ] [ attachment ]
Hi,
Have you tried taking the "draw delete all" out of both
versions of the script to make sure that they aren't interfering
with each other? Were you running these one at a time or both
concurrently?
John Stone
vmd_at_ks.uiuc.edu
On Tue, Mar 20, 2007 at 09:09:06PM -0400, Myunggi Yi wrote:
> Dear VMD users,
>
> I have modified a script from the image-movie tutorial (pore.tcl)
> to display two molecules in a window at the same time.
>
> The following is the script.
> If I add arrows in the second molecule, I can't display any arrows.
> Would you give me a hand?
>
>
> proc enabletrace {} {
> global vmd_frame
> trace variable vmd_frame([molinfo top]) w drawcounter
> }
>
> proc disabletrace {} {
> global vmd_frame
> trace vdelete vmd_frame([molinfo top]) w drawcounter
> }
>
> proc enabletrace2 {} {
> global vmd_frame2
> trace variable vmd_frame(1) w drawcounter2
> }
>
> proc disabletrace2 {} {
> global vmd_frame2
> trace vdelete vmd_frame(1) w drawcounter2
> }
>
> set pore_draw_arrows 0
>
> proc enablearrows {} {
> global pore_draw_arrows
> set pore_draw_arrows 1
> }
>
> proc disablearrows {} {
> global pore_draw_arrows
> set pore_draw_arrows 0
> }
>
> proc vmd_draw_arrow {mol start end} {
> # an arrow is made of a cylinder and a cone
> set end [vecadd $start [vecscale 1.5 [vecsub $end $start]]]
> set coneEnd [vecadd $end [vecscale 0.25 [vecsub $end $start]]]
> graphics $mol cylinder $start $end radius 0.5
> graphics $mol cone $end $coneEnd radius 1.0
> }
>
> proc drawcounter { name element op } {
> global vmd_frame
> global pore_draw_arrows
>
> draw delete all
> draw material Opaque
>
> # Draw the arrows
> if { $pore_draw_arrows } {
> for { set id 1 } { $id < 6 } { incr id } {
> set tmpSel1 [atomselect 0 "segid $id and resid 51 200 and name
> CA" \
>
> frame $vmd_frame([molinfo top])]
> foreach {coorIN coorOUT} [$tmpSel1 get "x y z"] { break }
>
> draw color black
> vmd_draw_arrow top $coorOUT $coorIN
>
> $tmpSel1 delete
> }
> }
> }
>
> proc drawcounter2 { name element op } {
> global vmd_frame2
> global pore_draw_arrows
>
> # draw delete all
> draw material Opaque
>
> # Draw the arrows
> if { $pore_draw_arrows } {
> for { set id 1 } { $id < 6 } { incr id } {
> set tmpSel2 [atomselect 1 "segid $id and resid 51 200 and name
> CA" \
>
> frame $vmd_frame(1)]
> foreach {crdIN crdOUT} [$tmpSel2 get "x y z"] { break }
>
> draw color black
> vmd_draw_arrow 1 $crdOUT $crdIN
>
> $tmpSel2 delete
> }
> }
> }
>
>
> --
> Best wishes,
>
> MYUNGGI YI
-- NIH Resource for Macromolecular Modeling and Bioinformatics Beckman Institute for Advanced Science and Technology University of Illinois, 405 N. Mathews Ave, Urbana, IL 61801 Email: johns_at_ks.uiuc.edu Phone: 217-244-3349 WWW: http://www.ks.uiuc.edu/~johns/ Fax: 217-244-6078
- Next message: Myunggi Yi: "Re: graphic update"
- Previous message: Myunggi Yi: "graphic update"
- In reply to: Myunggi Yi: "graphic update"
- Next in thread: Myunggi Yi: "Re: graphic update"
- Reply: Myunggi Yi: "Re: graphic update"
- Messages sorted by: [ date ] [ thread ] [ subject ] [ author ] [ attachment ]