#include "exec/types.h"
#include "exec/memory.h"
#include "graphics/gfxmacros.h"
#include "graphics/copper.h"
#include "intuition/intuition.h"

#include "hardware/custom.h"


struct IntuitionBase *IntuitionBase;
struct Window *NoBorder;
struct GfxBase *GfxBase;
struct Screen *Scrn;
struct IntuiMessage *mesg;
struct RastPort *r;
struct ViewPort *vp;

#define MAXW  320 /* max width van window ! */
#define MAXH  225 /* max height van window ! */
#define HALFMAXH MAXH/2-1

struct NewScreen NewScrn = {
        0, -16,           /* LeftEdge, TopEdge */
        320, 225,       /* Width, Height */
        5,              /* Depth */
        0, 1,           /* DetailPen, BlockPen */
        NULL,           /* ViewModes ... value of 0 = low resolution */
        CUSTOMSCREEN,   /* Type of screen */
        NULL,           /* Font to be used as default for this screen */
        NULL,           /* DefaultTitle for its title bar */
        NULL,           /* screens user-gadgets, always NULL, ignored */
        NULL };         /* address of custom bitmap for screen */

struct NewWindow NewNoBorder = {
        0,              /* LeftEdge */
        0,              /* TopEdge  */
        MAXW, MAXH,     /* Width, Height of this window */
        -1,             /* DetailPen */
        -1,             /* BlockPen */
        MOUSEBUTTONS,   /* IDCMP Flags */
        ACTIVATE|NOCAREREFRESH|BORDERLESS|GIMMEZEROZERO|BACKDROP,
                        /* Window Flags:  (see below for more info) */
        NULL,           /* FirstGadget */
        NULL,           /* CheckMark   */
        NULL,           /* Window title */
        NULL,           /* Pointer to Screen if not workbench */
        NULL,           /* Pointer to BitMap if a SUPERBITMAP window */
        0, 0,           /* minimum width, minimum height */
        0,0,            /* maximum width, maximum height */
        CUSTOMSCREEN    /* type waarin window opend */
        };


#define INTUITION_REV 29
#define GRAPHICS_REV 29

#define AANTCOL 90

 UWORD colors[AANTCOL] =
 {
 0X100,0X200,0X300,0X420,0X520,
 0X620,0X740,0X840,0X940,0Xa60,
 0Xb60,0Xc60,0Xd80,0Xe80,0Xf80,

 0Xf80,0Xe80,0Xd80,0Xc60,0Xb60,
 0Xa60,0X940,0X840,0X740,0X620,
 0X520,0X420,0X300,0X200,0X100,

 0X100,0X200,0X300,0X420,0X520,
 0X620,0X740,0X840,0X940,0Xa60,
 0Xb60,0Xc60,0Xd80,0Xe80,0Xf80,

 0Xf80,0Xe80,0Xd80,0Xc60,0Xb60,
 0Xa60,0X940,0X840,0X740,0X620,
 0X520,0X420,0X300,0X200,0X100,

 0X100,0X200,0X300,0X420,0X520,
 0X620,0X740,0X840,0X940,0Xa60,
 0Xb60,0Xc60,0Xd80,0Xe80,0Xf80,

 0Xf80,0Xe80,0Xd80,0Xc60,0Xb60,
 0Xa60,0X940,0X840,0X740,0X620,
 0X520,0X420,0X300,0X200,0X100
 }; 


