Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2002
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2002

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

Search the Archive

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?



  • Prev by Date: RE: Re: Using Text Cells
  • Next by Date: Re: Replacement problem
  • Previous by thread: Re: Sum of 1/Primes
  • Next by thread: Re: Text Rotation Problem