This has got to be the weirdest *Mathematica* bug in my (not all that small) collection...

I'm using **"10.4.0 for Linux x86 (64-bit) (February 26, 2016)"**.

Here's the code:

```
annotatedArrow[p_, q_, label_] := {
     Arrowheads[{{-0.05, 0},
                 {$MachineEpsilon, 0.5,
                  Graphics[Inset[Framed[Style[label, Medium],
                                        Background -> LightGray,
                                        FrameStyle -> Directive[Thickness[0], Opacity[0]]]]]},
                 { 0.05, 1}}],
      Arrow[{p, q}]
   }

Manipulate[
  Graphics[{annotatedArrow[{0, height}, {right, height}, "wannadance?"]},
           PlotRange -> {{0, 0.2}, {0, 0.25}}, ImageSize -> 200] // Framed,
  {{height, 0.2  }, 0, 0.24, LabeledSlider}, {{right , 0.136}, 0, 0.2 , LabeledSlider}
]

```

The `annotatedArrow` function is adapted from a similarly named function given in the documentation for `Arrow`.

This code produces a `Manipulate` widget, with two sliders on it, plus a `Graphic` featuring a labeled double-headed arrow. (See figures below.)

The "height" slider controls the vertical position of the arrow.

The "right" slider controls the position of the right arrowhead.

These behaviors are available "by design".

But, as a ***bonus***, depending on the setting of these sliders, the label on the arrow will be tilted in one of three possible orientations:

![Mathematica graphics](https://i.stack.imgur.com/mAz8z.png)

![Mathematica graphics](https://i.stack.imgur.com/VmrQB.png)

![Mathematica graphics](https://i.stack.imgur.com/3kGbP.png)

I have no idea why this happens, since the code I'm using does not mention rotations at all.