gs=GeometricScene[{a{0,0},b{4,0},c{3.1,3.5},ia,ib,ic},{ia==TriangleCenter[{a,b,c},{"Excenter",a}],ib==TriangleCenter[{a,b,c},{"Excenter",b}],ic==TriangleCenter[{a,b,c},{"Excenter",c}],TriangleConstruct[{ia,ib,ic},"Orthocenter"]}]//RandomInstance;Framed[gs]