Why are points at element boundaries not appearing ?

Questions
, , ,
1

I seem to only be able to show the end points of a meshed line --how can I make those middle points (should be 2 through 4 in blue) appear ? See attached. Regards and Thanks, John :wink:

Needs["NDSolve`FEM`"];
?=ImplicitRegion [True,{{x,0,1}}];
mesh1=ToElementMesh[?,MaxCellMeasure->0.25,"MeshOrder"->1];
Show[
	mesh1["Wireframe"["MeshElementIDStyle"->Red]],
	mesh1["Wireframe"["MeshElementIDStyle"->Blue,"MeshElement"->"PointElements","MeshElementIDStyle"->Blue]]]