home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 417.lha / Rubik / source / getwindow.c < prev    next >
Encoding:
C/C++ Source or Header  |  1990-09-02  |  4.7 KB  |  210 lines
  1. /************************************************************
  2. *
  3. * getwindow.c ......used in rubik.c
  4. * 
  5. *
  6. * M.J.R.  19/12/89
  7. *
  8. *************************************************************/
  9.  
  10. struct IntuitionBase *IntuitionBase = NULL;
  11. struct GfxBase *GfxBase = NULL;
  12. struct IntuiMessage *MyIntuiMessage = NULL;
  13.  
  14. extern struct Screen *scr1, *scr2;
  15. extern struct Gadget divegadget;
  16. extern struct TextAttr ta;
  17.  
  18. struct NewScreen ns =
  19.     {
  20.     0,              /* left edge - should be zero */
  21.     0,              /* top edge */
  22.     320,            /* width - low resolution */
  23.     200,            /* height - non-interlace */
  24.     3,              /* depth - 8 colours will be available */
  25.     0,7,            /* detail pen and block pen specifications */
  26.     NULL,              /* display mode */
  27.     CUSTOMSCREEN,    /* the screen type */
  28.     &ta,            /* font */
  29.     NULL,            /* no default title */
  30.     NULL,            /* no special screen gadgets */
  31.     NULL,            /* no special custom bitmap */
  32.     };
  33.  
  34. extern struct Window *wnd1, *wnd2;
  35.  
  36. struct NewWindow nw =
  37.     {
  38.     0,0,320,199,            /* position and size    */
  39.     0,7,                    /* pens                    */
  40.     CLOSEWINDOW |
  41.     GADGETUP |
  42.     MOUSEBUTTONS,            /* IDCMPFlags            */
  43.     WINDOWCLOSE |
  44.     BORDERLESS |
  45.     ACTIVATE |
  46.     RMBTRAP,                /* flags                */
  47.     &divegadget,            /* gadgets                */
  48.     NULL,                    /* no special checkmark */
  49.     NULL,                    /* no title!            */
  50.     NULL,                    /* screen pointer        */
  51.     NULL,                    /* no bitmap            */
  52.     0,0,                    /* minimum sizes        */
  53.     320,199,                /* maximum sizes        */
  54.     CUSTOMSCREEN            /* type of screen        */
  55.     };
  56.  
  57. WORD areabuffer[25];        /*  room for up to a decagon    */
  58.  
  59. struct TmpRas tmpras;
  60. struct AreaInfo ai;
  61.  
  62. void MyCleanup()
  63.     {  
  64.     if (wnd2)
  65.         CloseWindow(wnd2);
  66.     if (wnd1)
  67.         CloseWindow(wnd1);
  68.     if (scr2)
  69.         CloseScreen(scr2);
  70.     if (scr1)
  71.         CloseScreen(scr1);
  72.     if (GfxBase != NULL)
  73.         CloseLibrary((struct Library *) GfxBase);
  74.     if (IntuitionBase != NULL)
  75.         CloseLibrary((struct Library *) IntuitionBase);
  76.     }
  77.  
  78. void cleanup()
  79.     {
  80.     FreeRaster(tmpras.RasPtr,320,199);
  81.     MyCleanup();
  82.     }
  83.  
  84. void getwindow()
  85.     {
  86.     IntuitionBase = (struct IntuitionBase *)OpenLibrary("intuition.library",0);
  87.     if (IntuitionBase == NULL)
  88.         {
  89.         MyCleanup();
  90.         exit(FALSE);
  91.         }
  92.  
  93.     GfxBase = (struct GfxBase *)OpenLibrary("graphics.library",0);
  94.     if (GfxBase == NULL)
  95.         {
  96.         MyCleanup();
  97.         exit(FALSE);
  98.         }    
  99.  
  100.     scr1 = (struct Screen *)OpenScreen(&ns);
  101.     if (scr1 == NULL)
  102.         {
  103.         MyCleanup();
  104.         exit(FALSE);
  105.         }
  106.  
  107.     scr2 = (struct Screen *)OpenScreen(&ns);
  108.     if (scr1 == NULL)
  109.         {
  110.         MyCleanup();
  111.         exit(FALSE);
  112.         }
  113.  
  114.     SetRGB4(&(scr1->ViewPort),1,14,12,2);        /*    y    */
  115.     SetRGB4(&(scr1->ViewPort),2,13,13,13);        /*    w    */
  116.     SetRGB4(&(scr1->ViewPort),3,0,10,0);        /*    g    */
  117.     SetRGB4(&(scr1->ViewPort),4,2,4,11);        /*    bu    */
  118.     SetRGB4(&(scr1->ViewPort),5,15,5,0);        /*    o    */
  119.     SetRGB4(&(scr1->ViewPort),6,11,3,1);        /*    bn    */
  120.     SetRGB4(&(scr1->ViewPort),7,10,10,10);        /*    gy    */
  121.     SetRGB4(&(scr1->ViewPort),0,0,0,0);            /*    bk    */
  122.  
  123.     SetRGB4(&(scr2->ViewPort),1,14,12,2);        /*    y    */
  124.     SetRGB4(&(scr2->ViewPort),2,13,13,13);        /*    w    */
  125.     SetRGB4(&(scr2->ViewPort),3,0,10,0);        /*    g    */
  126.     SetRGB4(&(scr2->ViewPort),4,2,4,11);        /*    bu    */
  127.     SetRGB4(&(scr2->ViewPort),5,15,5,0);        /*    o    */
  128.     SetRGB4(&(scr2->ViewPort),6,11,3,1);        /*    bn    */
  129.     SetRGB4(&(scr2->ViewPort),7,10,10,10);        /*    gy    */
  130.     SetRGB4(&(scr2->ViewPort),0,0,0,0);            /*    bk    */
  131.  
  132.     nw.Screen = scr1; /* fix the pointer into the struct  */
  133.  
  134.     wnd1 = (struct Window *)OpenWindow(&nw);
  135.     if (wnd1 == NULL)
  136.         {
  137.         MyCleanup();
  138.         exit(FALSE);
  139.         }
  140.  
  141.     nw.Screen = scr2; /* fix the pointer into the struct  */
  142.  
  143.     wnd2 = (struct Window *)OpenWindow(&nw);
  144.     if (wnd2 == NULL)
  145.         {
  146.         MyCleanup();
  147.         exit(FALSE);
  148.         }
  149.  
  150.     InitArea(&ai,&(areabuffer[0]),10);
  151.  
  152.     wnd1->RPort->AreaInfo = &ai;
  153.     wnd1->RPort->TmpRas = InitTmpRas
  154.                                     (
  155.                                     &tmpras,
  156.                                     AllocRaster(320,199),
  157.                                     RASSIZE(320,199)
  158.                                     );
  159.     wnd2->RPort->AreaInfo = &ai;
  160.     wnd2->RPort->TmpRas = wnd1->RPort->TmpRas;
  161.     
  162.     SetAPen(wnd2->RPort,7);
  163.     SetDrMd(wnd2->RPort,JAM1);
  164.     Move(wnd2->RPort,197,31);
  165.     Draw(wnd2->RPort,197,23);
  166.     Draw(wnd2->RPort,237,23);
  167.     Move(wnd2->RPort,276,31);
  168.     Draw(wnd2->RPort,276,23);
  169.     Draw(wnd2->RPort,308,23);
  170.     Move(wnd2->RPort,199,90);
  171.     Draw(wnd2->RPort,199,82);
  172.     Draw(wnd2->RPort,248,82);
  173.     Draw(wnd2->RPort,248,90);
  174.     Move(wnd2->RPort,260,90);
  175.     Draw(wnd2->RPort,260,82);
  176.     Draw(wnd2->RPort,309,82);
  177.     Draw(wnd2->RPort,309,90);
  178.     Move(wnd2->RPort,270,115);
  179.     Draw(wnd2->RPort,301,115);
  180.     Move(wnd2->RPort,265,147);
  181.     Draw(wnd2->RPort,265,139);
  182.     Draw(wnd2->RPort,305,139);
  183.     
  184.     RectFill(wnd2->RPort,206,101,244,112);
  185.     Move(wnd2->RPort,253,137);
  186.     Draw(wnd2->RPort,253,149);
  187.     Draw(wnd2->RPort,197,149);
  188.     Draw(wnd2->RPort,197,137);
  189.     Draw(wnd2->RPort,253,137);
  190.     Draw(wnd2->RPort,253,125);
  191.     Draw(wnd2->RPort,197,125);
  192.     Draw(wnd2->RPort,197,137);
  193.     Draw(wnd2->RPort,197,113);
  194.     Draw(wnd2->RPort,253,113);
  195.     Draw(wnd2->RPort,253,125);
  196.     
  197.     Move(wnd2->RPort,210,110);
  198.     SetAPen(wnd2->RPort,0);
  199.     Text(wnd2->RPort,"MODE",4);
  200.     
  201.     ClipBlit
  202.         (
  203.         wnd2->RPort,190,20,
  204.         wnd1->RPort,190,20,
  205.         128,177,
  206.         0xc0
  207.         );
  208.     }
  209.  
  210.