Re: Making parts of formulae blinking
- To: mathgroup at smc.vnet.net
- Subject: [mg91212] Re: Making parts of formulae blinking
- From: David Reiss <dbreiss at gmail.com>
- Date: Sat, 9 Aug 2008 07:48:05 -0400 (EDT)
- References: <g7h9r7$bca$1@smc.vnet.net>
Something like the following might be a start for what you are
wanting:
1 + Dynamic@Style[x, Refresh[Hue[Random[]], UpdateInterval -> 1]]
--David
On Aug 8, 7:14 am, Alexei Boulbitch <Alexei.Boulbi... at iee.lu> wrote:
> Dear MathGroup members,
>
> making presentations on Mathematics or Physics, sometimes I need to
> discuss independently of one another certain parts of mathematical
> expressions belonging to the same formula. This requires to separate
> them out or somehow to highlight them. Such an aim may be achieved in
> several ways. Say, below a simple mathematical formula is defined. It
> consists of two parts. By a mouse click one of the parts is blended
> while the other changes its color to a more striking:
>
> part1 = Graphics[
> Text[Style["AB+", "Times New Roman", Italic, 22,
> FontColor -> Dynamic[col1]]], ImageSize -> {80, 70}];
> part2 = Graphics[
> Text[Style["xy", "Times New Roman", Italic, 22,
> FontColor -> Dynamic[col2]]], ImageSize -> {80, 70}];
> collst1 = {Black, Black};
> collst2 = {Blue, Gray};
> collst3 = {Gray, Blue};
> DynamicModule[{col1 = Black, col2 = Black},
> EventHandler[
> GraphicsRow[{part1, part2},
> Spacings -> -35], {"MouseClicked" :> ({col1,
> col2} = {col1, col2} /.{collst3 -> collst1,
> collst1 -> collst2, collst2 -> collst3})}]]
>
> Now comes my question:
>
> It would still better catch the eye, if (before the part in question
> will definitely change its color to Blue) it blinks few times. Say, it
> may change few times its color between blue and gray, or it may
> increase and decrease its size few times or so.
>
> Have you an idea of how to reach such a result?
>
> My system is Windows XP/Mathematica 6.0.1
>
> Thank you,
> Alexei
>
> --
> Alexei Boulbitch, Dr., Habil.
> Senior Scientist
>
> IEE S.A.
> ZAE Weiergewan
> 11, rue Edmond Reuter
> L-5326 Contern
> Luxembourg
>
> Phone: +352 2454 2566
> Fax: +352 2454 3566
>
> Website:www.iee.lu
>
> This e-mail may contain trade secrets or privileged, undisclosed or other=
wise confidential information. If you are not the intended recipient and ha=
ve received this e-mail in error, you are hereby notified that any review, =
copying or distribution of it is strictly prohibited. Please inform us imme=
diately and destroy the original transmittal from your system. Thank you fo=
r your co-operation.