Re: Text Rotation Problem
- To: mathgroup at smc.vnet.net
- Subject: [mg37120] Re: Text Rotation Problem
- From: daiyanh at earthlink.net (Daitaro Hagihara)
- Date: Thu, 10 Oct 2002 03:21:03 -0400 (EDT)
- References: <ane87l$kch$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
This should be on faq. Mac Mathematica lack this particular feature
("This is not a bug," according to WRI).
You can use HERSHEY package available from MathSource
(ftp.mathsource.com).
Example:
s=.08;
g=Plot[Sin[x],{x,0,Pi},DisplayFunction->Identity];
g1=Graphics[{AbsoluteThickness[.5],
hText["x-axis values",{0,0}],
Hue[0,0,1],hText["(",{-14,0}]},
AspectRatio->Automatic];
s1=s/2*Divide@@(Max@#-Min@#&/@
Transpose[Sequence@@#&/@Join[g1[[1,2]],g1[[1,4]]]/.
Line->(Sequence@@#&)]);
g2=Graphics[{AbsoluteThickness[.5],
hText["y-axis values",{0,0},1,90 Degree],
Hue[0,0,1],hText["(",{0,-14},1,90 Degree]},
AspectRatio->Automatic];
s2=s/2/Divide@@(Max@#-Min@#&/@
Transpose[Sequence@@#&/@Join[g2[[1,2]],g2[[1,4]]]/.
Line->(Sequence@@#&)]);
Show[Graphics@Rectangle[Scaled@{s,s},Scaled@{1,1},g],
Graphics@Rectangle[Scaled@{.56-s1,0},Scaled at {.56+s1,s},g1],
Graphics@Rectangle[Scaled@{0,.56-s2},Scaled@{s,.56+s2},g2],
DisplayFunction->$DisplayFunction];
DH