Postscipt fonts in graphics

*To*: mathgroup at smc.vnet.net*Subject*: [mg68622] Postscipt fonts in graphics*From*: "Diamond, Mark" <dot at dot.dot>*Date*: Sun, 13 Aug 2006 05:52:31 -0400 (EDT)*Sender*: owner-wri-mathgroup at wolfram.com

I have two questions related to fonts in graphics. First, I have a number of postscript fonts installed. They appear as one would expect in the Mathematica menu under Format->Font, and also, if I use something like txt = StyleForm["Hello World", FontSize -> 36, FontFamily -> "AmazingFont", FontWeight -> "Ordinary"] then the output appears correctly (i.e., it looks right, having the correct font) as the display value for txt. Furthermore, if I simply embrace this in Text[] such as Text[txt, {0,0}] the output shows Text[Hello World, {0,0}] again with the text of "Hello World" being displayed within the Notebook in AmazingFont. But when I put that Text[] into a graphic, Show[Graphics[Text[txt,{0,0}]]] the font is now substituted with Helvetica. I have used Ctrl-E to examine the postscript of the graphic, which confirms the Helvetica. What am I doing wrong, and please, how can I correct it? The second question is a repeat of one which appeared many years ago on the newsgroup (1992?) but received no reply at the time. It is this. Can one interrogate the font metrics from within Mathematica so that one can discover the dimensions of, say, the letter "i" in Helvetica font 14 point. Cheers, Mark R. Diamond