#include <stdio.h>
#include <rand.h>
#include <libps.h>
#include "pad.h" 


#define OT_LENGTH      4
#define SCREEN_MODE MODE_PAL
#define SCREEN_WIDTH 320       
#define SCREEN_HEIGHT 256


#define PACKETMAX (2048*12)  

#define PI              3.14159265358979323846

static PACKET packetArea[4][PACKETMAX]; 
static GsOT Wot[2];                    
static GsOT_TAG wtags[2][1<<OT_LENGTH];




extern DISPENV GsDISPENV;
void main(void);
void initialiseGFX(void);

void initialiseview(void);
void LoadTIMData(u_long tMemAddress);              
void SetSpriteInfo(GsSPRITE *tSprite, u_long tMemAddress, long tX, long tY);

int ControllerPad (void);

#define texture1                    0x80090030
#define texture2                    0x80095070

GsSPRITE backl,backr;


#define tmdshit                        0x800d0000




int side; 
static GsRVIEW2 TheView;

typedef struct
{
int x,y;
int oldx,oldy;
int colour;
}pixel;

pixel dot;
void putpix(int x,int y,int colour);
int getpix(int x,int y);


void main(void)
{
static int controller=0;
int colour=0;

  initialiseGFX();


	side = GsGetActiveBuff();
   dot.x=160;
   dot.y=128;
   dot.colour = 0x1f+(0x1f<<5)+(0x1f<<10);

   for(;;)
   {

        controller = ControllerPad();
                if(controller==-1)
                break;


                GsSetWorkBase((PACKET*)packetArea[side]);
                GsClearOt(0,0,&Wot[side]);

       
                if(side==0)
                {
              colour = getpix(dot.x,dot.y);
                 if(colour!=0)
                 {
                  dot.x = dot.oldx;
                  dot.y = dot.oldy;
                 }
                 putpix(dot.x,dot.y,dot.colour);
                }else
                {
                colour = getpix(dot.x,dot.y+256);
                 if(colour!=0)
                 {
                  dot.x = dot.oldx;
                  dot.y = dot.oldy;
                 }
                 putpix(dot.x,dot.y+256,dot.colour);
                }
         

          GsSortSprite (&backl, &Wot[side], 1);
          GsSortSprite (&backr, &Wot[side], 1);
          

                DrawSync(0);
                VSync(0);
		GsSwapDispBuff();
                GsSortClear(0,0,0,&Wot[side]);
                GsDrawOt(&Wot[side]);



         side^=1;
   }

   ResetGraph(3);


}

void putpix(int x, int y, int colour)
{
RECT rect;
u_long *p;
rect.x = x;rect.y = y;rect.h = 1;rect.w = 1;
p = (u_long *)0x80090000;

*p=colour;

LoadImage(&rect,p);
DrawSync(0);
}

int getpix(int x,int y)
{
RECT rect;
u_long *p;
rect.x = x;rect.y = y;rect.h = 1;rect.w = 1;
p = (u_long *)0x80090004;

StoreImage(&rect,p);
DrawSync(0);
return *p;
}

void initialiseGFX(void)
{

        PadInit();                      
        SetVideoMode( MODE_PAL );                               
        GsInitGraph(SCREEN_WIDTH,SCREEN_HEIGHT,GsOFSGPU,0,0); 
        GsDISPENV.screen.w=SCREEN_WIDTH;
        GsDISPENV.screen.h=SCREEN_HEIGHT;
        GsDefDispBuff(0,0,0,SCREEN_HEIGHT);           
       // GsInit3D(); 


        Wot[0].length = OT_LENGTH; 
        Wot[0].org = wtags[0];     
        Wot[1].length = OT_LENGTH;
        Wot[1].org = wtags[1];
        GsClearOt(0, 0, &Wot[0]);
        GsClearOt(0, 0, &Wot[1]);

 LoadTIMData(texture1);
 LoadTIMData(texture2);
 SetSpriteInfo(&backl, texture1, 0, 0);
 SetSpriteInfo(&backr, texture2, 160, 0);

}
void initialiseview(void)
{

        GsSetProjection(900);  
        TheView.vrx = 0; 
        TheView.vry = 0; 
        TheView.vrz = 0; 
	TheView.vpx = 0; 
        TheView.vpy = -325; //250
        TheView.vpz = -1600;//   525
        TheView.rz = 0;
        TheView.super = WORLD;
        GsSetRefView2(&TheView);
}

