/***********************************************************************

     FONCTION :
     ----------
        File OpenGl_mrkrset :
 

     REMARQUES:
     ---------- 
      

     HISTORIQUE DES MODIFICATIONS   :
     --------------------------------
       xx-xx-xx : xxx ; Creation.
       11-03-96 : FMN ; Correction warning compilation
       01-04-96 : CAL ; Integration MINSK portage WNT
       08-07-96 : BGN ; (PRO4768) suppression du cas particulier TEL_PM_DOT.
       21-10-96 : FMN ; Suppression LMC_COLOR fait dans OpenGl_execstruct.c
       19-10-96 : CAL ; Restauration du cas particulier TEL_PM_DOT mais
			avec la correction sur la mise a jour du pointSize.

************************************************************************/

#define OCC7667         /* asl Export to vector graphic file

/*----------------------------------------------------------------------*/
/*
 * Includes
 */ 


#include <OpenGl_tgl_all.h>

#include <stddef.h>
#include <stdio.h>
#include <string.h>

#include <GL/gl.h>
#include <GL/glu.h>

#include <OpenGl_cmn_varargs.h>
#include <OpenGl_cmn_memory.h>
#include <OpenGl_telem_attri.h>
#include <OpenGl_tsm.h>
#include <OpenGl_telem.h>
#include <OpenGl_telem_highlight.h>
#include <OpenGl_telem_inquire.h>

static  TStatus  MarkerSetDisplay( TSM_ELEM_DATA, Tint, cmn_key* );
static  TStatus  MarkerSetAdd( TSM_ELEM_DATA, Tint, cmn_key* );
static  TStatus  MarkerSetDelete( TSM_ELEM_DATA, Tint, cmn_key* );
static  TStatus  MarkerSetPrint( TSM_ELEM_DATA, Tint, cmn_key* );
static  TStatus  MarkerSetInquire( TSM_ELEM_DATA, Tint, cmn_key* );

/*static  GLboolean         lighting_mode;*/

extern GLuint GetListIndex();

static  TStatus  (*MtdTbl[])( TSM_ELEM_DATA, Tint, cmn_key* ) =
{
    MarkerSetDisplay,             /* PickTraverse */
    MarkerSetDisplay,
    MarkerSetAdd,
    MarkerSetDelete,
    MarkerSetPrint,
    MarkerSetInquire
};


MtblPtr
TelMarkerSetInitClass( TelType* el )
{
    *el = TelMarkerSet;
    return MtdTbl;
}

extern GLuint markerBase;
static  TStatus
MarkerSetAdd( TSM_ELEM_DATA d, Tint n, cmn_key *k )
{
    Tint  i, num;
    tel_point_data  data;
    tel_point       ptr;

    num = k[0]->id;
    data = cmn_getmem( 1, offsetof(TEL_POINT_DATA, data)
			  + num * sizeof(TEL_POINT), 0 );
    if( !data )
	return TFailure;

    for( i=0, ptr=(tel_point)(k[0]->data.pdata); i<num; i++ )
    {
	data->data[i] = ptr[i];
    }
    data->num = num;

    ((tsm_elem_data)(d.pdata))->pdata = data;

    return TSuccess;
}


