/*
** Name:      Colourlist Demo
** Author:    Paul Manias
** Copyright: DreamWorld Productions (c) 1996-1997.  Freely distributable.
** Doc:       Displays a colourlist (24 bit colour lines).  To exit the
**            demo, press the left mouse button.
**
** SAS/C:     1> sc Colourlist.c link startup=LIB:gms.o data=far nostackcheck
** Dice:      1>
*/

#include <proto/games.h>

extern struct GMSBase *GMSBase;
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);
  }
}