Re: FontSize

[Jens-Peer Kuska <kuska@XXXXXXX.de>]

Hallo,

hier mein aufrichtiges Beileid. 

Es geht nicht und schon
garnicht einfach. Es geht nicht, weil 
a) Text[] nichts von der 
   "ubergeordneten ImageSize Option weiss
b) eine gr"ossere Schrift eine andere Position
   der Zeichen erfordert
c) man die PostScript Funktion zu Font-Auswahl
   "uber/umschreiben muss

F"ur letzteres muss man die MathScale des PostScript
auswerten irgendwo zwischen speichern und die launigen
Eintr"age im PostScript
alla

%%IncludeFont: Courier
/Courier findfont 10.000 scalefont
[1 0 0 -1 0 0 ] makefont setfont

durch

%%IncludeFont: Courier
/Courier findfont 10.000 ImageSizeFactor mul scalefont
[1 0 0 -1 0 0 ] makefont setfont

ersetzen

also nehmen wir mal an, die Schrift in gr soll 10 mal gr"osser
werden dann 

tmp = ImportString[
    StringReplace["/ImageSizeFactor 10 def\n" <> DisplayString[gr,
"MPS"], 
      "scalefont" -> "ImageSizeFactor mul scalefont"], "MPS"];
Show[tmp]

das ist jetzt  sch"on gross oder ?
Leider "uberlappen sich separat plazierte Teile der
Beschriftung weil das FrontEnd die Strings schon absolut
plaziert hat und dabei nichts von der skalierten Gr"osse
ahnte. Die Ausrichung ist nat"urlich auch im Eimer, es sieht
also auch mit einem moderaten 1.2 Faktor graulich aus.

Zu allem "Uberfluss scheint ImportString[] die Mathematica
fonts zu ignorieren und einfach alle Fonts mit Courier zu 
"uberschreiben, wie man an

gr=Plot[Sin[x],{x,0,Pi},FrameLabel\[Rule]{\[Phi],Sin[\[Phi]]}]
Show[ImportString[ExportString[gr, "MPS"], "MPS"]]

sieht, in dem statt des \[Phi] ein f erscheint weil ImprtString[]
vorsorglich noch mal eine /Courier findfont einf"ugt und
so die /Mathematica1Mono font "uberschreibt, wie man 
an:

%%IncludeResource: font Mathematica1Mono
%%IncludeFont: Mathematica1Mono
/Mathematica1Mono findfont 10.000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000 0.000 0.000 setrgbcolor
0.000 0.000 rmoveto
63.000 11.250 moveto

% DIESER BLOEDSINN KOMMT VOM ImportString[]

%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000 0.000 0.000 setrgbcolor
(f) show

sieht. Mathematica erkennt also seine *eigenen*
Fonts nicht ...

So und jetzt kannst Du nach Leipzig kommen und
wir weinen mal ein bischen gemeinsam ...

Sind das genug tr"ostende Worte ? 
und Beileidsbekundungen ??
ich hoffe es hilft Dir Deine emotionale Stabilit"at
wieder zu erlangen, auf jeden Fall war es gut, das
wir mal dr"uber geredet haben.

Gruss
  Jens


Nowak Robert wrote:
> 
> hallo liste
> 
> wie den was den ?
> 
> nicht einmal tröstende worte oder beileidsäusserungen ?
> 
> grüsse robert
> 
> -----Original Message-----
> From: Nowak Robert
> Sent: Monday, May 12, 2003 11:59 AM
> To: dmug@XXXXXXX.ch
> Subject:
> 
> hallo liste,
> 
> gibt es in MM eine "einfache" möglichkeit schriften zu generieren deren grösse relativ zur grösse der aktuellen 
> grafik spezifiziert ist im gegensatz zur absoluten grössenangabe TextStyle->{FontSize->s} (so wie z.b. Thicknes[] die 
> relative breite von linien spezifiziert) ?
> 
> danke und grüsse
> robert
> 
> -------------------------------
> Robert NOWAK
> IMS Nanofabrication GmbH
> Schreygasse 3
> A-1020 Vienna, Austria / Europe
> phone: +43-1-2144894-32
> fax: +43-1-2144894-99
> e-mail: robert.nowak@XXXXXXX.at
> web: www.ims.co.at