/**

 * Automated SDL_Surface test.

 *

 * Written by Edgar Simo "bobbens"

 *

 * Released under Public Domain.

 */

#include "SDL.h"

#include "../SDL_at.h"

#include "../common/common.h"

/*

 * Pull in images for testcases.

 */

#include "../common/images.h"

#define SCREEN_W     80

#define SCREEN_H     60

#define FACE_W       img_face.width

#define FACE_H       img_face.height

/*

 * Prototypes.

 */

static int render_compare( const char *msg, const SurfaceImage_t *s, int allowable_error );

static int render_isSupported( int code );

static int render_hasDrawColor (void);

static int render_hasBlendModes (void);

static int render_hasTexColor (void);

static int render_hasTexAlpha (void);

static int render_clearScreen (void);

/* Testcases. */

static int render_testReadWrite (void);

static int render_testPrimitives (void);

static int render_testPrimitivesBlend (void);

static int render_testBlit (void);

static int render_testBlitColour (void);

static int render_testBlitAlpha (void);

static int render_testBlitBlendMode( SDL_Texture * tface, int mode );

static int render_testBlitBlend (void);

/**

 * @brief Compares screen pixels with image pixels.

 *

 *    @param msg Message on failure.

 *    @param s Image to compare against.

 *    @return 0 on success.

 */

static int render_compare( const char *msg, const SurfaceImage_t *s, int allowable_error )

{

   int ret;

   SDL_Rect rect;

   Uint8 pix[4*80*60];

   SDL_Surface *testsur;

   /* Read pixels. */

   /* Explicitly specify the rect in case the window isn't expected size... */

   rect.x = 0;

   rect.y = 0;

   rect.w = 80;

   rect.h = 60;

   ret = SDL_RenderReadPixels( &rect, FORMAT, pix, 80*4 );

   if (SDL_ATassert( "SDL_RenderReadPixels", ret==0) )

      return 1;

   /* Create surface. */

   testsur = SDL_CreateRGBSurfaceFrom( pix, 80, 60, 32, 80*4,

                                       RMASK, GMASK, BMASK, AMASK);

   if (SDL_ATassert( "SDL_CreateRGBSurfaceFrom", testsur!=NULL ))

      return 1;

   /* Compare surface. */

   ret = surface_compare( testsur, s, allowable_error );

   if (SDL_ATassert( msg, ret==0 ))

      return 1;

   /* Clean up. */

   SDL_FreeSurface( testsur );

   return 0;

}

#if 0

static int dump_screen( int index )

{

   int ret;

   char name[1024];

   Uint8 pix[4*80*60];

   SDL_Surface *testsur;

   SDL_RendererInfo info;

   /* Read pixels. */

   ret = SDL_RenderReadPixels( NULL, FORMAT, pix, 80*4 );

   if (SDL_ATassert( "SDL_RenderReadPixels", ret==0) )

      return 1;

   /* Create surface. */

   testsur = SDL_CreateRGBSurfaceFrom( pix, 80, 60, 32, 80*4,

                                       RMASK, GMASK, BMASK, AMASK);

   if (SDL_ATassert( "SDL_CreateRGBSurfaceFrom", testsur!=NULL ))

      return 1;

   /* Dump surface. */

   SDL_GetRendererInfo(&info);

   sprintf(name, "%s-%s-%d.bmp", SDL_GetCurrentVideoDriver(), info.name, index);

   SDL_SaveBMP(testsur, name);

   /* Clean up. */

   SDL_FreeSurface( testsur );

   return 0;

}

#endif

/**

 * @brief Checks to see if functionality is supported.

 */

static int render_isSupported( int code )

{

   return (code == 0);

}

/**

 * @brief Test to see if we can vary the draw colour.

 */

static int render_hasDrawColor (void)

