Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2008

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: Making parts of formulae blinking

  • To: mathgroup at smc.vnet.net
  • Subject: [mg91194] Re: Making parts of formulae blinking
  • From: David Bailey <dave at Remove_Thisdbailey.co.uk>
  • Date: Sat, 9 Aug 2008 07:44:36 -0400 (EDT)
  • References: <g7h9r7$bca$1@smc.vnet.net>

Alexei Boulbitch 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
> 
You can generate blinking text without the need to use a Graphics object:

Dynamic[Refresh[
Style["This should drive you mad!",Hue[Random[]]],UpdateInterval->0.3]]

I leave it to you to make it more tasteful!

David Bailey
http://www.dbaileyconsultancy.co.uk


  • Prev by Date: Piecewise function involving matrices
  • Next by Date: Re: Purchasing Mathematica
  • Previous by thread: Re: Making parts of formulae blinking
  • Next by thread: Re: Making parts of formulae blinking