select all
restrict none
select *:A or *:C or *:D or *:B
wireframe
select (*.O5* or *.O4* or *.O3*)and dna
define dezpol ((*.O5* or *.O4* or *.O3*)and dna)
color green 
cpk 100
pause
select *.C?* and dna
define dezunpol (*.C?* and dna) 
color blue  
cpk 100      
pause        
select  *.P and dna
define phosphunpol (*.P and dna) 
color white  
cpk 100      
pause        
select  (*.O1P or *.O2P) and dna                
define phosphpol ((*.O1P or *.O2P) and dna)   
color grey                        
cpk 100                            
pause                              

select  (dt.c5m,dt.c5,dt.c4,dc.c5,dg.c8,da.c6,da.c8,dt.c6,dc.c6,dg.c5,da.c5,dg.c6)
define bolunpol dt.c5m,dt.c5,dt.c4,dc.c5,dg.c8,da.c6,da.c8,dt.c6,dc.c6,dg.c5,da.c5,dg.c6
color yellow  
cpk 100      
pause        
select (dc.n4,da.n6,dt.o4,dg.o6,dg.n7,da.n7)
define bolpol  dc.n4,da.n6,dt.o4,dg.o6,dg.n7,da.n7 
color pink  
cpk 100      
pause        
select (dc.n1,dc.o2,dt.o2,dt.n1,dg.n3,dg.n9,da.n9,da.n3)
define malpol  dc.n1,dc.o2,dt.o2,dt.n1,dg.n3,dg.n9,da.n9,da.n3
color violet  
cpk 100      
pause        
select (dg.c2, dg.c4, dg.c8, dc.c2, da.c4, da.c2, dt.c22)
define malunpol dg.c2, dg.c4, dg.c8, dc.c2, da.c4, da.c2, dt.c22
color cyan  
cpk 100      
pause        
select  (*.C?? or *.P?? or *.S??) and (*:A or *:B)
define protunpol ((*.C?? or *.P?? or *.S??) and (*:A  or *:B))
color orange  
cpk 100      
pause        
select (*.O?? or *.N??) and (*:A  or *:B)
define protpol ((*.O?? or *.N??) and (*:A  or *:B))        
color brown  
cpk 100      
pause        
select within(3.5,dezpol) and protpol
cpk 200
color [ 94, 0, 94]
echo contacts between dezpol and protpol
pause
select within(4.5,dezunpol) and protunpol        
cpk 200 
color [102, 0, 0]                                     
echo contacts between dezunpol and protunpol     
pause 
select within(3.5,phosphpol) and protpol        
cpk 200  
color [255, 0,255]                                                                           
echo contacts between phosphpol and protpol     
pause  
select within(4.5,phosphunpol) and protunpol                                                 
cpk 200 
color [255,124,112]                                           
echo contacts between phosphunpol and protunpol        
pause                  
select within(3.5,bolpol) and protpol                                      
cpk 200 
color [ 69, 94, 69]                                           
echo contacts between bolpol and protpol    
pause  
select within(4.5,bolunpol) and protunpol                                                   
cpk 200 
color [160, 32,240]                                    
echo contacts between bolunpol and protunpol    
pause 
select within(3.5,malpol) and protpol                                                    
cpk 200 
color [255, 76, 76]                                           
echo contacts between malpol and protpol           
pause                                              
select within(4.5,malunpol) and protunpol          
cpk 200 
color  [178, 33, 33]                                          
echo contacts between malunpol and protunpol       
pause                                              