#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,
                        /* 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

 USHORT s_data[] = {0x0000,0x0000,0x0000,0x0000,0x0000,0x0000};


 UWORD colors[AANTCOL] =
 {
 0X10f,0X20e,0X30d,0X40c,0X50b,
 0X60a,0X709,0X808,0X907,0Xa06,
 0Xb05,0Xc04,0Xd03,0Xe02,0Xf01,

 0Xf01,0Xe02,0Xd03,0Xc04,0Xb05,
 0Xa06,0X907,0X808,0X709,0X60a,
 0X50b,0X40c,0X30d,0X20e,0X10f,

 0X10f,0X20e,0X30d,0X40c,0X50b,
 0X60a,0X709,0X808,0X907,0Xa06,
 0Xb05,0Xc04,0Xd03,0Xe02,0Xf01,

 0Xf01,0Xe02,0Xd03,0Xc04,0Xb05,
 0Xa06,0X907,0X808,0X709,0X60a,
 0X50b,0X40c,0X30d,0X20e,0X10f,

 0X10f,0X20e,0X30d,0X40c,0X50b,
 0X60a,0X709,0X808,0X907,0Xa06,
 0Xb05,0Xc04,0Xd03,0Xe02,0Xf01,

 0Xf01,0Xe02,0Xd03,0Xc04,0Xb05,
 0Xa06,0X907,0X808,0X709,0X60a,
 0X50b,0X40c,0X30d,0X20e,0X10f


 }; 


main()
{
 ULONG mclass;
 SHORT xt,x,halfmaxw,quartmaxw;
 int len;
 char *txt[12];
 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,FALSE);
  ClearMenuStrip(NoBorder);
  SetPointer(NoBorder,s_data,0,0,0,0);
 /* ======definitie van RPort !====== */


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


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


  halfmaxw = MAXW/2-1;

  for(xt=halfmaxw/2;xt>=0;xt--)
   {
   SetAPen(r,xt%31);
   
   Move(r,MAXW/4,0);Draw(r,MAXW/2-xt,MAXH/8);
   Move(r,MAXW/4,MAXH/4);Draw(r,MAXW/2-xt,MAXH/8);
   };

  for(xt=halfmaxw/2;xt>=0;xt--)
   {
   SetAPen(r,xt%31);
   
   Move(r,MAXW/4,0);Draw(r,xt,MAXH/8);
   Move(r,MAXW/4,MAXH/4);Draw(r,xt,MAXH/8);
   };

   ClipBlit(r,0,0,r,halfmaxw,0            ,MAXW/2,MAXH/4,0xc0);
   ClipBlit(r,0,0,r,       0,MAXH-1-MAXH/4,MAXW  ,MAXH/4,0xc0);

   ClipBlit(r,0,0,r,0,MAXH/4       ,MAXW,MAXH/4,0xc0);
   ClipBlit(r,0,0,r,0,MAXH/2,MAXW,MAXH/4,0xc0);

   ClipBlit(r,0,MAXH/4,r,0,MAXH/8       ,MAXW,MAXH/4,0x60);
   ClipBlit(r,0,MAXH/2,r,0,MAXH/2+MAXH/8,MAXW,MAXH/4,0x60);



  /* 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 hetzelfde als txt0, txt1, txt2 zijn */



  txt[0] = "BAMIGA SECTOR ONE";
  txt[1] = "PROUDLY PRESENTS";
  txt[2] = "EARL WEAVER BASEBALL";

  txt[3] = "BAMIGA_SECTOR_ONE ";
  txt[4] = "PROUDLY PRESENTS ";
  txt[5] = "EARL WEAVER BASEBALL ";

  txt[6] = "BAMIGA SECTOR ONE";
  txt[7] = "PROUDLY PRESENTS";
  txt[8] = "EARL WEAVER BASEBALL";


  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(;;);


  /* zwart vlak om in te schrijven */

 ON_DISPLAY;


  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,10,HALFMAXH-40,MAXW-1-10,HALFMAXH+40);

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

 /*==Font==*/

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

  SetAPen(r,31);
  SetBPen(r,0);
  SetFont(r,FontPtr);
  SetSoftStyle(r,FSF_BOLD,FSF_BOLD);
  PrintAt(r,halfmaxw-strlen(txt[0])*5,HALFMAXH-20,txt[0]);
  lighten(31);
  Delay(20);
  SetAPen(r,30);
  PrintAt(r,halfmaxw-strlen(txt[1])*5,HALFMAXH+4,txt[1]);
  lighten(30);
  SetAPen(r,31);
  PrintAt(r,halfmaxw-strlen(txt[1])*5,HALFMAXH+4,txt[1]);
  Delay(20);
  PrintAt(r,halfmaxw-strlen(txt[2])*5,HALFMAXH+20+8,txt[2]);/* 1LETTER = 10.4 PIXELS*/
  Delay(20);

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

   ReplyMsg(mesg);
   mclass=mesg->Class;
   if( (mclass=mesg->Class) == MOUSEBUTTONS) break;
 }

 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);

  SetAPen(r,0);
  SetDrMd(r,JAM1);

  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);
  }


  SetDrPt(r,0xffff);
  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();
 
     txt[1] ="\n\nBAMIGA SECTOR ONE : Leading the way for Belgium on the Amiga!\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, THE STARFRONTIERS, BST (Fine imports !), DANISH GOLD, ACS,";
     txt[5] ="ACTION 2009, THE WEB INC., IRATA, 1001 CREW, JOSTEIN & HOTLINE!";
     txt[6] ="\nSpecial Announcement : BAMIGA SECTOR ONE is now :";
     txt[7] ="";
     txt[8]  ="BAMIGA SECTOR ONE (SUBDIVISION UNITED STATES OF AMERICA) : JEFF";
     txt[9]  ="BAMIGA SECTOR ONE (SUBDIVISION HOLLAND)                  : DDL";
     txt[10] ="BAMIGA SECTOR ONE (SUBDIVISION WALLONIA)                 : CHIPS";
     txt[11] ="BAMIGA SECTOR ONE (HEADQUARTERS in BELGIUM)              : EMD & AMY\n";

     for(xt=1;xt<12;xt++)puts(txt[xt]);
 
     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-46+i,0); /* 225/2-46 */
    CMOVE(cl,custom.color[31],colors[(i+j) % AANTCOL]);
    }
    CWAIT(cl,MAXH/2+45,0);
    CMOVE(cl,custom.color[31],0);
    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();
}  

lighten(pennr)
{
 SHORT x;

 for(x=0;x<12;x++)
 {
  SetRGB4(vp,pennr,x,x,x);
  Delay(5);
 }

}