Text Rotation Problem
- To: mathgroup at smc.vnet.net
- Subject: [mg36921] Text Rotation Problem
- From: bill.rowe at boeing.com
- Date: Wed, 2 Oct 2002 03:31:57 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
With verision 3.0 on a machine running Windows NT the following code
produces rotated text with each of the charaters rotated as well
degstr[th_]:=StringJoin[ToString[th]," Degrees"]
str[th_,offset_]:={Point[{th,1}],
Text[degstr[th],{th,1},offset,{Cos[th Degree],Sin[th Degree]}]}
pic[offset_,plotrange_,angles_]:=
Show[
Graphics[{PointSize[.015],str[#,offset]&/@angles},PlotRange->plotrange,
AspectRati->.2,Frame\[Rule]True,FrameTick->None,
DefaultFon->{"Courier",10}]];
pic[{0,0},{{-10,95},{-.1,2.1}},Range[0,90,10]];
With version 4.2 on a machine running Mac OS 10.2.1 the text is rotated but
the characters in the text are not. That is the position of the chacters
relative to each other changes but their orientation remains constant.
I would like to have the character orientation change as it does when this
code is run under Windows NT. Does anyone know if there is a setting
somewhere that controls character orientation when text is rotated?