2
$\begingroup$

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

plot

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.

EDIT

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

plot2

$\endgroup$

2 Answers 2

6
$\begingroup$

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.

$\endgroup$
4
  • $\begingroup$ 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] $\endgroup$ Oct 16, 2013 at 7:01
  • $\begingroup$ Yes, large enough but I want a circle not a square! $\endgroup$
    – Vaggelis_Z
    Oct 16, 2013 at 7:06
  • $\begingroup$ @PinguinDirk I want a circle not a square dot. $\endgroup$
    – Vaggelis_Z
    Oct 16, 2013 at 7:07
  • $\begingroup$ so try Courier, as per my comment $\endgroup$ Oct 16, 2013 at 7:08
5
$\begingroup$

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

$\endgroup$
0

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service and acknowledge you have read our privacy policy.

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