fn EExecP1 &P P1 Dx Dy Att Sg1 Sg2 Sg3 FM =
(
	if (P1==undefined) or (Dx==undefined) or (Dy==undefined) then return false
	TOPoint_Create &P (CompSum P1.X (CompSg Dx.C Sg2)) (CompSum P1.Y (CompSg Dy.C Sg3)) 1 Att
	return true
) -- EExecP1