Split Movement

fetch 1FJ1, async=0
 
# split object
 
 
create anti=(chain F) 
create fab=(chain A,B)
 
# delete original object
delete 1FJ1
 
# color objects
color green,fab
color pink,anti
 
# color interface
select inter = (byres ((fab within 5 of anti)\
   or (anti within 5 of fab)))
 
color yellow,inter
 
# splay apart
orient
origin fab
rotate y,60,fab
origin anti
rotate y,-60, anti
 
# zoom interface region
zoom inter
show sph,inter
disable inter