Take the 2-minute tour ×
Mathematica Stack Exchange is a question and answer site for users of Mathematica. It's 100% free, no registration required.

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

share|improve this question
add comment

2 Answers

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
add comment

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
add comment

Your Answer

 
discard

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.