void CScene::CreateClosestInlay(CObj3d *pObjOriginal)
{
  point3d ptPosOriginal = pObjOriginal->GetPosition();
  CObj3d *pObj1 = NULL, *pObj2 = NULL;

  int nType = pObjOriginal->GetType();
  int sz = parrObjs.Size();

Again:
  int nIndexObj = -1;

  float fDist = 9999999.99999f;
  for(int ix = nObjOff; ix < sz; ix++){
   CObj3d *pObj = parrObjs.e(ix);
   if(nType == pObj->GetType()){
    if(pObjOriginal == pObj){ continue; }
    if(pObj1 == pObj){ continue; } // already have!
    point3d vtDif;
    point3d ptPos = pObj->GetPosition();
    sub_vectors(&vtDif.x, &ptPosOriginal.x, &ptPos.x);
    float fLen = vec_length(&vtDif.x);
    if(fLen < fDist){
     fDist = fLen;
     nIndexObj = ix;
    }
   }
  }

  if(nIndexObj == -1){  
   AfxMessageBox("Error! Can't find Closest Object!");
   return;  
  }

  if(!pObj1){  
   pObj1 = parrObjs.e(nIndexObj);
   goto Again;
  }else{
   pObj2 = parrObjs.e(nIndexObj);

   CInlay *pInlay = m_cInlays.m_parrInlays.AppendNew();
   pInlay->pScene = this;
   pInlay->pIniSet = &IniSet;
   pInlay->Init(pObjOriginal, pObj1, pObj2);
  }
}