define mjg  c.n4,a.n6,t.o4,g.o6,g.n7,a.n7,t.c5m,c.c5,g.c8,a.c8,t.c6,c.c6,g.c5,a.c5 and dna
define mig  c.o2,t.o2,g.n3,g.n2,a.n3,a.c2 and dna
define tocompl t.o4,t.n3,c.n4,c.n3,c.o2,g.o6,g.n1,g.n2,a.n6,a.n1 and dna
define basen c.c2,c.c4,c.n1,t.c4,t.c2,t.c5,t.n1,g.c2,g.c4,g.n9,g.c6,a.c4,a.n9,a.c6 and dna
define base  mjg,mig,tocompl,basen    

define q *.o?* and backbone and dna
define w *.o?p and backbone and dna
define e (oxygen, nitrogen) and mjg
define r (oxygen, nitrogen) and mig
define t carbon and backbone and dna
define i carbon and mjg
define u carbon and mig

echo Polar-contacts of deoxyribose and protein and chain A
select within (3.5,q) and protein and (nitrogen, oxygen) and *:A
spacefill 200
color cyan
label %n%r
pause

spacefill off
label off

echo polar-contacts of phosphate and protein and chain A
select within (3.5,w) and protein and (nitrogen, oxygen) and *:A
spacefill 200
color pink
label %n%r
pause

spacefill off
label off

echo polar-contacts of "major groove" and protein and chain A
select within (3.5,e) and protein and (nitrogen, oxygen) and *:A
spacefill 200
color red
label %n%r
pause

spacefill off
label off

echo polar-contacts of "minor groove" and protein and chain A
select within (3.5,r) and protein and (nitrogen, oxygen) and *:A
spacefill 200
color blue
label %n%r
pause

spacefill off
label off

echo Hydrophobic-contacts of deoxyribose and protein and chain A
select within (4.5,t) and protein and not (nitrogen, oxygen) and *:A
spacefill 200
color blue
label %n%r
pause

spacefill off
label off

echo Hydrophobic-contacts of atoms from major groove and protein and chain A
select within (4.5,i) and protein and not (nitrogen, oxygen) and *:A
spacefill 200
color blue
label %n%r
pause

spacefill off
label off

echo Hydrophobic-contacts of atoms from minor groove and protein and chain A
select within (4.5,u) and protein and not (nitrogen, oxygen) and *:A
spacefill 200
color blue
label %n%r
pause

echo Polar-contacts of deoxyribose and protein and chain B
select within (3.5,q) and protein and (nitrogen, oxygen) and *:B
spacefill 200
color cyan
label %n%r
pause

spacefill off
label off

echo polar-contacts of phosphate and protein and chain B
select within (3.5,w) and protein and (nitrogen, oxygen) and *:B
spacefill 200
color pink
label %n%r
pause

spacefill off
label off

echo polar-contacts of "major groove" and protein and chain B
select within (3.5,e) and protein and (nitrogen, oxygen) and *:B 
spacefill 200
color red
label %n%r
pause

spacefill off
label off

echo polar-contacts of "minor groove" and protein and chain B
select within (3.5,r) and protein and (nitrogen, oxygen) and *:B
spacefill 200
color blue
label %n%r
pause

spacefill off
label off

echo Hydrophobic-contacts of deoxyribose and protein and chain B
select within (4.5,t) and protein and not (nitrogen, oxygen) and *:B
spacefill 200
color blue
label %n%r
pause

spacefill off
label off

echo Hydrophobic-contacts of atoms from major groove and protein and chain B
select within (4.5,i) and protein and not (nitrogen, oxygen) and *:B
spacefill 200
color blue
label %n%r
pause

spacefill off
label off

echo Hydrophobic-contacts of atoms from minor groove and protein and chain B
select within (4.5,u) and protein and not (nitrogen, oxygen) and *:B
spacefill 200
color blue
label %n%r
pause