MathGroup Archive 2002

[Date Index] [Thread Index] [Author Index]

Search the Archive

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



  • Prev by Date: RE: Intersection of sets of results
  • Next by Date: Re: Factoring a polynomial
  • Previous by thread: Text Rotation Problem
  • Next by thread: FindRoot on complex 'interval'