S. Fushinobu
Paul Hubbard氏がO-INFOに流したもの。
マクロにして使いましょう。例えば、symcol.macとかいうファイルに入れておいて、@symcol.macなどとして読み込む。
message 'Select an atom ...'
centre_id
wait_id
@newsphere
mol $pdb_name
obj ${pdb_name}CA
ca ;
end
symbol symm #Enter spacegroup: #
symbol symmrad #...and radius: #
symm_setup $pdb_name ; $symm
Symm_cell
symm_sphere $pdb_name sym $symmrad
mol sym1
ca ;
end
paint_colour red paint_object sym1
mol sym2
ca ;
end
paint_colour white paint_object sym2
mol sym3
ca ;
end
paint_colour blue paint_object sym3
clear_flags