Mathematica 9 is now available
Student Support Forum
-----
Student Support Forum: 'Flashing different colors in text letters' topicStudent Support Forum > General > "Flashing different colors in text letters"

< Previous Comment | Next Comment >Help | Reply To Comment | Reply To Topic
Author Comment/Response
Bill
12/31/08 01:33am

Hi:

(This is a little different example from my first submittal.)

So far, I've got the code below flashing each letter in a different color,
but I'd like to hide, or remove the curly brackets and commas, so that
I'm only left with the flashing letters being displayed. Can someone
please show me the Mathematica 6.0.1 code to do that?
I think that the code could also be much more compact, but I need help
with that too.


tia,

Bill

PS. I'm using Mathematica 6.0.1 with Win XP on a pc.


(Mathematica 6.0.1 code below.)


M = Dynamic@
Style["M", 20, FontFamily -> "Eurostyle",
Background -> Lighter[LightYellow, .1],
Refresh[Hue[Random[]], UpdateInterval -> .2]];
a = Dynamic@
Style["a", 20, FontFamily -> "Eurostyle",
Background -> Lighter[LightYellow, .1],
Refresh[Hue[Random[]], UpdateInterval -> .2]];
t = Dynamic@
Style["t", 20, FontFamily -> "Eurostyle",
Background -> Lighter[LightYellow, .1],
Refresh[Hue[Random[]], UpdateInterval -> .2]];
h = Dynamic@
Style["h", 20, FontFamily -> "Eurostyle",
Background -> Lighter[LightYellow, .1],
Refresh[Hue[Random[]], UpdateInterval -> .2]];
e = Dynamic@
Style["e", 20, FontFamily -> "Eurostyle",
Background -> Lighter[LightYellow, .1],
Refresh[Hue[Random[]], UpdateInterval -> .2]];
m = Dynamic@
Style["m", 20, FontFamily -> "Eurostyle",
Background -> Lighter[LightYellow, .1],
Refresh[Hue[Random[]], UpdateInterval -> .2]];
a = Dynamic@
Style["a", 20, FontFamily -> "Eurostyle",
Background -> Lighter[LightYellow, .1],
Refresh[Hue[Random[]], UpdateInterval -> .2]];
t = Dynamic@
Style["t", 20, FontFamily -> "Eurostyle",
Background -> Lighter[LightYellow, .1],
Refresh[Hue[Random[]], UpdateInterval -> .2]];
i = Dynamic@
Style["i", 20, FontFamily -> "Eurostyle",
Background -> Lighter[LightYellow, .1],
Refresh[Hue[Random[]], UpdateInterval -> .2]];
c = Dynamic@
Style["c", 20, FontFamily -> "Eurostyle",
Background -> Lighter[LightYellow, .1],
Refresh[Hue[Random[]], UpdateInterval -> .2]];
a = Dynamic@
Style["a", 20, FontFamily -> "Eurostyle",
Background -> Lighter[LightYellow, .1],
Refresh[Hue[Random[]], UpdateInterval -> .2]];
{M, a, t, h, e, m, a, t, i, c, a};
Framed@Graphics[
Text[Dynamic@
Style[{M, a, t, h, e, m, a, t, i, c, a}, Bold, 28,
FontFamily -> "Eurostyle",
Refresh[Hue[Random[]], UpdateInterval -> .2]]],
Background -> Black, ImageSize -> {350, 150}]

URL: ,

Subject (listing for 'Flashing different colors in text letters')
Author Date Posted
Flashing different colors in text letters Bill 12/29/08 8:30pm
Re: Flashing different colors in text letters Xavier 12/30/08 09:04am
Re: Flashing different colors in text letters Bill 12/31/08 01:33am
Re: Flashing different colors in text letters yehuda ben-s... 12/31/08 04:00am
Re: Flashing different colors in text letters Bill 12/31/08 2:14pm
< Previous Comment | Next Comment >Help | Reply To Comment | Reply To Topic