Graphics[{Point[{-1.3,0}],Point[{-1.2,0}],Point[{-1.1,0}],Line[{{-1,0},{1,0}}],Point[{1.1,0}],Point[{1.2,0}],Point[{1.3,0}],PointSize[Large],Point[{-.4,0}],Point[{.7,0}],Text[Style["a",15],{-.4,-.1}],Text[Style["b",15],{.7,-.1}]}]