‌

Working with Molecules

Just like with the bond, let’s only write a single method for now, to display our molecule.

Options[DisplayMolecule]=Options@DisplayBond;
DisplayMolecule[m_Molecule,ops:OptionsPattern[]]:=
With[{atoms=m["Atoms"],bonds=DeleteDuplicates@Flatten@(#["Bonds"]&/@m["Atoms"])},
 Graphics3D[{
   First@DisplayAtom[#]&/@atoms,
   First@DisplayBond[#]&/@bonds},
  FilterRules[{ops,
    Options@DisplayMolecule
    },
   Options@Graphics3D]
  ]
 ]