int ControllerPad (void)
{
        long pad_choice;
        int pad;
        int pad_2;

        pad_choice = PadRead();

          pad = pad_choice & 0xffff;
          pad_2 = pad_choice >>16;

          dot.oldx=dot.x;
          dot.oldy=dot.y;

        if(pad & PADLup)
        {
        dot.y--;
        }
        if(pad & PADLdown)
        {
        dot.y++;
        }
        if(pad & PADLleft)
        {
        dot.x--;
        }
        if(pad & PADLright)
        {
        dot.x++;
        }
        if(dot.x<0)dot.x=0;
        if(dot.x>320)dot.x=320;
        if(dot.y<0)dot.y=0;
        if(dot.y>256)dot.y=256;


        if ((pad & PADselect)&&(pad & PADstart))
                return -1;

 return 1;
}


void LoadTIMData(u_long tMemAddress)
  {
  RECT tRect;                                         // rectangular area to be used for TIM
  GsIMAGE tTim;                                       // TIM image information
  tMemAddress += 4;                                   // advance memory pointer to data
  GsGetTimInfo((u_long *) tMemAddress, &tTim);        // fill tTim with info from TIM
  tRect.x = tTim.px;                                  // tell GPU where graphics data is
  tRect.y = tTim.py;
  tRect.w = tTim.pw;
  tRect.h = tTim.ph;
  LoadImage(&tRect, tTim.pixel);                      // load video memory with TIM data
    tRect.x = tTim.cx;                                // tell GPU where colour table is
    tRect.y = tTim.cy;
    tRect.w = tTim.cw;
    tRect.h = tTim.ch;
    LoadImage(&tRect, tTim.clut);                     // load video memory with CLUT data
  DrawSync(0);                                        // force LoadImages to complete
  };

void SetSpriteInfo(GsSPRITE *tSprite, u_long tMemAddress, long tX, long tY)
  {
  u_long tTexturePageX, tTexturePageY;                // four variables to clear up
  u_long tTexturePageXOffset, tTexturePageYOffset;    // assignment of texture pages
  GsIMAGE tTim;                                       // TIM image information
  u_long tCLUT;

  tMemAddress += 4;                                   // advance memory pointer to data
  GsGetTimInfo((u_long *) tMemAddress, &tTim);        // fill tTim with info from TIM

  tSprite->x = tX;                                    // set sprites screen coordinates
  tSprite->y = tY;                                    // based on values passed
  if (tTim.pmode& 0x01)
    {
    tSprite->attribute = (1<<24);                     // set up for 256 colour sprite
    tSprite->w = tTim.pw*2;
    tCLUT = 1;
    }
  else
    {
    tSprite->attribute = 0;                           // set up for 16 colour sprite
    tSprite->w = tTim.pw*4;
    tCLUT = 0;
    };
  tSprite->h = tTim.ph;
    tTexturePageX = (tTim.px/64) *64;                 // calculate texture page
    tTexturePageY = (tTim.py/256) *256;
    tTexturePageXOffset = tTim.px % 64;
    tTexturePageYOffset = tTim.py % 256;
  tSprite->tpage = GetTPage(tCLUT, 0, tTim.px, tTim.py);
                                                      // calculate correct texture page
  tSprite->u = tTexturePageXOffset*4;                 // offset for sprite from left of tpage
  tSprite->v = tTexturePageYOffset;                   // offset for sprite from top of tpage
  tSprite->cx = tTim.cx;                              // set sprite to use correct CLUT
  tSprite->cy = tTim.cy;

  tSprite->r = tSprite->g = tSprite->b = 128;         // make sure the sprite is set to
                                                      // normal colour intensity
//  tSprite->mx = tSprite->w/2;                         // set handle of sprite to the center
//  tSprite->my = tSprite->h/2;                         // (this does not need to be done if
                                                      // you would rather move the objects
                                                      // by their top left corner)
  tSprite->scalex = tSprite->scaley = ONE;            // make sure the sprite isn't scaled
  tSprite->rotate = 0;                                // make sure its pointing up
  };