select protein
wireframe off
backbone 20
script dna.def
define polardiriboza *.o3*, *.o4*, *.o5*
select polardiriboza
cpk 200
color pink
define phosfor *.o1p, *.o2p
select phosfor
cpk 200
color orange
define Polmjg (oxygen,nitrogen) and mjg
select polmjg
cpk 200
color magenta
define Polmig (oxygen,nitrogen) and mig
define nonpolardiriboza *.c1*, *.c2*, *.c3*, *.c4*, *.c5* 
select nonpolardiriboza
cpk 200
color skyblue
define Nonpolmjg carbon and mjg
select nonpolmjg
cpk 200
color purple
define Nonpolmig carbon and mig
define Polarprot (oxygen,nitrogen) and polar
define nonpolarprot carbon and hydrophobic
select within (3.5, polardiriboza) and Polarprot
cpk 100
color pink
select within (3.5, phosfor) and Polarprot
color orange
cpk 100
select within (3.5, Polmjg) and Polarprot
cpk 100
color Magenta
select within (3.5, Polmig) and Polarprot
cpk 100
color grey
select within (4.5, nonpolardiriboza) and nonpolarprot
cpk 100
color skyblue
select within (4.5, nonpolmjg) and nonpolarprot
cpk 100
color purple
select within (4.5, nonpolmig) and hydrophobic
cpk 100
color seagreen