main()
{
 ULONG mclass;
 SHORT einde,xt,x,halfmaxw,quartmaxw;
 int len;
 char *txt[10];
 UWORD jm;

 struct TextFont *FontPtr;
 static struct TextAttr SysFont=
       {"topaz.font",9,0,0};


 VOID OpenALL();

 OpenALL();



 if((Scrn = (struct Screen *) OpenScreen(&NewScrn)) == 0) exit(10);
 
 NewNoBorder.Screen = Scrn;

 if((NoBorder = (struct Window *) OpenWindow(&NewNoBorder)) == 0) exit(20);

 OFF_DISPLAY;

 /* ======geen screentitel====== */

 /*ShowTitle(Scrn,0); */

 /* ======definitie van RPort !====== */

 r=NoBorder->RPort;
 vp=ViewPortAddress(NoBorder);


  SetRGB4(vp,0,0,0,0);
  for(x=1;x<16;x++)
   {
   SetRGB4(vp,   x,x-1,x-1,x-1);
   SetRGB4(vp,16+x,x+1,x+1,x+1);
   };
  SetRGB4(vp,31,0,0,0);


  halfmaxw = MAXW/2-1;

  for(xt=halfmaxw;xt>=0;xt--)
   {
   SetAPen(r,xt%31);

   Move(r,halfmaxw,HALFMAXH);Draw(r,halfmaxw-xt,0);
   Move(r,halfmaxw,HALFMAXH);Draw(r,halfmaxw+xt,0);
   Move(r,halfmaxw,HALFMAXH);Draw(r,halfmaxw-xt,MAXH);
   Move(r,halfmaxw,HALFMAXH);Draw(r,halfmaxw+xt,MAXH);
   };

   quartmaxw = MAXW/4;

  for(xt=halfmaxw;xt>=0;xt--)
   {
   SetAPen(r,xt%31);

   Move(r,quartmaxw-1  ,0);   Draw(r,halfmaxw-xt,HALFMAXH);
   Move(r,quartmaxw*3-1,0);   Draw(r,halfmaxw+xt,HALFMAXH);
   Move(r,quartmaxw-1  ,MAXH);Draw(r,halfmaxw-xt,HALFMAXH);
   Move(r,quartmaxw*3-1,MAXH);Draw(r,halfmaxw+xt,HALFMAXH);
   };

 ON_DISPLAY;


  /* text , zie ook OpenAll() */
  /* controle op originaliteit :
     txt0,txt1,txt2 zijn de echte texten
     txt3,txt4,txt5 zijn nep texten die niet hetzelfde mogen zijn als de anderen
     txt6,txt7,txt8 moeten hetzelfe als txt0, txt1, txt2 zijn */



  txt[0] = "BAMIGA SECTOR ONE";
  txt[1] = "PRESENTS";
  txt[2] = "STARGLIDER";

  txt[3] = "BAMIGA_SECTOR_ONE ";
  txt[4] = "PRESENTS ";
  txt[5] = "STARGLIDER ";

  txt[6] = "BAMIGA SECTOR ONE";
  txt[7] = "PRESENTS";
  txt[8] = "STARGLIDER";


  if(len=(strcmp(txt[0],txt[6]))!=0) for(;;);
  if(len=(strcmp(txt[1],txt[7]))!=0) for(;;);
  if(len=(strcmp(txt[2],txt[8]))!=0) for(;;);

  if(len=(strcmp(txt[0],txt[3]))==0) for(;;);
  if(len=(strcmp(txt[1],txt[4]))==0) for(;;);
  if(len=(strcmp(txt[2],txt[5]))==0) for(;;);

 
     txt[1]="\n\nBAMIGA SECTOR ONE : \n\nYou'd better contact us ... at POSTBUS 163, 2018 ANTWERP, BELGIUM!\n";
     txt[2]="Greetings go to :\n";
     txt[3]="THE KENT TEAM, RGB CANADA, THE MOVERS, THE GENERAL, DESTROYER, EXPLORER,";
     txt[4]="ADJ, TLC, HOTLINE, BST (Fine imports !), ACTION 2009, DANISH GOLD,";
     txt[5]="THE WEB INC., IRATA, 1001 CREW, JOSTEIN, ACS and all good friends!\n";
     txt[6]="Special Greetings go to :\n";
     txt[7]="THE STARFRONTIERS";
     txt[8]="AND OUR NEW MEMBER IN THE USA : JEFF!\n";
     txt[9]="BAMIGA SECTOR ONE : Leading the way for Belgium on the Amiga!\n\n";

     for(xt=1;xt<10;xt++)puts(txt[xt]);
 
 

  /* zwart vlak om in te schrijven */


  SetAPen(r,0);
  SetBPen(r,0);
  for(xt=0;xt<halfmaxw + 1;xt++)
  {
   Move(r,halfmaxw-xt,HALFMAXH-50);
   Draw(r,halfmaxw-xt,HALFMAXH+50);
   Move(r,halfmaxw + 1+xt,HALFMAXH-50);
   Draw(r,halfmaxw + 1+xt,HALFMAXH+50);
  }
   
  SetAPen(r,10);
  RectFill(r,5,HALFMAXH-55+10,MAXW-1-5,HALFMAXH+55-10);

  SetAPen(r,0);
  RectFill(r,10,HALFMAXH-55+15,MAXW-1-10,HALFMAXH+55-15);



  SetAPen(r,10);
  RectFill(r,5,HALFMAXH-45,MAXW-1-5,HALFMAXH+45);

  SetAPen(r,0);
  RectFill(r,10,HALFMAXH-40,MAXW-1-10,HALFMAXH+40);


 /*==Font==*/

  FontPtr=(struct TextFont *)OpenFont(&SysFont);
  if (FontPtr== 0)exit(FALSE);

  SetAPen(r,31);
  SetFont(r,FontPtr);
  SetSoftStyle(r,FSF_BOLD,FSF_BOLD);
  PrintAt(r,halfmaxw-strlen(txt[0])*5,HALFMAXH-20,txt[0]);
  PrintAt(r,halfmaxw-strlen(txt[1])*5,HALFMAXH+4,txt[1]);

  PrintAt(r,halfmaxw-strlen(txt[2])*5,HALFMAXH+20+8,txt[2]);/* 1LETTER = 10.4 PIXELS*/


 /* ======einde in stijl !====== */
einde=0;
while(!einde)
 {
  while((mesg=(struct IntuiMessage *)
      GetMsg(NoBorder->UserPort))==NULL)
  {
   usecopper(jm++);
  }

  ReplyMsg(mesg);
  mclass=mesg->Class;


  if(mclass==MOUSEBUTTONS)
   {
     einde=1;

 
     usecopper((UWORD)0);

     for(xt=halfmaxw;xt>=0;xt--)
      {
       Move(r,halfmaxw-xt,HALFMAXH-45);Draw(r,halfmaxw-xt,HALFMAXH+45);
       Move(r,halfmaxw + 1+xt,HALFMAXH-45);Draw(r,halfmaxw + 1+xt,HALFMAXH+45);
      }


     SetAPen(r,0);
     SetBPen(r,31);
     SetDrMd(r,JAM2);
     PrintAt(r,halfmaxw-strlen(txt[0])*5,HALFMAXH+3,txt[0]);
     SetSoftStyle(r,FS_NORMAL,FS_NORMAL);

     CloseFont(FontPtr);

     r->Mask = (UWORD) 0xfff0;
     SetAPen(r,0);
     SetDrPt(r,0xAAAA);

     for(xt=0;xt<160;xt+=2)
     {
      Move(r,159-xt,0);Draw(r,159-xt,MAXH);
      Move(r,160+xt,0);Draw(r,160+xt,MAXH);
     }
     for(xt=1;xt<160;xt+=2)
     {
      Move(r,159-xt,0);Draw(r,159-xt,MAXH);
      Move(r,160+xt,0);Draw(r,160+xt,MAXH);
     }

     r->Mask = (UWORD) 0xffff;

     SetDrPt(r,0x5555);
     for(xt=0;xt<160;xt+=2)
     {
      Move(r,159-xt,0);Draw(r,159-xt,MAXH);
      Move(r,160+xt,0);Draw(r,160+xt,MAXH);
     }
     for(xt=1;xt<160;xt+=2)
     {
      Move(r,159-xt,0);Draw(r,159-xt,MAXH);
      Move(r,160+xt,0);Draw(r,160+xt,MAXH);
     }
     
     FreeVPortCopLists(vp);RemakeDisplay();

 
     SetDrPt(r,0xFFFF);
     CloseWindow(NoBorder);
     CloseScreen(Scrn);
     CloseLibrary(GfxBase);

   }
 }

} 
/********************************** einde van main **********************/

