1
$\begingroup$

Bug introduced in 6 and fixed in 7


Though my question my be related to this one, it doesn't look like it can easily be solved in the same way, so I hope not to be double-posting.

I am trying to insert a framed number/text into a graphics using Epilog. The text (black), the background (white) and the frame (coloured, e.g. orange) shall be of different colours.

As a minimal working example, the following code indeed produces the desired result:

Graphics[{
  LightGray, Disk[], 
  Inset[Framed[Style[ToString[text], Black, 50],
    Background -> Pink, 
    FrameStyle -> {Orange}]]}]

first example

Yet, when I try to change the background colour to White, it simply is ignored!

Graphics[{
  LightGray, Disk[], 
  Inset[Framed[Style[ToString[text], Black, 50],
    Background -> White, 
    FrameStyle -> {Orange}]]}]

second example

I know I could also apply the Background to the Inset rather than to the Framed, but that unfortunately results in the background colour slightly extending beyond the frame. I am using Mathematica version 6.

Any help on this would be greatly appreciated!

$\endgroup$
10
  • $\begingroup$ well it works in my case, I get a white background, using exactly your code (MMA 9.0.1) $\endgroup$ Commented May 27, 2013 at 8:35
  • $\begingroup$ Maybe I should add I am still on Mathematica 6. But simply adding a white background shouldn't really require state-of-the-art software, it seems to me... $\endgroup$
    – Bernd
    Commented May 27, 2013 at 8:36
  • 2
    $\begingroup$ Seems to be a version problem. It works well for MMA 8.0.1 and 9.0.1. $\endgroup$
    – partial81
    Commented May 27, 2013 at 8:37
  • $\begingroup$ Well then I guess all I can hope for is some other user still on v6 who can figure a workaround. For know, the only easy solution that works for me is setting the colour to RGBColor[0.999, 0.999, 0.999], which turns out pretty white. $\endgroup$
    – Bernd
    Commented May 27, 2013 at 8:40
  • $\begingroup$ What happens if you evaluate Graphics[{LightGray, Disk[], Text[Framed[Style["text", Black, 50], Background -> White, FrameStyle -> {Orange}]]}]? $\endgroup$
    – m_goldberg
    Commented May 27, 2013 at 10:56

0

Your Answer

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

Browse other questions tagged or ask your own question.