/*
** AGA Colourlist Demo
** -------------------
** Displays an AGA colourlist (24 bit colour lines).  To exit the demo, press
** the left mouse button.
**
** To compile with SAS/C
**  1> sc Colourlist.c link startup=LIB:GMSMain.o data=far
*/

#include <proto/games.h>

extern struct GMSBase *GMSBase;
ULONG  _XCEXIT = NULL;
ULONG  PREFSNAME = DEFAULT;

LONG Colourlist[257];
LONG Rasterlist[] = {
   COLOURLIST(0,1,0,&Colourlist),
   RASTEND
};

void main(void)
{
  struct GameScreen *GameScreen;
  UWORD i;

  for (i=0; i<257; i++) {   /* Generate our colourlist */
    Colourlist[i] = i<<16;
  } Colourlist[i] = -1;

  if (GameScreen = AddScreenTags(TAGS_GAMESCREEN,NULL,
      GSA_Planes,1,
      GSA_Rasterlist,Rasterlist,
      TAGEND)) {

     ShowScreen(GameScreen);
     WaitLMB();
     DeleteScreen(GameScreen);
  }
}