function CalcPK(X,Y,Z,PNT,Kind)
{
	var OOO=new Object();
	var V=new Object();

	Result=false;
	Chk=1;
	if ((X.OB=="P") && (Y.OB=="O"))
	if (IsReal(X) && IsReal(Y)) 
	{

		if (Z.OB=="C") 
		if (IsReal(Z)) 
		{
			EExecO1(OOO,X,Z,Att5,1,1);
			EExecP2(PNT,Y,OOO,Att5,1,1);
			return true;
		}

		if (Z.OB=="P") 
		if (IsReal(Z)) 
		{
			EExecO0(OOO,X,Z,Att5,1,1);
			EExecP2(PNT,Y,OOO,Att5,1,1);
			return true;
		}
		if (Z.OB=="O")
		if (IsReal(Z))
		{
			TOChisl_Create(V,MCompl(0,0),Att5);			
			EExecO5(OOO,Z,X,V,Att5,1,1,1);
			EExecP2(PNT,Y,OOO,Att5,1,1);
			return true;
		}
	}
	if (Chk==1) TOEmpty_Create(PNT,Att5);
	Result=true;
    return Result;
} // CalcPK 


function EExecPK(Out_Prm,X,Y,Z,Att,Sg1,Sg2,Sg3)
{
	if ((X.OB==undefined) || (Y.OB==undefined) || (Z.OB==undefined)) return false;
	var Pnt=new Object();
	var Kind=0;
	Result=false;
/*
     if (Att.PT=8) or (Att.LV=8) or (Att.LT=6) then
     begin
          Att.RColor X.OAtt.RColor;
          Att.GColor X.OAtt.GColor;
          Att.BColor X.OAtt.BColor;
     end;
     if Att.PT=8 then Att.PTX.OAtt.PT;
     if Att.LV=8 then Att.LVX.OAtt.LV;
     if Att.LT=6 then Att.LTX.OAtt.LT;
*/

	if ((X.OB=="P") && (Y.OB=="O")) 
	{
		if (CalcPK(X,Y,Z,Pnt,Kind))
		{
			if (Pnt.OB=="P") 
			{
				TOPoint_Create(Out_Prm,Pnt.X,Pnt.Y,Pnt.W,Att);
//	alert(Y.Incid.length);
				AddInc(Y,Out_Prm);
			}
			if (Pnt.OB=="$")
			if (Att.Chk==1) TOEmpty_Create(Out_Prm,Att);
		}
	} else
	if ((X.OB=="L") && (Y.OB=="O"))
	{
		CalcPK(X.S1,Y,Z,PNTS1,Kind);
		CalcPK(X.S2,Y,Z,PNTS2,Kind);
		CalcPK(X.S3,Y,Z,PNTS3,Kind);
		CalcPK(X.D1,Y,Z,PNTD1,Kind);
		CalcPK(X.D2,Y,Z,PNTD2,Kind);
		CalcPK(X.D3,Y,Z,PNTD3,Kind);
//		Out_PrmTOProeL.Create(Y,PNTS1,PNTS2,PNTS3,Y,PNTD1,PNTD2,PNTD3,Att,OW);
		TOEmpty_Create(Out_Prm,Att) // temporary dummy
	} else
	{
		if (Att.Chk==1) TOEmpty_Create(Out_Prm,Att);
	}

    Result=true;
	return Result
} // EExecPK