/*****************************/
/*      Monobitmap V1.0      */
/*---------------------------*/
/* (C) 1989 by Michael Maier */
/*****************************/


#include <functions.h>
#include <exec/types.h>
#include <exec/memory.h>
#include <intuition/intuition.h>
#include <graphics/gfxbase.h>

#define PLANEMEMORY 20480L

struct GfxBase *GfxBase;
struct IntuitionBase *IntuitionBase;

main()
{
 if ((GfxBase=(struct GfxBase*) OpenLibrary("graphics.library",0L))==NULL)
    exit(FALSE);
 if ((IntuitionBase=(struct IntuitionBase*)
    OpenLibrary("intuition.library",0L))==NULL)
     {
       CloseLibrary(GfxBase);
       exit(FALSE);
     }

 if (GfxBase->ActiView->ViewPort->RasInfo->BitMap->Depth!=1L)
     {
       GfxBase->ActiView->ViewPort->RasInfo->BitMap->Depth=1L;
       FreeRaster(GfxBase->ActiView->ViewPort->RasInfo->BitMap
       ->Planes[1],640L,256L);
       RemakeDisplay();
     }

 else
     {
       GfxBase->ActiView->ViewPort->RasInfo->BitMap->Depth=2;
       if((GfxBase->ActiView->ViewPort->RasInfo->BitMap->Planes[1]
         =AllocMem(PLANEMEMORY,MEMF_PUBLIC | MEMF_CHIP | MEMF_CLEAR))==NULL)
             {
               GfxBase->ActiView->ViewPort->RasInfo->BitMap->Depth=1;
               exit(FALSE);
             }
       RemakeDisplay();
     }

 CloseLibrary(GfxBase);
 CloseLibrary(IntuitionBase);
}