restrict not *:D.*
select not *:D.*
wireframe off
backbone
pause
backbone off
select not *:D.*
wireframe
define dna1 (*:A.*, *:B.*)
define o_phosphate (*.OP? and dna1)
define o_ribosa (*.O4' and dna1)
define c_ribosa (*.c?' and dna1)
define p_dna (*.P? and dna1)
define h_donor_dna (dg.n1, dg.n2, da.n6, dc.n4, dt.n3)
define h_acceptor_dna (dt.o4, dt.o2, dc.n3, dc.o2, da.n3, da.n1, da.n7, dg.n3, dg.o6, dg.n7)
define hydrophob_dna (*.c? and dna1)
define polar_protein ((*.O?, *.N?) and *:c.*)
define hydrophob_protein ((*.C?, *.S?) and *:C.*)
define big_dna_polar (dc.n4,da.n6, da.n7, dg.n6, dg.n7, dt.o4)
define small_dna_polar (dc.o2, da.n3, dg.n3, dt.o2)
define big_dna_hydrophob (dc.c4, dc.c5, dc.c6, da.c5, da.c6, da.c8, dg.c6, dg.c5, dg.c8, dt.c5, dt.c5m, dt.c4)
define small_dna_hydrophob (da.c2, da.c4, dg.c2, dg.c4, dt.c2)

select o_phosphate
cpk
pause
cpk off
select o_ribosa
cpk
pause
cpk off
select c_ribosa
cpk
pause
cpk off
select p_dna
cpk
pause
cpk off
select big_dna_polar
cpk 200
pause
cpk off
select small_dna_polar
cpk 200
pause
cpk off
select big_dna_hydrophob
cpk 200
pause
cpk off
select small_dna_hydrophob
cpk 200
pause
cpk off
select polar_protein
cpk
pause
cpk off
select hydrophob_protein
cpk
pause
cpk off
select (polar_protein and within(3.5, o_ribosa) )
cpk 200
pause
cpk off
select (hydrophob_protein and within(4.5, c_ribosa))
cpk 200
pause 
cpk off
select (polar_protein and within(3.5, o_phosphate))
cpk 200
pause
cpk off
select (hydrophob_protein and within(4.5, p_dna))
cpk 200
pause
cpk off
select (polar_protein and within(3.5, big_dna_polar))
cpk 200
pause
cpk off
select (hydrophob_protein and within(4.5, big_dna_hydrophob))
cpk 200
pause
cpk off
select (polar_protein and within(3.5, small_dna_polar))
cpk 200
pause
cpk off
select (hydrophob_protein and within(4.5, small_dna_hydrophob))
cpk 200
pause
cpk off