WedgGaussRuleInfo[{rule_,numer_},point_]:= Module[
  {zeta1,zeta2,zeta3,xi,p1,p2,i,j,k,m,w1,w2,
  info={{Null,Null,Null,Null},0}},{p1,p2}=rule;
  If [ Length[point] == 2, {i,j}=point, k=point;
    m=Abs[p1]; j=Floor[(k-1)/m]+1; i=k-m*(j-1)];
  {{zeta1,zeta2,zeta3},w1}=TrigGaussInfo[{p1,numer},i];
   {xi,w2}               =LineGaussInfo[{p2,numer},j];
  info={{zeta1,zeta2,zeta3,xi},w1*w2};
  If [ numer, Return[N[info,20]], Return[Simplify[info]]];
];