Services & ResourcesWolfram ForumsMathGroup Archive

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

Re: Scrolling text: Changing text color, etc.

• To: mathgroup at smc.vnet.net
• Subject: [mg106845] Re: [mg106777] Scrolling text: Changing text color, etc.
• From: Bob Hanlon <hanlonr at cox.net>
• Date: Sun, 24 Jan 2010 05:46:21 -0500 (EST)
• Reply-to: hanlonr at cox.net

Animate[Dynamic@Row[
   RotateLeft[
    Style[#, Bold, Red] & /@
     {C, a, l, c, u, l, u, s, " ", III, 
      ",",
      " ", P, g, " ", 109, "   "},
    cc]],
 {cc, 0, 33, 1},
 AnimationDirection -> Forward,
 AnimationRepetitions -> 2]

Animate[Dynamic@Row[
   RotateLeft[
    Style[#, Bold, Red] & /@
     
     Characters["Calculus III, Pg 109   "],
    cc]],
 {cc, 0, 33, 1},
 AnimationDirection -> Forward,
 AnimationRepetitions -> 2]

Animate[Dynamic@Row[
   RotateLeft[
    Thread[
     Style[Characters["Calculus III, Pg 109   "],
      Bold, Red]],
    cc]],
 {cc, 0, 33, 1},
 AnimationDirection -> Forward,
 AnimationRepetitions -> 2]


Bob Hanlon

---- Bill <WDWNORWALK at aol.com> wrote: 

=============
Hi:

I have scrolling text in Mathematica 6.0.1, using Animate:


Animate[Dynamic@
  Row[RotateLeft[{C, a, l, c, u, l, u, s, " ", III, ",", " ", P, g, " ", 109, 
     "   "}, cc]], {cc, 0, 33, 1}, AnimationDirection -> Forward, 
 AnimationRepetitions -> 2]
 

How can I make the scrolling letters to be red, and bold? I tried Style[ ], but without success.


Thanks,

Bill


PS. Win XP on a pc.