home *** CD-ROM | disk | FTP | other *** search
/ Aminet 18 / aminetcdnumber181997.iso / Aminet / dev / misc / gms_dev.lha / GMS / Source / E / Screens / HiResScreen.e < prev    next >
Encoding:
Text File  |  1997-01-29  |  1.2 KB  |  46 lines
  1. /* HiRes Picture Display
  2. ** ---------------------
  3. ** Opens a screen of 640 pixels width in HIRES mode.  You can even try
  4. ** SuperHiRes (SHIRES) if you change the appropriate flag in the GameScreen
  5. ** structure.
  6. */
  7.  
  8. MODULE 'games','games/games'
  9.  
  10. PROC main()
  11. DEF screen:PTR TO gamescreen, pic:PTR TO picture
  12.  
  13.    IF gmsbase := OpenLibrary('games.library',0)
  14.       SetUserPrefs(0)
  15.       IF (screen := AddScreen([TAGS,0,
  16.            GSA_SCRWIDTH,640,
  17.            GSA_SCRHEIGHT,256,
  18.            GSA_PLANES,4,
  19.            GSA_SCRMODE,HIRES OR COL12BIT,
  20.            GSA_SCRTYPE,ILBM,
  21.            TAGEND]))
  22.  
  23.          IF (pic := LoadPic([TAGS,0,
  24.             PCA_DATA,screen.memptr1,
  25.             PCA_WIDTH,640,
  26.             PCA_HEIGHT,256,
  27.             PCA_PLANES,4,
  28.             PCA_SCRMODE,LORES OR COL12BIT,
  29.             PCA_SCRTYPE,ILBM,
  30.             PCA_OPTIONS,GETPALETTE,
  31.             PCA_FILE,'GAMESLIB:data/IFF.Pic640x256',
  32.             TAGEND]))
  33.  
  34.             screen.palette := pic.palette
  35.             UpdatePalette(screen)
  36.             ShowScreen(screen)
  37.             WaitLMB()
  38.          FreePic(pic)
  39.          ENDIF
  40.       DeleteScreen(screen)
  41.       ENDIF
  42.    CloseLibrary(gmsbase)
  43.    ENDIF
  44. ENDPROC
  45.  
  46.