Prev: Crash when using Dot on matrices, v 6.0.2
Next: How to calculate covariant derivative by Mathematica?
From: Bill on 23 Jan 2010 07:32
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.

From: Bob Hanlon on 24 Jan 2010 05:44

Animate[Dynamic(a)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(a)Row[
RotateLeft[
Style[#, Bold, Red] & /@

Characters["Calculus III, Pg 109 "],
cc]],
{cc, 0, 33, 1},
AnimationDirection -> Forward,
AnimationRepetitions -> 2]

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


Bob Hanlon

---- Bill <WDWNORWALK(a)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.


From: David Park on 24 Jan 2010 05:44
This works for me:


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


David Park
djmpark(a)comcast.net
http://home.comcast.net/~djmpark/


From: Bill [mailto:WDWNORWALK(a)aol.com]
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.



From: magma on 25 Jan 2010 05:07
Building on David Park's idea, but without the animation gear (and
splitting the blanks):

cc = 0
Dynamic(a)Style[
Row[RotateLeft[{C, a, l, c, u, l, u, s, " ", III, ",", " ", P, g,
" ", 109, " ", " ", " "}, cc]], 16, Red, Bold]
Do[cc = i; Pause[.1], {i, 100}]

From: Bob Hanlon on 25 Jan 2010 05:10

Even though Paneled and AnimatorElements are not listed options for Animate (and they are highlighted in Red), they nevertheless work (at least on my platform version). This is very fragile since in a future version they could legitimately filter these unsanctioned options. Also, eliminating the appearance of the control requires that the cell be reevaluated for each sequencing of the animation.

$Version

7.0 for Mac OS X x86 (64-bit) (February 19, 2009)

Animate[Row[
RotateLeft[
Thread[
Style[
Characters["Calculus III, Pg 109 "],
Bold, Red]],
cc]],
{{cc, 0, ""}, 0, 33, 1},
AnimationDirection -> Forward,
AnimationRepetitions -> 2.01,
Paneled -> False,
AnimatorElements -> None]


Bob Hanlon

---- wdwnorwalk(a)aol.com wrote:

=============



Hi Bob:

Thanks.

Is there a way to get rid of the animate panel, and just display the
scrolling text?


Thanks again,

Bill




 |  Next  |  Last
Pages: 1 2
Prev: Crash when using Dot on matrices, v 6.0.2
Next: How to calculate covariant derivative by Mathematica?