/*
 * Include some standard vectrex functions first!
 */
#include <vectrex.h>
#include "controller.h"
#include "drawRoutines.h"

#include "ball.h"

/*
 * Some defines, Maximal brightness is $7f, highest not set!
 * Max Scale would be $ff, well here we take only $f0!
 */
#define MAX_BRIGHTNESS (0x7f)
#define MAX_SCALE (0xf0)
#define MOVE_SCALE 0x90

#define EDGE 92
#define BOT 100

/*
 * For variable variables ALLWAYS leave them uninitialized, this way
 * the compiler puts them into the BSS ram section in vectrex ram
 * area from c880 onwards.
 *
 * All non BSS memory should be declared constant!
 * (This is still leaves the option of auto variables in a
 * functiion, which will takes it needed men from the stack)
 *
 */
unsigned char *current_song;

//$07,$80,$00,$02
unsigned char bounce_sound_data[4] = {0x07,0x80,0x00,0x02};

inline static void bounce_sound()
{
  //DP_to_C8();
  Vec_Expl_Flag = 255;
  //DP_to_D0();
}


/*
 * If you declare a function 'static inline' it is pretty much sure that
 * the compiler will inline it completely, the function will not
 * appear in any way in the module.
 *
 * If you leave out the static, the compiler assumes it might be used
 * globally, and thus leaves the function in the code, even if
 * it is inlined everywhere!
 */
/*
 * This Funktion handles all startup code, needed for vectrex to work
 * correctly, recallibrating the beam and making sure that some sound
 * is played (if wanted).
 */
static inline void start_one_vectrex_round(void)
{
  DP_to_C8();                        /* vectrex internal... dp must point */
  Explosion_Snd(bounce_sound_data);
  //Init_Music_chk(current_song);    /* to c800, could make a function which */
  Wait_Recal();                       /* sets this up allright... */
  Do_Sound();
}

/*
 * This function sets up a piece of music to be played from the start
 * of the next round on onward...
 */
static inline void play_song(void* song)
{
  Vec_Music_Flag = 1;       /* A makro to write to a specific memory */
  current_song = song;                /* address */
}

/*
 * A simple setup routine, enables/disables the joystick, and makes sure
 * that the button state is read correctly...
 */
void setup(void)
{
  enable_controller_1_x();
  enable_controller_1_y();
  disable_controller_2_x();
  disable_controller_2_y();
  Joy_Digital();
  check_buttons();                       /* last pressed button */
  Wait_Recal();                       /* sets this up allright... */
}

/*
 * Our main function we start of here...
 * we should make sure that we never return from here, or vectrex will
 * be surely bothered!
 */