{

   int ret, fail;

   Uint8 r, g, b, a;

   fail = 0;

   /* Set colour. */

   ret = SDL_SetRenderDrawColor( 100, 100, 100, 100 );

   if (!render_isSupported(ret))

      fail = 1;

   ret = SDL_GetRenderDrawColor( &r, &g, &b, &a );

   if (!render_isSupported(ret))

      fail = 1;

   /* Restore natural. */

   ret = SDL_SetRenderDrawColor( 0, 0, 0, SDL_ALPHA_OPAQUE );

   if (!render_isSupported(ret))

      fail = 1;

   /* Something failed, consider not available. */

   if (fail)

      return 0;

   /* Not set properly, consider failed. */

   else if ((r != 100) || (g != 100) || (b != 100) || (a != 100))

      return 0;

   return 1;

}

/**

 * @brief Test to see if we can vary the blend mode.

 */

static int render_hasBlendModes (void)

{

   int fail;

   int ret;

   fail = 0;

   ret = SDL_SetRenderDrawBlendMode( SDL_BLENDMODE_BLEND );

   if (!render_isSupported(ret))

      fail = 1;

   ret = SDL_GetRenderDrawBlendMode( &mode );

   if (!render_isSupported(ret))

      fail = 1;

   ret = (mode != SDL_BLENDMODE_BLEND);

   if (!render_isSupported(ret))

      fail = 1;

   ret = SDL_SetRenderDrawBlendMode( SDL_BLENDMODE_ADD );

   if (!render_isSupported(ret))

      fail = 1;

   ret = SDL_GetRenderDrawBlendMode( &mode );

   if (!render_isSupported(ret))

      fail = 1;

   ret = (mode != SDL_BLENDMODE_ADD);

   if (!render_isSupported(ret))

      fail = 1;

   ret = SDL_SetRenderDrawBlendMode( SDL_BLENDMODE_MOD );

   if (!render_isSupported(ret))

      fail = 1;

   ret = SDL_GetRenderDrawBlendMode( &mode );

   if (!render_isSupported(ret))

      fail = 1;

   ret = (mode != SDL_BLENDMODE_MOD);

   if (!render_isSupported(ret))

      fail = 1;

   ret = SDL_SetRenderDrawBlendMode( SDL_BLENDMODE_MASK );

   if (!render_isSupported(ret))

      fail = 1;

   ret = SDL_GetRenderDrawBlendMode( &mode );

   if (!render_isSupported(ret))

      fail = 1;

   ret = (mode != SDL_BLENDMODE_MASK);

   if (!render_isSupported(ret))

      fail = 1;

   ret = SDL_SetRenderDrawBlendMode( SDL_BLENDMODE_NONE );

   if (!render_isSupported(ret))

      fail = 1;

   ret = SDL_GetRenderDrawBlendMode( &mode );

   if (!render_isSupported(ret))

      fail = 1;

   ret = (mode != SDL_BLENDMODE_NONE);

   if (!render_isSupported(ret))

      fail = 1;

   return !fail;

}

/**

 * @brief Loads the test face.

 */

static SDL_Texture * render_loadTestFace (void)

{

   SDL_Surface *face;

   SDL_Texture *tface;

   /* Create face surface. */

   face = SDL_CreateRGBSurfaceFrom( (void*)img_face.pixel_data,

         img_face.width, img_face.height, 32, img_face.width*4,

#if (SDL_BYTEORDER == SDL_BIG_ENDIAN)

         0xff000000, /* Red bit mask. */

         0x00ff0000, /* Green bit mask. */

         0x0000ff00, /* Blue bit mask. */

         0x000000ff /* Alpha bit mask. */

#else

         0x000000ff, /* Red bit mask. */

         0x0000ff00, /* Green bit mask. */

         0x00ff0000, /* Blue bit mask. */

         0xff000000 /* Alpha bit mask. */

#endif

         );

   if (face == NULL)

      return 0;

   tface = SDL_CreateTextureFromSurface( 0, face );

   SDL_FreeSurface(face);

   return tface;

}

/**

 * @brief Test to see if can set texture colour mode.

 */

static int render_hasTexColor (void)

