| 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: , |
|
