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.