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

MathGroup Archive 2009

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

Search the Archive

Re: Text on a curve, revisited and modified

  • To: mathgroup at smc.vnet.net
  • Subject: [mg105021] Re: Text on a curve, revisited and modified
  • From: Bill <WDWNORWALK at aol.com>
  • Date: Wed, 18 Nov 2009 06:58:14 -0500 (EST)

Hi:

For those who might be interested, here's a solution:

Module[{f, fs, t}, f[t_] = {Cos[t] + Sin[t], Sin[t]};
 fs[t_] = D[f[t], t] // N;
 h = Graphics[
     Translate[
      Rotate[Dynamic@
        Style[Text["\n" <> #], {0, 100}, 30, Bold, 
         Refresh[Hue[Random[]], UpdateInterval -> .4]], 0 Degree], {0.5, 
       0}]] & /@ Characters["Typing onto a curve works. "];
 i = 0;
 Show[Graphics[{{Gray, {Arrowheads[{{Automatic, Automatic, h[[++i]]}}], 
          Arrow[#]} & /@ 
        MapThread[{#1 + 
            0.001 #2, (#1 - 
             2 #2)} &, {f /@ #, ({-1, 1} Reverse[#]/26) & /@ (#/
                 Sqrt[#.#] & /@ (fs /@ #))} &[#]]}, {Thickness[
        0.005], {Magenta, Line[f /@ #]}}} &[
    Table[\[Rho], {\[Rho], 0.0, 2*Pi // N, 2*Pi/26 // N}]]], 
  AspectRatio -> Automatic, PlotRange -> {{-2, 2}, {-2, 2}}, 
  ImageSize -> 700, Background -> Black]]
  
  
  Regards,
  
  Bill


  • Prev by Date: Re: 3d crash
  • Next by Date: subscripts in function definitions
  • Previous by thread: Re: Text on a curve,
  • Next by thread: Dialogue box generator