{

   int fail;

   int ret;

   SDL_Texture *tface;

   Uint8 r, g, b;

   /* Get test face. */

   tface = render_loadTestFace();

   if (tface == 0)

      return 0;

   /* See if supported. */

   fail = 0;

   ret = SDL_SetTextureColorMod( tface, 100, 100, 100 );

   if (!render_isSupported(ret))

      fail = 1;

   ret = SDL_GetTextureColorMod( tface, &r, &g, &b );

   if (!render_isSupported(ret))

      fail = 1;

   /* Clean up. */

   SDL_DestroyTexture( tface );

   if (fail)

      return 0;

   else if ((r != 100) || (g != 100) || (b != 100))

      return 0;

   return 1;

}

/**

 * @brief Test to see if we can vary the alpha of the texture.

 */

static int render_hasTexAlpha (void)

{

   int fail;

   int ret;

   SDL_Texture *tface;

   Uint8 a;

   /* Get test face. */

   tface = render_loadTestFace();

   if (tface == 0)

      return 0;

   /* See if supported. */

   fail = 0;

   ret = SDL_SetTextureAlphaMod( tface, 100 );

   if (!render_isSupported(ret))

      fail = 1;

   ret = SDL_GetTextureAlphaMod( tface, &a );

   if (!render_isSupported(ret))

      fail = 1;

   /* Clean up. */

   SDL_DestroyTexture( tface );

   if (fail)

      return 0;

   else if (a != 100)

      return 0;

   return 1;

}

/**

 * @brief Clears the screen.

 *

 * @note We don't test for errors, but they shouldn't happen.

 */

static int render_clearScreen (void)

{

   int ret;

   /* Set colour. */

   ret = SDL_SetRenderDrawColor( 0, 0, 0, SDL_ALPHA_OPAQUE );

   /*

   if (SDL_ATassert( "SDL_SetRenderDrawColor", ret == 0))

      return -1;

   */

   /* Clear screen. */

   ret = SDL_RenderFillRect( NULL );

   /*

   if (SDL_ATassert( "SDL_RenderFillRect", ret == 0))

      return -1;

   */

   /* Set defaults. */

   ret = SDL_SetRenderDrawBlendMode( SDL_BLENDMODE_NONE );

   /*

   if (SDL_ATassert( "SDL_SetRenderDrawBlendMode", ret == 0))

      return -1;

   */

   ret = SDL_SetRenderDrawColor( 255, 255, 255, SDL_ALPHA_OPAQUE );

   /*

   if (SDL_ATassert( "SDL_SetRenderDrawColor", ret == 0))

      return -1;

   */

   return 0;

}

/**

 * @brief Test reading and writing framebuffer

 */

static int render_testReadWrite (void)

{

   int ret;

   SDL_Rect rect;

   /* Write pixels. */

   rect.x = 0;

   rect.y = 0;

   rect.w = 80;

   rect.h = 60;

   ret = SDL_RenderWritePixels( &rect, SDL_PIXELFORMAT_RGB24, img_primitives.pixel_data, img_primitives.width*img_primitives.bytes_per_pixel );

   if (SDL_ATassert( "SDL_RenderWritePixels", ret==0) )

      return 1;

   /* See if it's the same. */

   if (render_compare( "Read/write output not the same.", &img_primitives, ALLOWABLE_ERROR_OPAQUE ))

      return -1;

   return 0;

}

/**

 * @brief Tests the SDL primitives for rendering.

 */

static int render_testPrimitives (void)

