home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / MAGAZINE / MISC / ITPAUG90.ZIP / TEST1.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-06-15  |  514 b   |  27 lines
  1. {************************************************
  2. * TEST1.PAS draw stars, assuming a 320 x 200    *
  3. * screen.                                       *
  4. ************************************************}
  5.  
  6. PROCEDURE DrawPict;
  7.  
  8. VAR
  9.   L,X,Y : Integer;
  10.  
  11. BEGIN
  12.  
  13.   X := 160;
  14.   Y := 100;
  15.  
  16.   FOR L := 0 TO 39 DO BEGIN
  17.     DrawStar(X,Y,L,L,1);
  18.     Delay(15);
  19.     DrawStar(X,Y,L,L,0)
  20.     END;
  21.   FOR L := 40 DOWNTO 1 DO BEGIN
  22.     DrawStar(X,Y,L,L,1);
  23.     Delay(15);
  24.     DrawStar(X,Y,L,L,0)
  25.     END
  26. END;
  27.