static  TStatus
MarkerSetDisplay( TSM_ELEM_DATA data, Tint n, cmn_key *k )
{
    tel_point_data  d;
    tel_point       ptr;
    Tint            i;
    CMN_KEY         key1, key2, key3;
    TEL_COLOUR      colour;
    Tchar           *str;

    key1.id         = TelPolymarkerColour;
    key1.data.pdata = &colour;

    key2.id = TelPolymarkerType;
    key3.id = TelPolymarkerSize;
    TsmGetAttri( 3, &key1, &key2, &key3 );

    if( k[0]->id == TOn )
    {                          /* Use highlight colours */
        TEL_HIGHLIGHT  hrep;

        key1.id = TelHighlightIndex;
        TsmGetAttri( 1, &key1 );
        if( TelGetHighlightRep( TglActiveWs, key1.data.ldata, &hrep )
                                                             == TSuccess )
            colour = hrep.col;
        else
        {
            TelGetHighlightRep( TglActiveWs, 0, &hrep );
            colour = hrep.col;
        }
    }

    glColor3fv( colour.rgb );
    d = data.pdata;
    ptr = d->data;

    if( key2.data.ldata == TEL_PM_DOT )
    {
       glPointSize( key3.data.fdata );
       glBegin( GL_POINTS );
          for( i=0; i<d->num; i++, ptr++ )
             glVertex3f( ptr->xyz[0],  ptr->xyz[1],  ptr->xyz[2] );
       glEnd();
    }
    else
    {
#ifdef OCC7667
        GLint mode;
        glGetIntegerv( GL_RENDER_MODE, &mode );
#endif

        if( key2.data.ldata == TEL_PM_USERDEFINED )
        {       
            for( i=0; i<d->num; i++, ptr++ )
            {
                glRasterPos3f( ptr->xyz[0],  ptr->xyz[1],  ptr->xyz[2] );
                glCallList( GetListIndex( (int)key3.data.fdata ) );
#ifdef OCC7667
                if( mode==GL_FEEDBACK )
                {
                    glBegin( GL_POINTS );
                    glVertex3f( ptr->xyz[0], ptr->xyz[1], ptr->xyz[2] );
                    glEnd();
                    glPassThrough( ( GLfloat )( -1E+15 ) );
                    /* it is necessary to indicate end of marker information */
                }
#endif
            }
        }
        else
        {
            str = TelGetStringForPM( key2.data.ldata, key3.data.fdata );
            glListBase(markerBase);
            for( i=0; i<d->num; i++, ptr++ )
            {
                glRasterPos3f( ptr->xyz[0],  ptr->xyz[1],  ptr->xyz[2] );
                glCallLists(strlen( str ), GL_UNSIGNED_BYTE, (GLubyte *) str );

#ifdef OCC7667
                if( mode==GL_FEEDBACK )
                {
                    glBegin( GL_POINTS );
                    glVertex3f( ptr->xyz[0], ptr->xyz[1], ptr->xyz[2] );
                    glEnd();
                    glPassThrough( ( GLfloat )( -1E+15 ) );
                }
#endif
            }
        }
    }

    return TSuccess;
}


static  TStatus
MarkerSetDelete( TSM_ELEM_DATA data, Tint n, cmn_key *k )
{
    cmn_freemem( data.pdata );
    return TSuccess;
}




static  TStatus
MarkerSetPrint( TSM_ELEM_DATA data, Tint n, cmn_key *k )
{
    Tint           i;
    tel_point_data p;

    p = (tel_point_data)data.pdata;

    fprintf( stdout, "TelMarkerSet. Number of points: %d\n", p->num );
    for( i = 0; i < p->num; i++ )
    {
	 fprintf( stdout, "\n\t\t v[%d] = %g %g %g", i, p->data[i].xyz[0],
	                               p->data[i].xyz[1], p->data[i].xyz[2] );
    }
    fprintf( stdout, "\n" );

    return TSuccess;
}


static TStatus
MarkerSetInquire( TSM_ELEM_DATA data, Tint n, cmn_key *k )
{
   Tint           i, j;
   tel_point_data d;
   Tint           size_reqd=0;
   Tint           status = TSuccess;

   d = data.pdata;

   size_reqd  = d->num * sizeof( TEL_POINT );

   for( i = 0; i < n; i++ )
   {
      switch( k[i]->id )
      {
         case INQ_GET_SIZE_ID:
         {
            k[i]->data.ldata = size_reqd;
            break;
         }

         case INQ_GET_CONTENT_ID:
         {
            TEL_INQ_CONTENT *c;
            Teldata         *w;

            c = k[i]->data.pdata;
            c->act_size = size_reqd;
            w = c->data;

            if( c->size >= size_reqd )
            {
                w->pts3 = (tel_point)(c->buf);

		for( j = 0; j < d->num; j++ )
		   w->pts3[j] = d->data[j];

                status = TSuccess;
            }
            else
                status = TFailure;
            break;
         }
      }
   }
   return status;
}