IDturnON[NAME_,rho_]:=(
     pole1 = "B"//NAME//"1";
     pole2 = "B"//NAME//"2";
     pole3 = "B"//NAME//"I";
     pole4 = "B"//NAME//"F";
     peri=LINE["L",pole1];
     LINE["ANGLE",pole1]= peri /rho /Sqrt[2];
     LINE["ANGLE",pole2]=-peri /rho /Sqrt[2];
     LINE["ANGLE",pole3]=-peri /rho /Sqrt[2]/2;
     LINE["ANGLE",pole4]=-peri /rho /Sqrt[2]/2;
);