Hallo,
dann werden die Zeichen aber *mit* der Graphik skaliert.
Das geht aber auch wesentlich einfacher mit
gr=Plot[Sin[x],{x,0,Pi},Frame->True,FrameLabel->{\[Phi],Sin[\[Phi]]}];
Show[FullGraphics[gr],Prolog->PostScript["0.3 1 scale"]]
Die FullGraphics[] braucht man, weil sonst der Prolog nur die
Linie in der Graphik, nicht aber die Achsenbeschriftung
beeinflusst.
Wie dass dann noch in die PlotRegion passt ist aber
nicht mehr mein Problem, denn zum Einf"ugen in einen
bestimmten PlotRegion wird nat"urlich wieder skaliert ...
Die Hershey-Fonts gibt's schon auf MathSource:
http://library.wolfram.com/infocenter/Conferences/196/
Gruss
Jens
Nowak Robert wrote:
>
> ich danke allen trostspendern !
>
> habe im www so etwas wie hershey vector fonts gefunden.
> nach etwas herumgewurstle habe ich das zeug in MM taugliche koordinaten gewandelt.
> die zeichen des fonts sind im array h tabelliert.
> h besteht aus 94 ASCII zeichen beginnend mit ASCII 33 "!" bei h[[1]]
> demnach findet man ASCII 65 "A" bei h[[65-32]]
> macht zwar nicht wirklich glücklich, aber vieleicht perfektioniert das noch wer ?
>
> hiermit kann man sich den gesamten font übrigens ansehen:
>
> Table[Map[# + {20 i, 0} &, h[[i]], {2}] // Line /@ # & // Graphics[{
> Thickness[.002], #}] &, {i, 1, 94}] // Show[#,
> AspectRatio -> Automatic] &
>
> und hier kommt h,
> h kommt hier noch lange nicht, vorher noch 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
> >