Return to Answer

deleted 8 characters in body

edited May 18, 2012 at 17:07

89.8k
21
303
498

Here is a starting point:

txt = "This is some text to warp." // Characters; arc = 1; range = Range[0, arc, arc/(Length@txt - 1)]; coords = {-Cos[#], Sin[#]} & /@ range; Graphics[ MapThread[ Rotate[Text[Style[#, FontFamily -> "Courier"], #2], 90 \[Degree]90° - #3] &, {txt, coords, range}] ]

Mathematica graphics

Here is a starting point:

txt = "This is some text to warp." // Characters; arc = 1; range = Range[0, arc, arc/(Length@txt - 1)]; coords = {-Cos[#], Sin[#]} & /@ range; Graphics[ MapThread[ Rotate[Text[Style[#, FontFamily -> "Courier"], #2], 90 \[Degree] - #3] &, {txt, coords, range}] ]

Mathematica graphics

Here is a starting point:

txt = "This is some text to warp." // Characters; arc = 1; range = Range[0, arc, arc/(Length@txt - 1)]; coords = {-Cos[#], Sin[#]} & /@ range; Graphics[ MapThread[ Rotate[Text[Style[#, FontFamily -> "Courier"], #2], 90° - #3] &, {txt, coords, range}] ]

Mathematica graphics

Source Link

answered May 18, 2012 at 15:12

Mr.Wizard

275.2k
34
606
1.5k

Here is a starting point:

txt = "This is some text to warp." // Characters; arc = 1; range = Range[0, arc, arc/(Length@txt - 1)]; coords = {-Cos[#], Sin[#]} & /@ range; Graphics[ MapThread[ Rotate[Text[Style[#, FontFamily -> "Courier"], #2], 90 \[Degree] - #3] &, {txt, coords, range}] ]

Mathematica graphics