VOID OpenALL()
{
 /*==Intuition==*/

 IntuitionBase=(struct IntuitionBase *)
            OpenLibrary("intuition.library",INTUITION_REV);

 if(IntuitionBase==NULL)
    exit(FALSE);

 /*==Graphics Library==*/

 GfxBase=(struct GfxBase *)
          OpenLibrary("graphics.library",GRAPHICS_REV);

 if(GfxBase==NULL)
    exit(FALSE);

}


PrintAt(rast,x,y,s)
struct RastPort *rast;
int x,y;
char *s;
{
 Move(rast,x,y);
 Text(rast,s,strlen(s));
}

usecopper(j)
UWORD j;
{
  UWORD i;
  struct UCopList *cl;
  void *dspins,*sprins,*clrins;  

  cl = AllocMem(sizeof(struct UCopList),MEMF_PUBLIC|MEMF_CLEAR,MEMF_CHIP);

    for(i=0;i<AANTCOL;i++)
    {
    CWAIT(cl,MAXH/2-45+i,0); /* 225/2-45 */
    CMOVE(cl,custom.color[31],colors[(i+j) % AANTCOL]);
    }
    CEND(cl);

    dspins=vp->DspIns; sprins=vp->SprIns; clrins=vp->ClrIns;

    Forbid();
     vp->DspIns=vp->SprIns=vp->ClrIns=0;
     FreeVPortCopLists(vp);
     vp->DspIns=dspins; vp->SprIns = sprins; vp->ClrIns=clrins;
     vp->UCopIns=cl;
    Permit();
 
    RethinkDisplay();
}