set echo bottom center
font echo 14
color echo black

restrict none
select 629:b
define myresidue 629:b
spacefill
color green
center selected
zoom 400
echo PHE629:B from hydrophobic core
pause

restrict none
select 629:b
define myresidue 629:b 
spacefill
color green
select (within (7.0, myresidue) and not myresidue)
cpk 20
echo surrounding of the residue within 7Å 
pause

restrict none
select 629:b
define myresidue 629:b 
spacefill
color green
select (within (1.0, myresidue) and not myresidue)
spacefill
color cpk
echo surrounding of the residue within 1Å 
pause

restrict none
select 629:b
define myresidue 629:b 
spacefill
color green
select (within (2.0, myresidue) and not myresidue)
spacefill
color cpk
echo surrounding of the residue within 2Å 
pause

restrict none
select 629:b
define myresidue 629:b 
spacefill
color green
select (within (3.0, myresidue) and not myresidue)
spacefill
color cpk
echo surrounding of the residue within 3Å 
pause

restrict none
select 629:b
define myresidue 629:b 
spacefill
color green
select (within (4.0, myresidue) and not myresidue)
spacefill
color cpk
echo surrounding of the residue within 4Å 
pause

restrict none
select 629:b
define myresidue 629:b 
spacefill
color green
select (within (5.0, myresidue) and not myresidue)
spacefill
color cpk
echo surrounding of the residue within 5Å 
pause

restrict none
select 629:b
define myresidue 629:b 
spacefill
color green
select (within (6.0, myresidue) and not myresidue)
spacefill
color cpk
echo surrounding of the residue within 6Å 
pause

restrict none
select 629:b
define myresidue 629:b 
spacefill
color green
select (within (7.0, myresidue) and not myresidue)
spacefill
color cpk
echo surrounding of the residue within 7Å 
pause

restrict none
select 629:b
define myresidue 629:b 
spacefill
color green
select (within (8.0, myresidue) and not myresidue)
spacefill
color cpk
echo surrounding of the residue within 8Å