home *** CD-ROM | disk | FTP | other *** search
/ C++ Games Programming / CPPGAMES.ISO / fgl / fglight / exfor.arj / TEMP / 05-08.FOR < prev    next >
Text File  |  1995-01-20  |  918b  |  45 lines
  1. $INCLUDE: 'C:\FG\FASTGRAF.FI'
  2.  
  3.       PROGRAM MAIN
  4.  
  5.       INTEGER COLORS, WIDTH
  6.       PARAMETER (COLORS=16)
  7.       PARAMETER (WIDTH=40)
  8.  
  9.       INTEGER BASE
  10.       INTEGER COLOR
  11.       INTEGER MINX, MAXX
  12.       INTEGER MODE
  13.       INTEGER FG_GETMODE
  14.  
  15.       CALL FG_INITPM
  16.       MODE = FG_GETMODE()
  17.       CALL FG_SETMODE(16)
  18.  
  19.       BASE = 0
  20.       MINX = 0
  21.       MAXX = WIDTH - 1
  22.  
  23.       DO 10 COLOR = 0,COLORS-1
  24.          CALL FG_PALETTE(COLOR,0)
  25.          CALL FG_SETCOLOR(COLOR)
  26.          CALL FG_RECT(MINX,MAXX,0,349)
  27.          MINX = MAXX + 1
  28.          MAXX = MAXX + WIDTH
  29. 10    CONTINUE
  30.  
  31. 20    IF (BASE .LT. COLORS*4) THEN
  32.          DO 30 COLOR = 0,COLORS-1
  33.             CALL FG_PALETTE(COLOR,BASE+COLOR)
  34. 30       CONTINUE
  35.          BASE = BASE + COLORS
  36.          CALL FG_WAITKEY
  37.          GO TO 20
  38.       END IF
  39.  
  40.       CALL FG_SETMODE(MODE)
  41.       CALL FG_RESET
  42.  
  43.       STOP ' '
  44.       END
  45.