{

   int ret;

   int x, y;

   SDL_Rect rect;

   /* Clear surface. */

   if (render_clearScreen())

      return -1;

   /* Need drawcolour or just skip test. */

   if (!render_hasDrawColor())

      return 0;

   /* Draw a rectangle. */

   rect.x = 40;

   rect.y = 0;

   rect.w = 40;

   rect.h = 80;

   ret = SDL_SetRenderDrawColor( 13, 73, 200, SDL_ALPHA_OPAQUE );

   if (SDL_ATassert( "SDL_SetRenderDrawColor", ret == 0))

      return -1;

   ret = SDL_RenderFillRect( &rect );

   if (SDL_ATassert( "SDL_RenderFillRect", ret == 0))

      return -1;

   /* Draw a rectangle. */

   rect.x = 10;

   rect.y = 10;

   rect.w = 60;

   rect.h = 40;

   ret = SDL_SetRenderDrawColor( 200, 0, 100, SDL_ALPHA_OPAQUE );

   if (SDL_ATassert( "SDL_SetRenderDrawColor", ret == 0))

      return -1;

   ret = SDL_RenderFillRect( &rect );

   if (SDL_ATassert( "SDL_RenderFillRect", ret == 0))

      return -1;

   /* Draw some points like so:

    * X.X.X.X..

    * .X.X.X.X.

    * X.X.X.X.. */

   for (y=0; y<3; y++) {

      x = y % 2;

      for (; x<80; x+=2) {

         ret = SDL_SetRenderDrawColor( x*y, x*y/2, x*y/3, SDL_ALPHA_OPAQUE );

         if (SDL_ATassert( "SDL_SetRenderDrawColor", ret == 0))

            return -1;

         ret = SDL_RenderDrawPoint( x, y );

         if (SDL_ATassert( "SDL_RenderDrawPoint", ret == 0))

            return -1;

      }

   }

   /* Draw some lines. */

   ret = SDL_SetRenderDrawColor( 0, 255, 0, SDL_ALPHA_OPAQUE );

   if (SDL_ATassert( "SDL_SetRenderDrawColor", ret == 0))

      return -1;

   ret = SDL_RenderDrawLine( 0, 30, 80, 30 );

   if (SDL_ATassert( "SDL_RenderDrawLine", ret == 0))

      return -1;

   ret = SDL_SetRenderDrawColor( 55, 55, 5, SDL_ALPHA_OPAQUE );

   if (SDL_ATassert( "SDL_SetRenderDrawColor", ret == 0))

      return -1;

   ret = SDL_RenderDrawLine( 40, 30, 40, 60 );

   if (SDL_ATassert( "SDL_RenderDrawLine", ret == 0))

      return -1;

   ret = SDL_SetRenderDrawColor( 5, 105, 105, SDL_ALPHA_OPAQUE );

   if (SDL_ATassert( "SDL_SetRenderDrawColor", ret == 0))

      return -1;

   ret = SDL_RenderDrawLine( 0, 0, 29, 29 );

   if (SDL_ATassert( "SDL_RenderDrawLine", ret == 0))

      return -1;

   ret = SDL_RenderDrawLine( 29, 30, 0, 59 );

   if (SDL_ATassert( "SDL_RenderDrawLine", ret == 0))

      return -1;

   ret = SDL_RenderDrawLine( 79, 0, 50, 29 );

   if (SDL_ATassert( "SDL_RenderDrawLine", ret == 0))

      return -1;

   ret = SDL_RenderDrawLine( 79, 59, 50, 30 );

   if (SDL_ATassert( "SDL_RenderDrawLine", ret == 0))

      return -1;

   /* See if it's the same. */

   if (render_compare( "Primitives output not the same.", &img_primitives, ALLOWABLE_ERROR_OPAQUE ))

      return -1;

   return 0;

}

/**

 * @brief Tests the SDL primitives with alpha for rendering.

 */

static int render_testPrimitivesBlend (void)

{

   int ret;

   int i, j;

   SDL_Rect rect;

   /* Clear surface. */

   if (render_clearScreen())

      return -1;

   /* Need drawcolour and blendmode or just skip test. */

   if (!render_hasDrawColor() || !render_hasBlendModes())

      return 0;

   /* Create some rectangles for each blend mode. */

   ret = SDL_SetRenderDrawColor( 255, 255, 255, 0 );

   if (SDL_ATassert( "SDL_SetRenderDrawColor", ret == 0))

      return -1;

   ret = SDL_SetRenderDrawBlendMode( SDL_BLENDMODE_NONE );

   if (SDL_ATassert( "SDL_SetRenderDrawBlendMode", ret == 0))

      return -1;

   ret = SDL_RenderFillRect( NULL );

   if (SDL_ATassert( "SDL_RenderFillRect", ret == 0))

      return -1;

   rect.x = 10;

   rect.y = 25;

   rect.w = 40;

   rect.h = 25;

   ret = SDL_SetRenderDrawColor( 240, 10, 10, 75 );