struct PK_BODY_pick_topol_r_s
       {
       PK_ENTITY_t  entity;
       int          occurence;
       PK_VECTOR_t  intersect;
       double       distance;
       };
typedef struct PK_BODY_pick_topol_r_s
               PK_BODY_pick_topol_r_t;