next up previous contents index
Next: Menu systems included Up: Distributed Macros Previous: @sphere

@two_molecules

This is what one would call a serious macro. Select density from 2 molecules and from 2 sets of atoms. The screen centre is determined by Id'ing an atom. IMPORTANT: make sure it's from the reference molecule A The molecules are defined by symbols $mol_a and $mol_b the maps by $map_a and $map_b.

 
centre_id ! Wait for an ID
message "Make sure its an atom from molecule A"
Wait_id
message "Start contouring B"
copy save_centre .active_centre
rot_trans_db .active_centre .lsq_rt_a_to_b .active_centre
map_file $map_b
map_obj mapb
map_par 9. 9. 9. 1.5 light_blue .5 .1 1
map_act
map_draw
rot_tran_obj .lsq_rt_b_to_a mapb
mol $mol_b obj sphb spher 10. end
! Now do the map from molecule A
message "Start contouring A"
copy .active_centre save_centre
map_file $map_a
map_obj mapa
map_par 9. 9. 9. 1.5 red .5 .1 1
map_act
map_draw
mol $mol_a obj spha spher 10. end
lsq_obj b_to_a sphb
message "  "