Re: text bounding box size

*To*: mathgroup at smc.vnet.net*Subject*: [mg64317] Re: text bounding box size*From*: bghiggins at ucdavis.edu*Date*: Sat, 11 Feb 2006 03:32:46 -0500 (EST)*References*: <dshfie$hna$1@smc.vnet.net>*Sender*: owner-wri-mathgroup at wolfram.com

Fred, Try this: Suppose you have the graphic plt=Plot[Sin[x],{x,0,2p}]; Convert the graphic to a DisplayString with the "EPS" format.i.e., DisplayString[plt,"EPS"] The size of the Bounding box info for the graphic is near the top of the String file and begins like: %%BoundingBox: 88 4 376 182 You can use StringCases with an appropriate RegularExpression to extract out the values: Here is an example: res=Flatten[StringCases[ DisplayString[plt,"EPS"],RegularExpression["%%BoundingBox:(\\s+(\\d+)\\s+(\ \\d+)\\s+(\\d+)\\s+(\\d+))"]:>{ToExpression["$2"],ToExpression["$\ 3"],ToExpression["$4"].ToExpression["$5"]}]] {88,4,376.182} The format for the Bounding Box data is xo,yo,x1,y1, where (x0,y0) and (x1,y1) are the coordinates of the lower-left and upper-right corners, respectively. measured in points. Hope this helps Cheers, Brian Fred Soo wrote: > hi, > > I know this has been asked before, but I haven't seen any response. Has > anyone found an easy way to get the bounding box size (height, width) of > a Text expression for a given DisplayFunction? Or for that matter, the > size of any Graphics object being displayed? > > I've tried a few things, but this is way too difficult, and there aren't > even any kludgy workarounds. > > For instance, to get text height, I tried to pull the FontSize->x out of > any Text expression. This is ok, but of course, doesn't work if no > FontSize is specified. > > As for reading the default TextStyle, there doesn't seem to be a way > unless you use $TextStyle. In addition, if you use Show[expr, > DefaultFont:>x] to change all of the fonts in a graphic, it doesn't > appear to modify $TextStyle or pass DefaultFont->x, so there is no way > to tell what font x is. > > Text width is kind of hopeless, as there doesn't seem (unless somebody > knows, please let me know) a way of getting a font metric. > > I've looked at the PostScript output from DisplayString, and can find > some bits and pieces which make some sense, but not being a PostScript > expert, this would take a lot of time to figure out. > > Any suggestions? > > Thanks! > > Fred > > Department of Physiology and Biophysics > University of Washington > Seattle, WA 98199 > (206) 616-2510