/*FILE HEADER**************************************************************
 *
 *  File name		: $Id$
 *  RCS Revision Number	: $Revision: 1.1 $
 *  Last Modified	: $Date: 94/10/28 09:23:33 $
 *  CSCI name		: Real-Time Graphics System - Applications Interface
 *  CSC name		: All functions
 *  Notes:
 *      This file contains code used to debug and test the SVME-770 RTGS.
 *      This code is provided as an example of how to call the RTGS functions
 *      from a host application.
 *  History		:
 *      Created 94/01/17 by Jeff Sanderson
 *
 *END FILE HEADER*********************************************************/

#include "dy4std.h"
#include "es.h"
#include "css.h"

#include "rtgs_ai.h"
#include "video.h"
#include "colours.h"

#include "test.h"


void test_polymark( void );
/*-----------------------------------------------------------------------*/

void test_polymark( void )
{
    point_t *ptr;
    int i, x, y;

    init( "Polymarker test" );
    Clear_screen( BLACK, 0, 0 );

    ptr = ( point_t * )Gcc_malloc((( 32 * 32 ) * sizeof( point_t )), 0 );
    malloc_check( ptr );

    i = 0;
    for( x = 0 ; x < RES_X ; x += (RES_X / 32) )
    {
	for( y = 0 ; y < RES_Y ; y += (RES_Y / 32) )
	{
	    ptr[i].x = x;
	    ptr[i].y = y;
            i++;
        }
    }

    Printf("Calling draw polymarker 0, size 10\n");
    Set_marker_type( 0 );
    Set_marker_size( 10 );
    Draw_polymarker( ( 32 * 32 ), ptr );
    Key_wait();

    Clear_screen( BLACK, 0, 0 );
    Printf("Calling draw polymarker 0, size 100\n");
    Set_marker_size( 100 );
    Draw_polymarker( ( 32 * 32 ), ptr );
    Key_wait();
    Clear_screen( BLACK, 0, 0 );

    Printf("Calling draw polymarker 1, size 10\n");
    Set_marker_type( 1 );
    Set_marker_size( 10 );
    Draw_polymarker( ( 32 * 32 ), ptr );
    Key_wait();

    Clear_screen( BLACK, 0, 0 );
    Printf("Calling draw polymarker 1, size 100\n");
    Set_marker_size( 100 );
    Draw_polymarker( ( 32 * 32 ), ptr );
    Key_wait();
    Clear_screen( BLACK, 0, 0 );

    Printf("Calling draw polymarker 2, size 10\n");
    Set_marker_type( 2 );
    Set_marker_size( 10 );
    Draw_polymarker( ( 32 * 32 ), ptr );
    Key_wait();

    Clear_screen( BLACK, 0, 0 );
    Printf("Calling draw polymarker 2, size 100\n");
    Set_marker_size( 100 );
    Draw_polymarker( ( 32 * 32 ), ptr );
    Key_wait();
    Clear_screen( BLACK, 0, 0 );

    Printf("Calling draw polymarker 3, size 10\n");
    Set_marker_type( 3 );
    Set_marker_size( 10 );
    Draw_polymarker( ( 32 * 32 ), ptr );
    Key_wait();

    Clear_screen( BLACK, 0, 0 );
    Printf("Calling draw polymarker 3, size 100\n");
    Set_marker_size( 100 );
    Draw_polymarker( ( 32 * 32 ), ptr );
    Key_wait();
    Clear_screen( BLACK, 0, 0 );

    Printf("Calling draw polymarker 4, size 10\n");
    Set_marker_type( 4 );
    Set_marker_size( 10 );
    Draw_polymarker( ( 32 * 32 ), ptr );
    Key_wait();

    Clear_screen( BLACK, 0, 0 );
    Printf("Calling draw polymarker 4, size 100\n");
    Set_marker_size( 100 );
    Draw_polymarker( ( 32 * 32 ), ptr );
    Key_wait();
}

/*-----------------------------------------------------------------------*/