Manipulate[Show[Graphics[{Style[TriangleConstruct[triangles[[k]],"NinePointCircle"],Thick,Blue],Style[triangles[[k]],RandomColor[],Opacity[0.2]]},PlotLabel"Nine-Point Circle for Highlighted Triangle"],orthocentricSystem],Dynamic@RadioButtonBar[Dynamic[k],{1,2,3,4}],SaveDefinitionsTrue]