1
$\begingroup$

I have seen something similar asked in this question, but wasn't able to adapt it. I've been using Jens's code for scaled inset graphics:

stretchText[char_, pos_, scale_, angle_: 0] := Module[{g, coords, xMin, xMax, yMin, yMax}, g = First@
First@ImportString[ExportString[char, "PDF"], 
  "TextOutlines" -> True];coords = Apply[Join, 
Cases[g, FilledCurve[___, p_] :> Flatten[p, 1], Infinity]];{{xMin, xMax}, {yMin, yMax}} = Map[{Min[#], Max[#]} &[#] &, Transpose[coords]];Rotate[Inset[Graphics[g, PlotRange -> {{xMin, xMax}, {yMin, yMax}}, If[ListQ[scale], AspectRatio -> Full, AspectRatio -> Automatic]],pos, {xMin, yMin}, scale], angle]]

which works beautifully, but has some strange padding properties. When I run

Graphics[stretchText["︷", {0, -20}, {350, 30}]]

The output is padded heavily to the left.

enter image description here

Can anyone suggest how to remove this padding? I am combining many of these graphics objects of different sizes and positions.

$\endgroup$
1
$\begingroup$

Add a PlotRange

Graphics[stretchText["︷", {0, -20}, {350, 30}], 
 PlotRange -> {{0, 350}, {-20, 10}}]
$\endgroup$
2
  • $\begingroup$ Well, that's a little embarrassing :-) thanks! $\endgroup$ – Jonathan Shock Jul 29 '20 at 18:39
  • 1
    $\begingroup$ It wasn't immediately obvious. $\endgroup$ – Chris Degnen Jul 29 '20 at 18:44

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service, privacy policy and cookie policy

Not the answer you're looking for? Browse other questions tagged or ask your own question.