script dna.def
color label white
restrict none
select not protein and not water and not NA
zoom 300
wireframe
color cpk
define polar_driboza (*.o3', *.o4', *.o5')
define polar_prot protein and (oxygen, nitrogen)
select within(3.5, polar_driboza) and polar_prot
cpk 120
label %n%r.%a
select within(3.5, polar_prot) and polar_driboza
cpk 120
label %n%r.%a
select dt22, 165, dt9, 219, dt8, 145, eda7, 263
wireframe 40
color cpk
echo You can see image of protein and desoxyribose polar contact.
pause

restrict none
select not protein and not water and not NA
wireframe
color cpk
define hidrophob_driboza *.c?'
define hidrophob_prot protein and carbon
select within(4.5, hidrophob_driboza) and hidrophob_prot
cpk 120 
color green
select dt22:e, da21:e, dc20:e, dt19:e, da18:e, dt9:d, dt8:d, eda7:d, dg6:d
wireframe 35
select base
wireframe
select 220, 218, 165, 164, 163, 162, 161, 145, 160, 263, 219
wireframe 35
color green
select within(4.5, hidrophob_driboza) and hidrophob_prot
color red
select da18:e.c2', dt19:e.c5', dc20:e.c1', da21:e.c5', dt22:e.c3', dt8:d.c4', dt9:d.c3', dg6:d.c3', eda7:d.c5'
label %n.%r
select *218:a.cg, *219:a.cb, *220:a.cg, *165:a.ce1, *164:a.ce, *163:a.ca, *162:a.cd1, *161:a.cd1, *160:a.cd1, *263:a.c, *145:a.cg
label %n.%r
echo You can see image of protein and desoxyribose hydrophobic contact.
pause

restrict none
select not protein and not water and not NA
wireframe
color cpk
define polar_pacid *.OP?
select within(3.5, polar_pacid) and polar_prot
cpk 120
select within(3.5, polar_prot) and polar_pacid
cpk 100
select 197, 220, 218, 219, 159, 136, 229, 145, 143, 141, 182
wireframe 35
color cpk
label off
select *197:a.cg, *220:a.cd, *219:a.ca, *182:a.cd, *136:a.ca, *141:a.cg, *143:a.ca, *145:a.cg, *229:a.cg, *159:a.cb
label %n.%r
select *10:d.p, *9:d.p, *8:d.p, *7:d.p, *22:e.p, *23:e.p, *24:e.p
label %n.%r
echo You can see image of protein and phosphat group polar contact.
pause

restrict none
select not protein and not water and not NA
wireframe
color cpk
define polar_dna (da, dg, dc, dt) and (oxygen, nitrogen)
define polar_mjg polar_dna and mjg
select within(3.5, polar_mjg) and polar_prot
cpk 120
label %n.%r
echo You can see image of protein and major groove polar contact.
pause

restrict none
select not protein and not water and not NA
wireframe
color cpk
define hidrophob_dna (da, dc, dg, dt) and carbon
define hidrophob_mjg hidrophob_dna and mjg
select within(4.5, hidrophob_mjg) and hidrophob_prot
cpk 100
select 162
wireframe 35
color cpk
select dg6:d, dt8:d
wireframe 35
select *6:d.c5, *8:d.c6
label %n.%r
select *162:a.ce2
label %n.%r
echo You can see image of protein and major groove hidrophobic contact.
pause

restrict none
select not protein and not water and not NA
wireframe
color cpk
define polar_mig polar_dna and mig
select within(3.5, polar_mig) and polar_prot
cpk 120
select within(3.5, polar_prot) and polar_mig
cpk 120
select dt19:e, *162:a
wireframe 35
select dt19:e.o2, *162:a.o
label %n.%r
echo You can see image of protein and minor groove polar contact.
pause

restrict none
select not protein and not water and not NA
wireframe
color cpk
define hidrophob_mig hidrophob_dna and mig
select within(4.5, hidrophob_mig) and hidrophob_prot
cpk 120 
label %n.%r
select within(4.5, hidrophob_prot) and hidrophob_mig
label %n.%r
select da18, *164:a
wireframe 35
color cpk
echo You can see image of protein and minor groove hidrophobic contact.
pause

restrict none
select not protein and not water and not NA
wireframe
select within(3.5, polar_prot) and eda7 and (oxygen, nitrogen)
cpk 120
select eda7
wireframe 35
select within(3.5, eda7 and (oxygen, nitrogen)) and polar_prot
label %n.%r
cpk 120
color cpk
select *134, *263, *127, *136, *159, *169
wireframe 35 
echo You can see image of protein and modified base polar contact.
pause

restrict none
select not protein and not water and not NA
wireframe
color cpk
select within(4.5, eda7 and carbon) and hidrophob_prot
cpk 120
select eda7
wireframe 35
select *180:a.c, *169:a.ca, *127:a.cz, *159:a.cb, *136:a.cd, *157:a.c, *135:a.cb, *149:a.ce
label %n.%r
select 180, 169, 127, 157, 159, 136, 135, 149
color cpk
wireframe 35
echo You can see image of protein and modified base hidrohobic contact.
pause