Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2009

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

Search the Archive

Text on a curve

  • To: mathgroup at smc.vnet.net
  • Subject: [mg104758] Text on a curve
  • From: Bill <WDWNORWALK at aol.com>
  • Date: Sun, 8 Nov 2009 06:51:57 -0500 (EST)

Text on a curve


Hi:

Using the following Mathematica 6.0.1 code, I get a nice picture as follows:

Module[{f, fs, t}, f[t_] = {Cos[t] + Sin[t], Sin[t]};
 fs[t_] = D[f[t], t] // N;
 h = Graphics[Rotate[Style[Text["
      T"], 14], 90 Degree]];
 Show[Graphics[{Arrowheads[{{Automatic, Automatic, h}}], {Red, 
       Arrow /@ 
        MapThread[{#1 + 
            0.001 #2, (#1 - 
             2 #2)} &, {f /@ #, ({-1, 1} Reverse[#]/21) & /@ (#/
                 Sqrt[#.#] & /@ (fs /@ #))} &[#]]}, {Thickness[0.005], {Blue, 
        Line[f /@ #]}}} &[
    Table[\[Rho], {\[Rho], 0.0, 2*Pi // N, 2*Pi/26 // N}]]], 
  AspectRatio -> Automatic, Axes -> True, 
  PlotRange -> {{-1.6, 1.6}, {-1.6, 1.6}}, ImageSize -> 500]]
  
  Question: How can the code be modified to place selected letters at different positions, forming a sentence around the curve, such as:
  
  ~Typing onto a curve
  
  
  
  Thanks,
  
  Bill


  • Prev by Date: Re: Can't figure out how to include syntax coloring in Printout
  • Next by Date: Re: Mathematica skill level snippet(s)
  • Previous by thread: Re: How can I reduce the frequency of a sine wave tia
  • Next by thread: Re: Text on a curve