It's still working in a math environment, regardless of what the font is, and so
uses the mathematical versions of the characters where appropriate. The
font-switching behavior is controlled by the "OperatorSubstitution" option.
Show@Graphics[{Text[
TextCell[
Style["abcdefghijklmnopqrstuvwxyz1234567890\n\
ABCDEFGHIJKLMNOPQRSTUVWXYZ!
@#$%^&*()",
PrivateFontOptions -> {"OperatorSubstitution" -> False}]], {0,
0}, TextStyle -> {FontFamily -> "Times"}]}]
You could also set this globally if you prefer to use the base font over
Mathematica's substitutions everywhere.
Sincerely,
John Fultz
jfultz at wolfram.com
User Interface Group
Wolfram Research, Inc.
On Mon, 14 Jul 2008 05:23:07 -0400 (EDT), jfuite at phys.ualberta.ca wrote:
> Dear Mathematica Adepts,
>
> I am creating some graphics for Export to an .eps file. It seems that
> font embedding is an issue discussed in the past on the forums. What
> about suprious font substitutions?
>
> The following statement produces the expected simple graphic:
>
> Show@Graphics[{Text["abcdefghijklmnopqrstuvwxyz1234567890\nABCDEFGHIJKLMNOPQ
> RSTUVWXYZ!
> @#$%^&*()",{0,0},TextStyle->{FontFamily->"Times"}]}].
>
> It is sort of a sample of the keyboard, all in, one would expect, the
> common font, "Times".
>
> When this graphic is passed through the function, Export, as an .eps
> file, Export["deleteMe.eps", %], and opened in any other program, then
> some of the common special characters are missing, with blanks in
> their place:
>
> abcdefghijklmnopqrstuvwxyz1234567890
> ABCDEFGHIJKLMNOPQRSTUVWXYZ #$%^& .
>
> At least one of the programs complained about a missing Mathematica
> font. But why is a Mathematica font being used when I asked for
> Times? How can I work around this? I especially want to use brackets
> in graphics.
>
> Thanks for any advice in advance.