The SDL Component Suite is an industry leading collection of components supporting scientific and engineering computing. Please visit the SDL Web site for more information....


Declaration:procedure FindRingNexttoCursor (x,y: single; var Ring: RingType);

The procedure FindRingNextToCursor searches the ring which is next to the position [x,y ]. The ring is searched by the following algorithm: First the 6 (or less, if the molecule is smaller) most nearest atoms are determined. For each of these 6 atoms the routine FindShortestRings is used to get a list of possible candidate rings. The ring whose atoms have the smallest sum of distance to the cursor point is returned as result in the variable parameter Ring.

Last Update: 2012-Okt-20