int main(void)
{
  signed char anim_state;           /* our animation state counter */
  signed char whole;
  const signed char frac = 10;
  signed char ball_x;               /* where is the ball? */
  signed char ball_y;
  signed char ball_y_move;
  signed char n;  
  signed char xs;

  whole = 127;
  ball_x = 0;
  ball_y = 10;
  ball_y_move = 0;
  n = -1;
  xs = -1;
  anim_state = 0;
  setup();                            /* setup our program */

  while (1)                        /* never to return... */
  {
    start_one_vectrex_round();        /* start 'de round */
    Intensity_a(MAX_BRIGHTNESS/2);          /* set some brightness */

    #define YADD 80

    ball_y_move = (ball_y +  YADD);
    //ball_y_move = YADD; //(ball_y +  YADD);
    //ball_x = 0;

int CX, CY;

    // DRAW BALL
    if (1)
    {
      // Circumference
      if (1)
      {
        Reset0Ref();
        VIA_t1_cnt_lo = MOVE_SCALE;

        //Moveto_d((ball_y_move)-10-CY, ball_x-10-CX);
        //Draw_Line_d(20, 20);
        //Moveto_d(-10+CY,-10+CX); // Marx spots the Ex!
// -45 -20
CX = (ball_x>>1)+51;CY = (ball_y_move>>1)+32;

        Moveto_d((ball_y_move), ball_x);
        VIA_t1_cnt_lo = _SCALE;
        cDraw_VLc((void*)ball);
      }

      // Longitude
      if (1)
      {
        Reset0Ref();
        VIA_t1_cnt_lo = MOVE_SCALE;
        Moveto_d((ball_y_move), ball_x);
        VIA_t1_cnt_lo = _SCALE;
        cDraw_VLc((void*)(anim[anim_state]));
      }

      // Latitude
      if (1)
      {
        Intensity_a(MAX_BRIGHTNESS/2);  
        Reset0Ref();
        VIA_t1_cnt_lo = MOVE_SCALE;
        Moveto_d((ball_y_move), ball_x);
        VIA_t1_cnt_lo = 120;   // Set scale to 120
        cMov_Draw_VLc_a((void *)latSeg0);

        Reset0Ref();
        VIA_t1_cnt_lo = MOVE_SCALE;
        Moveto_d((ball_y_move), ball_x);
        VIA_t1_cnt_lo = 120;   // Set scale to 120
        cMov_Draw_VLc_a((void *)latSeg1);

        Reset0Ref();
        VIA_t1_cnt_lo = MOVE_SCALE;
        Moveto_d((ball_y_move), ball_x);
        VIA_t1_cnt_lo = 120;   // Set scale to 120
        cMov_Draw_VLc_a((void *)latSeg2);

        Reset0Ref();
        VIA_t1_cnt_lo = MOVE_SCALE;
        Moveto_d((ball_y_move), ball_x);
        VIA_t1_cnt_lo = 120;   // Set scale to 120
        cMov_Draw_VLc_a((void *)latSeg3);

        Reset0Ref();
        VIA_t1_cnt_lo = MOVE_SCALE;
        Moveto_d((ball_y_move), ball_x);
        VIA_t1_cnt_lo = 120;   // Set scale to 120
        cMov_Draw_VLc_a((void *)latSeg4);

        Reset0Ref();
        VIA_t1_cnt_lo = MOVE_SCALE;
        Moveto_d((ball_y_move), ball_x);
        VIA_t1_cnt_lo = 120;   // Set scale to 120
        cMov_Draw_VLc_a((void *)latSeg5);

        Reset0Ref();
        VIA_t1_cnt_lo = MOVE_SCALE;
        Moveto_d((ball_y_move), ball_x);
        VIA_t1_cnt_lo = 120;   // Set scale to 120
        cMov_Draw_VLc_a((void *)latSeg6);
      }
    }

    // Grid
    if (1)
    {
      Intensity_a(0x34);

      // Initially hardwire ball location.  Omce that works, use end coords of each segment of
      // ball outline to identify gridline where it crosses, and determine intersection points.

#define STEPX -18
#define STEPY -18

      // Because of scale issues, the calculated x,y coordinates are not quite exact, but close enough.
      // First attempt at clipping just assumes a square ball, but the code is written so that the
      // clipping width for any line can be customised by using the offset from the center of tha
      // ball to that line.  "Left as an exercise for the reeader" ;-)

      int XL=CX-32, XR=CX+32; // left and right coordinates where ball outline cuts this Y axis
      int YB=CY-31, YT=CY+31; // top and bottom coordinates where ball outline cuts this X axis

      int X,Y;

      if (XL<0) XL=0;                     if (XR<0) XR=127;
      if (YB<0) YB=0; if (YT>108) YT=108; if (YT<0) YT=108;

      // Horizontal grid lines:
      Reset0Ref();
      VIA_t1_cnt_lo = MOVE_SCALE;
      Moveto_d(90, -108);
      VIA_t1_cnt_lo = 248;  // scale
      Y = 6*-STEPY; Draw_Line_d(0,127);

#define XCLEAR ((YT < Y) || (YB > Y))

      Y += STEPY; Moveto_d(STEPY, 0);
      if (XCLEAR) {
        Draw_Line_d(0,-127);
      } else {
        if (XR-127) Draw_Line_d(0,-127+XR);Moveto_d(0,-XR+XL);if (XL) Draw_Line_d(0,-XL);
      }
      Y += STEPY; Moveto_d(STEPY, 0);
      if (XCLEAR) {
        Draw_Line_d(0,127);
      } else {
        if (XL) Draw_Line_d(0,XL);Moveto_d(0,XR-XL);if (XR-127) Draw_Line_d(0,127-XR);
      }
      Y += STEPY; Moveto_d(STEPY, 0);
      if (XCLEAR) {
        Draw_Line_d(0,-127);
      } else {
        if (XR-127) Draw_Line_d(0,-127+XR);Moveto_d(0,-XR+XL);if (XL) Draw_Line_d(0,-XL);
      }
      Y += STEPY; Moveto_d(STEPY, 0);
      if (XCLEAR) {
        Draw_Line_d(0,127);
      } else {
        if (XL) Draw_Line_d(0,XL);Moveto_d(0,XR-XL);if (XR-127) Draw_Line_d(0,127-XR);
      }
      Y += STEPY; Moveto_d(STEPY, 0);
      if (XCLEAR) {
        Draw_Line_d(0,-127);
      } else {
        if (XR-127) Draw_Line_d(0,-127+XR);Moveto_d(0,-XR+XL);if (XL) Draw_Line_d(0,-XL);
      }
      Y += STEPY; Moveto_d(STEPY, 0);
      if (XCLEAR) {
        Draw_Line_d(0,127);
      } else {
        if (XL) Draw_Line_d(0,XL);Moveto_d(0,XR-XL);if (XR-127) Draw_Line_d(0,127-XR);
      }
      // Vertical grid lines:
      Reset0Ref();
      Moveto_d(-54/*-55*/, 64);
      VIA_t1_cnt_lo = 248;  // scale

#define YCLEAR ((-X) < XL || (-X) > XR)

      X=7*-STEPX;   // 7*18 == 126!   RHS=64  LHS=64-126 = -62
      if (XR<126) { //  rightmost vertical grid line needs special case
        Draw_Line_d(108, 0);
      } else {
        if (YB>0) Draw_Line_d(YB, 0);Moveto_d(YT-YB, 0);if (YT < 108) Draw_Line_d(108-YT, 0);
      }
      X -= STEPX;
      Moveto_d(0, STEPX);
      if (YCLEAR) {
        Draw_Line_d(-108, 0);
      } else {
        if (YT < 108) Draw_Line_d(-108+YT, 0);Moveto_d(-YT+YB, 0);if (YB>0) Draw_Line_d(-YB, 0);
      }
      X -= STEPX;
      Moveto_d(0, STEPX);
      if (YCLEAR) {
        Draw_Line_d(108, 0);
      } else {
        if (YB>0)Draw_Line_d(YB, 0);Moveto_d(YT-YB, 0);if (YT < 108) Draw_Line_d(108-YT, 0);
      }
      X -= STEPX;
      Moveto_d(0, STEPX);
      if (YCLEAR) {
        Draw_Line_d(-108, 0);
      } else {
        if (YT < 108) Draw_Line_d(-108+YT, 0);Moveto_d(-YT+YB, 0);if (YB>0) Draw_Line_d(-YB, 0);
      }
      X -= STEPX;
      Moveto_d(0, STEPX);
      if (YCLEAR) {
        Draw_Line_d(108, 0);
      } else {
        if (YB>0) Draw_Line_d(YB, 0);Moveto_d(YT-YB, 0);if (YT < 108) Draw_Line_d(108-YT, 0);
      }
      X -= STEPX;
      Moveto_d(0, STEPX);
      if (YCLEAR) {
        Draw_Line_d(-108, 0);
      } else {
        if (YT < 108) Draw_Line_d(-108+YT, 0);Moveto_d(-YT+YB, 0);if (YB>0) Draw_Line_d(-YB, 0);
      }
      X -= STEPX;
      Moveto_d(0, STEPX);
      if (YCLEAR) {
        Draw_Line_d(108, 0);
      } else {
        if (YB>0) Draw_Line_d(YB, 0);Moveto_d(YT-YB, 0);if (YT < 108) Draw_Line_d(108-YT, 0);
      }
      X -= STEPX; // should now be 0.
      Moveto_d(0, STEPX);
      if (YCLEAR) {
        Draw_Line_d(-108, 0);
      } else {
        if (YT < 108) Draw_Line_d(-108+YT, 0);Moveto_d(-YT+YB, 0);if (YB>0) Draw_Line_d(-YB, 0);
      }
    }

    if (!(button_1_1_pressed()))
    {
      ball_x = ball_x + xs;
      ball_y = ball_y + n;
    }

    if (ball_x>=EDGE+10)
    { 
      ball_x = ball_x - xs;
      xs = -xs;
      bounce_sound();
    }

    if (ball_x<=-EDGE+30) 
    {
      ball_x = ball_x - xs;
      xs = -xs;
      bounce_sound();
    } 

    if (ball_y>=BOT) ball_y = BOT;

    if (ball_y<=-BOT) 
    {
      ball_y = -BOT;
      whole = 80;
      n = 4;
      bounce_sound();
    }

    whole = whole - frac;
    if ( whole < 0 )
    {
        whole = whole + 127;
        n = n - 1;
    }

    if (xs > 0)
    {
      anim_state++;
    }
    else
    {
       anim_state--;
    }

    if (anim_state >= MAX_ANIM)
        anim_state = 0;

    if (anim_state < 0)
        anim_state = MAX_ANIM-1;

    check_buttons();
  } /* while (1) */                    /* joystick information is up to date */
}

/* END OF FILE */