home *** CD-ROM | disk | FTP | other *** search
/ Inside Multimedia 1995 July / IMM0795.ISO / demo / optix / optxfpac.set / ROTPAL.OPT < prev    next >
Text File  |  1994-06-12  |  479b  |  37 lines
  1.  
  2. DEF(I)
  3.  
  4. BEGIN
  5.  
  6.   FADEOUT(0)
  7.   SYSFONT(2,1)
  8.   VIEWPORT(0,0,XMAX,YMAX)
  9.  
  10.   FOR I := 16 TO 255 DO
  11.     SETCOLOR(I)
  12.     RECTANGLE
  13.     DECVIEWPORT
  14.   NEXT(I)
  15.  
  16.   SETRGBCOLOR(63,63,0,15)
  17.   SETCOLOR(15)
  18.   PRINTAT(233,233, 'Das Auge des Hurricans')
  19.  
  20.   GRADATION( 16,135,63, 0,63, 0,63, 0)
  21.   GRADATION(135,255, 0,63, 0,63, 0,63)
  22.  
  23.   SETRGBCOLOR(63,63,63,14)
  24.   CURSCOL(0,14)
  25.   CURSON(0,0)
  26.  
  27.   REPEAT
  28.     ROTPAL(255,16)
  29.   UNTIL KEYPRESSED <> MOUSEK
  30.  
  31. END
  32.  
  33.  
  34.  
  35.  
  36.  
  37.