Mathematica Stack Exchange is a question and answer site for users of Mathematica. Join them; it only takes a minute:

Sign up
Here's how it works:
  1. Anybody can ask a question
  2. Anybody can answer
  3. The best answers are voted up and rise to the top

As the title says, I want to find a way to increase the size of the dot produced by OverDot[]. Here is a simple code

f = (x^2*px^2 - px^2*(px^2 - 1)) + (x^2 + px^2)/2 - 2*x^4;
cnt = {0.002, 0.015, 0.0312, 0.05, 0.15, 0.3, 0.45, 0.5612, 0.64, 0.73, 0.778};
xmin = 1.5;
C0 = ContourPlot[f, {x, -xmin, xmin}, {px, -xmin, xmin}, 
Contours -> cnt, ContourStyle -> {Black}, ContourShading -> False, 
FrameLabel -> {"x", OverDot["x"]}, RotateLabel -> False, 
Axes -> False, FrameStyle -> Directive[FontSize -> 22, FontFamily -> "Helvetica"], 
PlotRange -> xmin, ImageSize -> 550]

which gives this output


We see, that even if I used a relative large fonts size (22), the dot above $x$ (OverDot["x"]) at the vertical axes is tiny and hardly visible if I print out this plot. So, my question: is there a way to increase the size of that dot?

Many thanks in advance.


Following @Hector suggestions I used Overscript["x", Style["\[FilledSmallCircle]", FontSize -> 12]] which gives


share|improve this question
up vote 6 down vote accepted

Is this dot large enough for you?

Overscript["x", Style[".", FontSize -> 200]]

Try Esc bu Esc to put a bullet into the upper place holder.

share|improve this answer
you may want to specify the FontFamily, as some fonts have a "square" dot, e.g. Style[".", FontFamily -> "Courier", FontSize -> 50] vs Style[".", FontFamily -> "Arial", FontSize -> 50] – Pinguin Dirk Oct 16 '13 at 7:01
Yes, large enough but I want a circle not a square! – Vaggelis_Z Oct 16 '13 at 7:06
@PinguinDirk I want a circle not a square dot. – Vaggelis_Z Oct 16 '13 at 7:07
so try Courier, as per my comment – Pinguin Dirk Oct 16 '13 at 7:08

I'd do it a bit different. One of the problems is that DiacriticalPositioning is an option for OverscriptBox but causes a meltdown when used with Overscript (and OverDot).

myOverDot /: MakeBoxes[myOverDot[x_], StandardForm] := 
 OverscriptBox["x", "\[FilledSmallCircle]", 
  DiacriticalPositioning -> True]

enter image description here

share|improve this answer

Your Answer


By posting your answer, you agree to the privacy policy and terms of service.

Not the answer you're looking for? Browse other questions tagged or ask your own question.