/*
** Name:      Hi-Res Picture Display
** Author:    Paul Manias
** Copyright: DreamWorld Productions (c) 1996-1997.  Freely Distributable.
**
** Doc:       Opens a screen of 640x256 pixels in HIRES LACED mode.  You
**            can even try SuperHiRes (SHIRES) if you change the appropriate
**            flag in the GameScreen structure.
**
** SAS/C:     1> sc HiResScreen.c link startup=LIB:gms.o data=far nostackcheck
**  Dice:     1> dcc -l0 -mD gms.o HiResScreen.c -o HiResScreen
**
*/

#include <proto/games.h>

extern struct GMSBase *GMSBase;
APTR   PREFSNAME = DEFAULT;

void main(void)
{
  struct GameScreen *GameScreen;
  struct Picture *pic;

  if (pic = LoadPicFile("GMS:demos/data/PIC.Pic640x256",GETPALETTE|VIDEOMEM)) {
     GameScreen = GetScreen();
     CopyStructure(pic,GameScreen);
     GameScreen->MemPtr1   = pic->Data;
     GameScreen->ScrWidth  = 640;
     GameScreen->ScrHeight = 256;
     GameScreen->ScrMode   = HIRES|LACED;

     if (AddScreen(GameScreen)) {
        ShowScreen(GameScreen);
        WaitLMB();
     DeleteScreen(GameScreen);
   }
   FreePic(pic);
  }
}