Text on a curve, revisited and modified

• To: mathgroup at smc.vnet.net
• Subject: [mg104921] Text on a curve, revisited and modified
• From: Bill <WDWNORWALK at aol.com>
• Date: Fri, 13 Nov 2009 05:55:24 -0500 (EST)

```Text on a curve, revisited and modified

Hi:

Thanks to help from Daniel and inspiration from David, I have the
following Mathematica 6.0.1 code that gives a nice graph:

(* Code part A: *)

Module[{f, fs, t}, f[t_] = {Cos[t] + Sin[t], Sin[t]};
fs[t_] = D[f[t], t] // N;
h = Graphics[
Translate[
Rotate[Style[Text["\n" <> #], {0, 100}, 18, Purple, Bold],
90 Degree], {0.1, 0}]] & /@ Characters["Typing onto a curve works. "];
i = 0;
Arrow[#]} & /@
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 -> {{-2, 2}, {-2, 2}}, ImageSize -> 500,
Background -> LightYellow]]

The next section of code presents text that blinks different colors:

(* Code part B: *)

Text[Row[Dynamic@
Style[#, 24, Refresh[Hue[Random[]], UpdateInterval -> .2]] & /@
Characters["Typing onto a curve works."]]]

Question: How can something like Code part B be modified, and merged into Code part A
successfully? I've tried without success.

What I want is for the text on the curve in Code part A to blink random flashing colors for
each letter on the curve, similiar to the random blinking text colors that is output by Code
part B graphics output.