background white
#атомы оснований ДНК, обращённые в большую бороздку 
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
#атомы оснований ДНК, обращённые в малую бороздку
define mig  C.O2,T.O2,G.N3,G.N2,A.N3,A.C2
#все атомы оснований ДНК 
define tocompl T.O4,T.N3,C.N4,C.N3,C.O2,G.O6,G.N1,G.N2,A.N6,A.N1
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
define base  mjg,mig,tocompl,basen

select within(3.5, *.O?*) and protein and (oxygen or nitrogen)
spacefill 120
color green
zoom 200
echo You can see image of protein and backbone sugar polar contact.
pause
zoom off
spacefill off
select all
color cpk


select within(4.5, *.C?*) and protein and carbon
spacefill 200
color red
zoom 200
echo You can see image of protein and backbone sugar hydrophobic contact.
pause
zoom off
spacefill off
select all
color cpk


select within(3.5, *.O?P) and protein and (oxygen or nitrogen)
spacefill 120
color blue
zoom 200
echo You can see image of protein and phosphat group polar contact.
pause
zoom off
spacefill off
select all
color cpk





select within(4.5, *.P) and protein and carbon
spacefill 200
color pink
zoom 200
echo You can see image of protein and phosphat group hydrophobic contact.
pause
zoom off
spacefill off
select all
color cpk



select within(3.5, (oxygen,nitrogen) and mjg and base) and protein and (oxygen or nitrogen)
spacefill 120
color cyan
zoom 200
echo You can see image of protein and nitrogen group polar contact(mjg).
pause
zoom off
spacefill off
select all
color cpk


select within(4.5, carbon and mjg and base) and protein and carbon
spacefill 200
color purple
zoom 200
echo You can see image of protein and nitrogen group hydrophobic contact(mjg).
pause
zoom off
spacefill off
select all
color cpk



select within(3.5, (oxygen,nitrogen) and mig and base) and protein and (oxygen or nitrogen)
spacefill 120
color black
zoom 200
echo You can see image of protein and nitrogen group polar contact(mig).
pause
zoom off
spacefill off
select all
color cpk


select within(4.5, carbon and mig and base) and protein and carbon
spacefill 200
color violet
zoom 200
echo You can see image of protein and nitrogen group hydrophobic contact(mig)
pause
zoom off
spacefill off
select all
color cpk