Re: Ticker Tape/Theater Marquee Display?
- To: mathgroup at smc.vnet.net
- Subject: [mg21052] Re: [mg20967] Ticker Tape/Theater Marquee Display?
- From: BobHanlon at aol.com
- Date: Sun, 12 Dec 1999 23:51:17 -0500 (EST)
- Sender: owner-wri-mathgroup at wolfram.com
The following will put the message in a continuous loop until aborted. w = 40; nb = NotebookCreate[]; s = "This string will scroll continuously across the screen--like a stock \ market ticker tape--until aborted. " ; While[1 > 0, NotebookWrite[nb, StringTake[s, w]]; s = StringJoin[RotateLeft[Characters[s]]]; SelectionMove[nb, All, Cell];] To speed up the scrolling, remove your Pause statement. I don't believe that Pause can delay less than $TimeUnit ?? $TimeUnit "$TimeUnit gives the minimum time interval in seconds \ recorded on your computer system." Attributes[$TimeUnit] = {Locked, Protected} $TimeUnit = Rational[1, 60] Bob Hanlon In a message dated 12/1/1999 3:44:45 AM, siegman at stanford.edu writes: >I'd like to have a small routine that would scroll a text message across >the screen inside a window, like a theater marquee or the old Times Square >advertising displays or the stock markets quotes at the bottom of certain >television programs. > >The crude solution I've come up with is: > >s = "This is a test string that will be scrolled across the screen like >a >stock market ticker tape." ; > >w = 40; n = 1; >nb = NotebookCreate[]; >While[n <=StringLength[s] - w, > (NotebookWrite[nb, StringTake[s, {n, n+w}], After]; > Pause[0.00001]; > SelectionMove[nb, All, Cell]; > n = n + 1)] > >Can anyone suggest anything more sophisticated? Why does this version >scroll so slowly? Anyone know of a dot matrix type font that would make >the output look more realistic? >