Extending a grid to avoid line breaks in text

Question

I was wondering what the best way is to extend the cells in a GraphicsGrid so that my text fits without line breaks. My problem is illustrated by the graphic produced by the code below:

GraphicsGrid[{
  {Graphics[{Blue, Rectangle[{1, -1}]}], 
   Style["Antidisestablishmentarianism", FontSize -> 30], 
   SpanFromLeft},
  {Graphics[{Red, Rectangle[{1, -1}]}], 
   Style["Pneumonoultramicroscopicsilicovolcanoconiosis", FontSize -> 30],
   SpanFromLeft}}]`

enter image description here

I've been looking for ways to extend the cells on the right of the GraphicsGrid so that the text fits in on one line. In the code above, I've used SpanFromLeft to extend the cells a little. I would have to use many SpanFromLeft commands in order to fit the word next to the red square. So I was hoping that someone knew of a better way of doing this.

yes, but then I can't control image size, and I need to do that — Mas, May 12 '14 at 12:13
To clear things up, I meant the size of the whole Grid. Essentially what I want is for the cells on the right hand side to be wider; just wondering if there's a better way of doing this than repeated SpanFromLeft's — Mas, May 12 '14 at 12:54

score 3 · Accepted Answer · edited Apr 13 '17 at 12:55

3

Tell me if that fits you:

grid = Grid[
 {
  {Graphics[{Blue, Rectangle[{1, -1}]}, ImageSize -> 100], 
   Style["Antidisestablishmentarianism", FontSize -> 30], SpanFromLeft}, 
  {Graphics[{Red, Rectangle[{1, -1}]}, ImageSize -> 100], 
   Style["Pneumonoultramicroscopicsilicovolcanoconiosis", FontSize -> 30], SpanFromLeft}
 }, ItemSize -> {{10, 60}}]

Then taking that answer:

Show[First@
  ImportString[ExportString[#, "PDF"], "TextOutlines" -> True] &@ grid,
  ImageSize -> 100]

enter image description here

Then ImageSize can be used as will:

enter image description here

edited Apr 13 '17 at 12:55

Community

1

answered May 12 '14 at 12:47

Öskå

8,587
4
30
49

That would work. I was kind of hoping there was a simple autofit option – Mas May 12 '14 at 13:02
The text autofits with Grid. Using the Show[] part allows you to change the ImageSize. – Öskå May 12 '14 at 13:03
1

@Öskå After applying ImportString[ExportString[#, "PDF"]] & you have no text: every glyph is outlined. It is the standard way to outline fonts in Mathematica. – Alexey Popkov May 12 '14 at 13:41
@AlexeyPopkov I don't get if this is a problem or not.. :) – Öskå May 12 '14 at 13:47
It is a problem if one wish to export graphics in a vector format like EPS, PDF or SVG. The quality will be (generally) lost after outlining and the size of exported file will become huge as compared to non-outlined. You can use ImportString[ExportString[#, "PDF"], "PDF", "TextOutlines" -> False]& with the same effect but without outlining. I think that saying "text" when you actually have no text in the output is incorrect. The OP had real text in the example provided. – Alexey Popkov May 12 '14 at 13:51
Thanks for that, I didn't see the difference so I removed it. And you meant that the vectorization is lost I assume :) – Öskå May 12 '14 at 14:01
I did not mean that vectorization is lost: after converting glyphs to outlines you get vector outlines but of much lover quality than original glyphs (which are also expressed as vectors but in another fashion, much more precise and efficient). – Alexey Popkov May 12 '14 at 14:08
Check grid, ImportString[ExportString[#, "PDF"]], ImportString[ExportString[#, "PDF"], "Text.." -> True], ImportString[ExportString[#, "PDF"], "PDF", "Text.." -> False], First@ImportString[ExportString[#, "PDF"], "PDF","Text.." -> True] – Öskå May 12 '14 at 14:24
@Öskå I have checked your PDFs. Everything is as expected: "TextOutlines" -> True produces outlined fonts and "TextOutlines" -> False gives textual fonts. As to red text coloring, it looks as a bug to me. – Alexey Popkov May 12 '14 at 15:25
The bug with red text coloring can be fixed by wrapping the Style expression with Text. It is certainly a bug and it is worth to report it to Wolfram support. – Alexey Popkov May 12 '14 at 15:34
@Öskå, yes, that answer is great. – Mas May 12 '14 at 23:01
1

@Max Check What should I do when someone answers my question? and Accepting Answers: How does it work? regarding accepting answers. That concerns your two last questions with valuable answers. – Öskå May 12 '14 at 23:25
ok, voted for and marked as best answer. Thanks for pointing me to those pages. – Mas May 13 '14 at 02:30

Extending a grid to avoid line breaks in text

1 Answers1