background white
restrict none
set fontsize 6
set fontstroke 0
color label black

script dna.def

define polar_dna nucleic and (oxygen, nitrogen)
define hydrophobic_dna nucleic and carbon
define polar_prot (protein, mse) and (oxygen, nitrogen)
define hydrophobic_prot (protein, mse) and (carbon, sulphur, selenium)

echo
echo The sets polar_dna, polar_prot, hydrophobic_dna and hydrophobic_prot are defined
echo The set polar_dna contains all polar atoms of DNA (oxygen and nitrogen)
echo The set polar_prot contains all polar atoms of proteins (oxygen, nitrogen, sulphur and selenium)
echo The set hydrophobic_dna contains all carbon atoms of DNA
echo The set hydrophobic_prot contains all carbon, sulphur and selenium atoms of proteins

define polar_prot_drib polar_prot and within(3.5, polar_dna and *.??*)
select polar_prot_drib
cpk 150
color red
label %n %r %a
select polar_dna and *.??* and within(3.5, polar_prot)
cpk 150
color cyan
label %n %r %a
echo
echo All polar protein atoms which interact with deoxyribose residuum polar atoms are in red
echo All deoxyribose residuum polar atoms which interact with polar protein atoms are in cyan
label %n %r %a
echo Press any key to continue
pause

restrict none
define hydr_prot_drib hydrophobic_prot and within(4.5, hydrophobic_dna and *.??*)
select hydr_prot_drib
cpk 150
color red
label %n %r %a
select hydrophobic_dna and *.??* and within(4.5, hydrophobic_prot)
cpk 150
color cyan
label %n %r %a
echo
echo All hydrophobic protein atoms which interact with deoxyribose residuum hydrophobic atoms are in red
echo All deoxyribose residuum hydrophobic atoms which interact with hydrophobic protein atoms are in cyan
echo Press any key to continue
pause

restrict none
define polar_prot_phosph polar_prot and within(3.5, polar_dna and *.O?P)
select polar_prot_phosph
cpk 150
color red
label %n %r %a
select polar_dna and *.O?P and within(3.5, polar_prot)
cpk 150
color cyan
label %n %r %a
echo
echo All polar protein atoms which interact with phosphoric acid residuum are in red
echo All phosphoric acid residuum atoms which interact with polar protein atoms are in cyan
echo Press any key to continue
pause


restrict none
define polar_prot_mjg polar_prot and within(3.5, polar_dna and mjg)
select polar_prot_mjg
cpk 150
color red
label %n %r %a
select polar_dna and mjg and within(3.5, polar_prot)
cpk 150
color cyan
label %n %r %a
echo
echo All polar protein atoms which interact with major groove polar atoms are in red
echo All major groove polar atoms which interact with polar protein atoms are in cyan
echo Press any key to continue
pause

restrict none
define hydr_prot_mjg hydrophobic_prot and within(4.5, hydrophobic_dna and mjg)
select hydr_prot_mjg 
cpk 150
color red
label %n %r %a
select hydrophobic_dna and mjg and within(4.5, hydrophobic_prot)
cpk 150
color cyan
label %n %r %a
echo
echo All hydrophobic protein atoms which interact with major groove hydrophobic atoms are in red
echo All major groove hydrophobic atoms which interact with hydrophobic protein atoms are in cyan
echo Press any key to continue
pause

restrict none
define polar_prot_mig polar_prot and within(3.5, polar_dna and mig)
select polar_prot_mig
cpk 150
color red
label %n %r %a
select polar_dna and mig and within(3.5, polar_prot)
cpk 150
color cyan
label %n %r %a
echo
echo All polar protein atoms which interact with minor groove polar atoms are in red
echo All minor groove polar atoms which interact with polar protein atoms are in cyan
echo Press any key to continue
pause

restrict none
define hydr_prot_mig hydrophobic_prot and within(4.5, hydrophobic_dna and mig)
select hydr_prot_mig
cpk 150
color red
label %n %r %a
select hydrophobic_dna and mig and within(4.5, hydrophobic_prot)
cpk 150
color cyan
label %n %r %a
echo
echo All hydrophobic protein atoms which interact with minor groove hydrophobic atoms are in red
echo All minor groove hydrophobic atoms which interact with hydrophobic protein atoms are in cyan

echo
echo The sets polar_prot_drib, hydr_prot_drib, polar_prot_phosph, polar_prot_mjg, hydr_prot_mjg, polar_prot_mig, hydr_prot_mig are defined
echo
echo The set polar_prot_drib contains all polar protein atoms which interact with deoxyribose residuum polar atoms
echo The set hydr_prot_drib contains all hydrophobic protein atoms which interact with deoxyribose residuum hydrophobic atoms
echo
echo The set polar_prot_phosph contains all polar protein atoms which interact with phosphoric acid residuum 
echo
echo The set polar_prot_mjg contains all polar protein atoms which interact with major groove polar atoms 
echo The set hydr_prot_mjg contains all hydrophobic protein atoms which interact with major groove hydrophobic atoms
echo
echo The set polar_prot_mig contains all polar protein atoms which interact with minor groove polar atoms
echo The set hydrophobic protein atoms which interact with minor groove hydrophobic atom
echo