home *** CD-ROM | disk | FTP | other *** search
/ World of A1200 / World_Of_A1200.iso / datafiles / text / c_manual / intuition / screens / example6.c < prev    next >
C/C++ Source or Header  |  1995-02-27  |  5KB  |  175 lines
  1. /***********************************************************/
  2. /*                                                         */
  3. /* Amiga C Encyclopedia (ACE) V3.0      Amiga C Club (ACC) */
  4. /* -------------------------------      ------------------ */
  5. /*                                                         */
  6. /* Book:    ACM Intuition               Amiga C Club       */
  7. /* Chapter: Screens                     Tulevagen 22       */
  8. /* File:    Example6.c                  181 41  LIDINGO    */
  9. /* Author:  Anders Bjerin               SWEDEN             */
  10. /* Date:    92-05-01                                       */
  11. /* Version: 1.10                                           */
  12. /*                                                         */
  13. /*   Copyright 1992, Anders Bjerin - Amiga C Club (ACC)    */
  14. /*                                                         */
  15. /* Registered members may use this program freely in their */
  16. /*     own commercial/noncommercial programs/articles.     */
  17. /*                                                         */
  18. /***********************************************************/
  19.  
  20. /* This program will open a low-resolution, non-Interlaced, 4 colour     */
  21. /* Custom Screen. It will after 5 secondes start to change the screens   */
  22. /* colours, and will after a while close the screen and exit.            */
  23.  
  24.  
  25.  
  26. /* If your program is using Intuition you should include intuition.h: */
  27. #include <intuition/intuition.h>
  28.  
  29.  
  30.  
  31. struct IntuitionBase *IntuitionBase;
  32. struct GfxBase *GfxBase;
  33.  
  34.  
  35. /* Declare a pointer to a Screen structure: */ 
  36. struct Screen *my_screen;
  37.  
  38. /* Declare and initialize your NewScreen structure: */
  39. struct NewScreen my_new_screen=
  40. {
  41.   0,            /* LeftEdge  Should always be 0. */
  42.   0,            /* TopEdge   Top of the display.*/
  43.   320,          /* Width     We are using a low-resolution screen. */
  44.   200,          /* Height    Non-Interlaced NTSC (American) display. */
  45.   2,            /* Depth     4 colours. */
  46.   0,            /* DetailPen Text should be drawn with colour reg. 0 */
  47.   1,            /* BlockPen  Blocks should be drawn with colour reg. 1 */
  48.   NULL,         /* ViewModes No special modes. (Low-res, Non-Interlaced) */
  49.   CUSTOMSCREEN, /* Type      Your own customized screen. */
  50.   NULL,         /* Font      Default font. */
  51.   "MY SCREEN",  /* Title     The screen' title. */
  52.   NULL,         /* Gadget    Must for the moment be NULL. */
  53.   NULL          /* BitMap    No special CustomBitMap. */
  54. };
  55.  
  56.  
  57.  
  58. main()
  59. {
  60.   /* Open the Intuition Library: */
  61.   IntuitionBase = (struct IntuitionBase *)
  62.     OpenLibrary( "intuition.library", 0 );
  63.   
  64.   if( IntuitionBase == NULL )
  65.     exit(); /* Could NOT open the Intuition Library! */
  66.   
  67.  
  68.  
  69.   /* Before we can use the function SetRGB4() we need to open the */
  70.   /* graphics Library. (See chapter 0 INTRODUCTION for more       */
  71.   /* information.)                                                */
  72.   GfxBase = (struct GfxBase *)
  73.     OpenLibrary( "graphics.library", 0);
  74.  
  75.   if( GfxBase == NULL )
  76.   {
  77.     /* Could NOT open the Graphics Library! */
  78.  
  79.     /* Close the Intuition Library since we have opened it: */
  80.     CloseLibrary( IntuitionBase );
  81.  
  82.     exit();
  83.   }
  84.  
  85.  
  86.  
  87.   /* We will now try to open the screen: */
  88.   my_screen = (struct Screen *) OpenScreen( &my_new_screen );
  89.   
  90.   /* The "(struct Screen *)" is not necessary but it tells the compiler */
  91.   /* that the function OpenScreen() returns a pointer to a Screen */
  92.   /* structure. (See chapter "Amiga C" for more information) */
  93.  
  94.   /* Have we opened the screen succesfully? */
  95.   if(my_screen == NULL)
  96.   {
  97.     /* Could NOT open the Screen! */
  98.     
  99.     /* Close the Graphics Library since we have opened it: */
  100.     CloseLibrary( GfxBase );
  101.  
  102.     /* Close the Intuition Library since we have opened it: */
  103.     CloseLibrary( IntuitionBase );
  104.  
  105.     exit();  
  106.   }
  107.  
  108.  
  109.  
  110.   /* We have opened the screen, and everything seems to be OK. */
  111.  
  112.   /* Wait for 5 seconds: */
  113.   Delay( 50 * 5);
  114.  
  115.  
  116.  
  117.   /* Change colour register 1 to red: */
  118.   SetRGB4( &my_screen->ViewPort, 1, 15, 0, 0 );  
  119.  
  120.   /* Wait for 1 second: */
  121.   Delay( 50 * 1);
  122.  
  123.  
  124.  
  125.   /* Change colour register 1 to green: */
  126.   SetRGB4( &my_screen->ViewPort, 1, 0, 15, 0 );  
  127.  
  128.   /* Wait for 1 second: */
  129.   Delay( 50 * 1);
  130.  
  131.  
  132.  
  133.   /* Change colour register 1 to blue: */
  134.   SetRGB4( &my_screen->ViewPort, 1, 0, 0, 15 );  
  135.  
  136.   /* Wait for 1 second: */
  137.   Delay( 50 * 1);
  138.  
  139.  
  140.  
  141.   /* Change colour register 1 to white: */
  142.   SetRGB4( &my_screen->ViewPort, 1, 15, 15, 15 );  
  143.  
  144.   /* Wait for 1 second: */
  145.   Delay( 50 * 1);
  146.  
  147.  
  148.  
  149.   /* Change colour register 0 to black: */
  150.   SetRGB4( &my_screen->ViewPort, 0, 0, 0, 0 );  
  151.  
  152.   /* Wait for 1 second: */
  153.   Delay( 50 * 1);
  154.  
  155.  
  156.  
  157.   /* Wait for 5 seconds: */
  158.   Delay( 50 * 5);
  159.  
  160.  
  161.  
  162.   /* We should always close the screens we have opened before we leave: */
  163.   CloseScreen( my_screen );
  164.  
  165.  
  166.  
  167.   /* Close the Graphics Library since we have opened it: */
  168.   CloseLibrary( GfxBase );
  169.  
  170.   /* Close the Intuition Library since we have opened it: */
  171.   CloseLibrary( IntuitionBase );
  172.  
  173.   /* THE END */
  174. }
  175.