home *** CD-ROM | disk | FTP | other *** search
/ Aminet 18 / aminetcdnumber181997.iso / Aminet / dev / misc / gms_dev.lha / GMS / Source / C / AGAColourList.c next >
Encoding:
C/C++ Source or Header  |  1997-02-16  |  1.2 KB  |  59 lines
  1. /*
  2. ** AGA Colourlist Demo
  3. ** -------------------
  4. ** Displays an AGA colourlist (24 bit colour lines).
  5. **
  6. ** To exit the demo, press the left mouse button.
  7. */
  8.  
  9. #include <proto/games.h>
  10. #include <proto/exec.h>
  11.  
  12. struct GMSBase *GMSBase;
  13. extern struct ExecBase *SysBase;
  14.  
  15. LONG ColourList[257];
  16.  
  17. LONG RasterList[] = {
  18.      COL24LIST(0,1,0,ColourList),
  19.      RASTEND
  20. };
  21.  
  22. /*=========================================================================*/
  23.  
  24. void main(void)
  25. {
  26.    struct GameScreen *GameScreen;
  27.    UWORD i;
  28.  
  29.    if (GMSBase = (struct GMSBase *) OpenLibrary("games.library",0)) {
  30.       SetUserPrefs(0);
  31.  
  32.       /* Generate our colourlist */
  33.  
  34.       for (i=0; i<257; i++) {
  35.         ColourList[i] = i<<16;
  36.       } ColourList[i] = -1;
  37.  
  38.       /* Initialise our screen */
  39.  
  40.       if (GameScreen = AddScreenTags(TAGS,NULL,
  41.           GSA_Planes,1,
  42.           GSA_RasterList,RasterList,
  43.           GSA_ScrMode,LORES|COL24BIT,
  44.           GSA_ScrWidth,320,
  45.           GSA_ScrHeight,256,
  46.           GSA_ScrType,ILBM,
  47.           TAGEND)) {
  48.  
  49.          ShowScreen(GameScreen);
  50.          WaitLMB();
  51.          DeleteScreen(GameScreen);
  52.       }
  53.       CloseLibrary((struct Library *)GMSBase);
  54.    }
  55. }
  56.  
  57. /*=========================================================================*/
  58.  
  59.