Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!samsung!uakari.primate.wisc.edu!dali.cs.montana.edu!khan!icsu8249
From: icsu8249@khan.cs.montana.edu (Emmett)
Newsgroups: comp.lang.pascal
Subject: Your Name (Or Whatever) In Lights . . .
Message-ID: <3056@dali>
Date: 9 Dec 90 22:26:42 GMT
Sender: usenet@dali.cs.montana.edu
Organization: Montana State University, Dept. of Computer Science, Bozeman
Lines: 53

So, has anyone else out there got a better way to do this?
For now all it does is simulate two strings of chaser lights moving away
from the center of the 'lights.'  I'd like to set this whole thing up so
that with a simple procedure call like:
 
Box(X1,Y1,X2,Y2,Clockwise);

I can create a chasing border around a window, and indicate things like:
direction of chase (clockwise,counter-clockwise,edges-to-center,etc.),
speed of chase, and possibly a set of characters for the border itself.

Sounds to me like something somebody else has probably already written, 
so before I do anything else with this, can anybody point me to what I'm
looking for?

------------------------------------------------------
program MarqueeLights;
uses crt;
var
  h,i,j,k:integer;

begin
  clrscr;
  k:=0;
  gotoxy(26,10);
  i:=1;
  repeat
     gotoxy(10,10);
     for j:=1 to 16 do
        case ((((j+k) mod 8)+1) mod 4) of
           0 : write(#176);
           1 : write(#177);
           2 : write(#178);
           3 : write(#219);
        end;

     gotoxy(26,10);
     for j:=1 to 16 do
        case (((abs(j-k) mod 8)+1) mod 4) of
           0 : write(#176);
           1 : write(#177);
           2 : write(#178);
           3 : write(#219);
        end;
     inc(k);
     Delay(100);
  until KeyPressed;
end.
--
*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*
| Larry Emmett                     * 'Computers are a lot like the God of the |
* icsu8249@caesar.cs.montana.edu   |   Old Testament.  A whole lot of rules   *
| Software Consulting, Exorcisms   *    and no mercy.'  -- Joseph Campbell    |