(* ::Package:: *) tri1[name1_, name2_, name3_]:=Module[{tri,line1,line2,centerMass1,centerMass2,centerMass3,text1,text2,text3}, tri=Triangle[{{-1,0},{1,0},{0,1}}]; line1=Line[{(tri[[1]][[1]]+tri[[1]][[3]])/2, (tri[[1]][[2]]+tri[[1]][[3]])/2}]; line2=Line[{(line1[[1]][[1]]+line1[[1]][[2]])/2,(tri[[1]][[1]]+tri[[1]][[2]])/2} ]; centerMass1=(tri[[1]][[1]]+((tri[[1]][[1]]+tri[[1]][[2]])/2)+((line1[[1]][[1]]+line1[[1]][[2]])/2)+((tri[[1]][[1]]+tri[[1]][[3]])/2))/4; text1=Text[Style[name1,Black,Bold], centerMass1]; centerMass2=(tri[[1]][[2]]+((tri[[1]][[1]]+tri[[1]][[2]])/2)+((line1[[1]][[1]]+line1[[1]][[2]])/2)+((tri[[1]][[2]]+tri[[1]][[3]])/2))/4; text2=Text[Style[name2,Black,Bold,FontSize->9], centerMass2]; centerMass3=(tri[[1]][[3]]+((tri[[1]][[1]]+tri[[1]][[3]])/2)+((tri[[1]][[2]]+tri[[1]][[3]])/2))/3; text3=Text[Style[name3,Black,Bold], centerMass3]; Graphics[{EdgeForm[Directive[Thick,Lighter[Blue,.5]]],White,tri,Lighter[Blue,.5],Thick, line1,line2,text1,text2,text3}] ];