set background white; set ambient 0; reset; rotate z 90; font label 16 sans bold; color label black; set labeloffset 5 5; set labelGroup; echo " " set echo top right font echo 14 sans bold; set frank off set antialiasdisplay on hover "Base: %n Number: %r, Element: %e" # Chain: %c select not hydrogen wireframe off cpk display all color carbon [xeeeeee]; color nitrogen [xc0baf8]; color oxygen [xff3233]; #select oxygen and base; color [xfcabaa]; color phosphorus [xfdc33e]; color cpk function replicate hbonds on select :I; color purple; select :j; color gold; select *.c1*; label %n; set labeloffset 0 0; select :j; color labels cyan; delay 0.1 moveto /* time, axisAngle */ 1.0 { -31 -995 92 40.13} /* zoom, translation */ 98.39 0.0 0.0 /* center, rotationRadius */ {43.07697 24.375261 21.502504} 25.420343 /* navigation center, translation, depth */ {0.0 0.0 0.0} -29.90104 42.233887 50.0; delay 0.1 for ( var i=12; i>1; i = i - 1 ) x = script("select " + i + ":J; zoomto (selected or " + (25-i) + ":I) 200%; delay 0.1; display displayed or selected; refresh; delay 0.1; hbonds off; delay 0.1; hbonds on; delay 0.3; move 0 36 0 0 0 0 0 0 1;") end for zoomto (all) 115% end function function replicateFast hbonds on select :I; color purple; select :j; color gold; select *.c1*; label %n; set labeloffset 0 0; select :j; color labels cyan; delay 0.1 moveto /* time, axisAngle */ 1.0 { -31 -995 92 40.13} /* zoom, translation */ 98.39 0.0 0.0 /* center, rotationRadius */ {43.07697 24.375261 21.502504} 25.420343 /* navigation center, translation, depth */ {0.0 0.0 0.0} -29.90104 42.233887 50.0; delay 0.1 for ( var i=12; i>1; i = i - 1 ) x = script("select " + i + ":J; delay 0.1; display displayed or selected; refresh; delay 0.1; hbonds off; delay 0.1; hbonds on; delay 0.2;") end for zoomto (all) 115% end function calculate hbonds hbonds on color hbonds white hbonds 0.1 set hbondsBackbone FALSE isosurface dnasurf "dna.jvxl" color isosurface purple isosurface off