Graphics from text left justified

Question

I need to create a Graphics object from text but it needs to be left justified. I can do this for a single text string:

Graphics[
 Text[
  Style["programa_de_estabilidade_e_crescimento", 16]
  , {1, 0}
  , {1.6, 0}
  ]
 , ImageSize -> {400, 20}
 ]

which results in:

But I need to do it automatically for different text sizes. E.g., using the same offset with the text string "programa" it results in:

So, is there a way to automatically adjust the offset?

score 1 · Accepted Answer · answered Sep 14 '17 at 15:41

1

Using the correct specification for the offset of Text (i.e. offset after coords), and specifying PlotRange, we can achieve consistent results:

textImg[txt_] := Graphics[
 Text[Style[txt, 16], {1.6, 0}, {-1, -1}], 
 ImageSize -> {400, 20},
 PlotRange -> {{0, 400}, All}
]

textImg["programa"]

textImg["programa_de_estabilidade_e_crescimento"]

Mathematica graphics

You might also be able to use Alignment on an enclosing object to achieve the result without specifying PlotRange.

answered Sep 14 '17 at 15:41

Lukas Lang

33,963
1
51
97

Thanks but unfortunately it didn't work. I'm having a blank image for both cases. – Miguel Sep 14 '17 at 15:47
What version/OS are you using? For me, the above code works fine on a fresh kernel in MMA 11.1, Win 10 – Lukas Lang Sep 14 '17 at 16:01
I'm using Mathematica 11.1.1.0 with macOS Sierra 10.12.6 – Miguel Sep 14 '17 at 16:02
Did you try in an empty notebook with a fresh kernel? And can anyone else test the code on OS X/macOS? – Lukas Lang Sep 14 '17 at 16:13
I was able to made it work but with a different parameterisation. Thanks! – Miguel Sep 14 '17 at 16:18
do you you how can I now measure the size of the image text part only? – Miguel Sep 14 '17 at 17:51
Does this work for you? – Lukas Lang Sep 14 '17 at 17:57
Thanks! ImageDimensions[ImageCrop[textImg["text"]]] from the second answer worked very well! – Miguel Sep 14 '17 at 18:00

score 0 · Answer 2 · answered Sep 14 '17 at 16:17

0

From @Mathe172 I got the following correct result (working in with MMA 11.1.1 macOS Sierra 10.12.6):

textImg[txt_] := Graphics[
 Text[Style[txt, 16], {-400, 0}, {-1, -1}], 
 ImageSize -> {400, 20},
 PlotRange -> {{-400, 5}, {0,20}},Frame->False
]

answered Sep 14 '17 at 16:17

Miguel

981
5
13

Graphics from text left justified

2 Answers2