src/OpenGl/OpenGl_text.cxx

   1 /***********************************************************************
   2
   3 FONCTION :
   4 ----------
   5 File OpenGl_text :
   6
   7
   8 REMARQUES:
   9 ----------
  10
  11
  12 HISTORIQUE DES MODIFICATIONS   :
  13 --------------------------------
  14 xx-xx-xx : xxx ; Creation.
  15 05-03-96 : FMN ; Suppression code inutile:
  16 01-04-96 : CAL ; Integration MINSK portage WNT
  17 29-04-96 : FMN ; correction warning de compilation.
  18 21-10-96 : FMN ; Suppression LMC_COLOR fait dans OpenGl_execstruct.c
  19 30-11-98 : FMN ; S4069 : Textes toujours visibles
  20 02.14.100 : JR : Warnings on WNT truncations from double to float
  21 21.06.03 : SAN : Suppress text display while in animation mode (TEXT_DEGENER)
  22 22.01.04 : SAN : Implement texture mapped fonts on WNT only (OCC2934)
  23
  24 ************************************************************************/
  25
  26 /*----------------------------------------------------------------------*/
  27 /*
  28 * Includes
  29 */
  30
  31 #ifndef WNT
  32 #include <X11/Xlib.h>
  33 #endif
  34 #include <OpenGl_tgl_all.hxx>
  35
  36 #include <stddef.h>
  37 #include <string.h>
  38 #include <stdio.h>
  39 #include <GL/gl.h>
  40 #include <GL/glu.h>
  41
  42 #include <OpenGl_cmn_varargs.hxx>
  43 #include <OpenGl_telem_attri.hxx>
  44 #include <OpenGl_tsm.hxx>
  45 #include <OpenGl_telem.hxx>
  46 #include <OpenGl_telem_highlight.hxx>
  47 #include <OpenGl_telem_inquire.hxx>
  48 #include <OpenGl_tgl_funcs.hxx>
  49 #include <OpenGl_Extension.hxx>
  50 #include <OpenGl_Memory.hxx>
  51
  52
  53 #include <OpenGl_TextRender.hxx>
  54
  55 /*----------------------------------------------------------------------*/
  56 /*
  57 * Fonctions statiques
  58 */
  59
  60 static  TStatus  TextDisplay( TSM_ELEM_DATA, Tint, cmn_key* );
  61 static  TStatus  TextAdd( TSM_ELEM_DATA, Tint, cmn_key* );
  62 static  TStatus  TextDelete( TSM_ELEM_DATA, Tint, cmn_key* );
  63 static  TStatus  TextPrint( TSM_ELEM_DATA, Tint, cmn_key* );
  64 static  TStatus  TextInquire( TSM_ELEM_DATA, Tint, cmn_key* );
  65
  66 #if defined(__sun) || defined (__osf__) || defined (__hp) || defined (__sgi)
  67 #else
  68 PFNGLBLENDEQUATIONEXTPROC glBlendEquationOp = (PFNGLBLENDEQUATIONEXTPROC) INVALID_EXT_FUNCTION_PTR;
  69 #endif
  70 /*----------------------------------------------------------------------*/
  71 /*
  72 * Constantes
  73 */
  74
  75 #if defined(__osf__) || defined (__sun) || defined (__sgi) || defined(__hp9000s700) || defined(WNT)
  76 #undef GL_EXT_blend_logic_op
  77 #endif
  78
  79 /*----------------------------------------------------------------------*/
  80 /*
  81 * Variables statiques
  82 */
  83
  84 /*static GLboolean lighting_mode;*/
  85
  86 static  TStatus  (*MtdTbl[])( TSM_ELEM_DATA, Tint, cmn_key* ) =
  87 {
  88   TextDisplay,
  89   TextDisplay,
  90   TextAdd,
  91   TextDelete,
  92   TextPrint,
  93   TextInquire
  94 };
  95
  96 extern GLuint fontBase;
  97 extern GLuint printerFontBase;
  98
  99 #define TEXT_DEGENER
 100
 101 #ifdef TEXT_DEGENER
 102 extern int    g_nDegenerateModel;
 103 extern float  g_fSkipRatio;
 104 #endif
 105
 106 void putText( Tchar* data, Tfloat x, Tfloat y, Tfloat z )
 107 {
 108   OpenGl_TextRender* textRender=OpenGl_TextRender::instance();
 109   textRender->RenderText ( (char*)data, fontBase, 0, x, y, z );
 110 }
 111
 112 /*----------------------------------------------------------------------*/
 113
 114 MtblPtr
 115 TelTextInitClass( TelType* el )
 116 {
 117   *el = TelText;
 118   return MtdTbl;
 119 }
 120
 121 /*----------------------------------------------------------------------*/
 122
 123 static  TStatus
 124 TextAdd( TSM_ELEM_DATA d, Tint n, cmn_key *k )
 125 {
 126   Tint           i;
 127   TEL_POINT      def_pt = {{ ( float )0.0, ( float )0.0, ( float )0.0 }};
 128   tel_point      pt = &def_pt;
 129   tel_text_data  data;
 130   Tchar          *str= 0;
 131
 132   for( i = 0; i < n; i++ )
 133   {
 134     switch( k[i]->id )
 135     {
 136     case TEXT_ATTACH_PT_ID:
 137       pt = (tel_point)k[i]->data.pdata;
 138       break;
 139     case TEXT_STRING_ID:
 140       str = (Tchar*)k[i]->data.pdata;
 141       break;
 142     }
 143   }
 144
 145   i = strlen((char*)str) + 1;
 146
 147   data = new TEL_TEXT_DATA();
 148   if( !data )
 149     return TFailure;
 150   data->data = new Tchar[i];
 151   if( !data->data )
 152     return TFailure;
 153
 154   data->attach_pt = *pt;
 155   data->length    = i;
 156   memcpy( data->data, str, i );
 157
 158   ((tsm_elem_data)(d.pdata))->pdata = data;
 159
 160   return TSuccess;
 161 }
 162
 163 /*----------------------------------------------------------------------*/
 164
 165 static  TStatus
 166 TextDisplay( TSM_ELEM_DATA data, Tint n, cmn_key *k )
 167 {
 168   tel_text_data   d;
 169   CMN_KEY         key, key1;
 170   TEL_COLOUR      colour,  colours;
 171   int             style,  display_type;
 172   GLboolean       flag_zbuffer = GL_FALSE;
 173   GLboolean       blend_state = GL_FALSE;
 174   GLint           sWidth, sAscent, sDescent;
 175   GLdouble        modelMatrix[16], projMatrix[16];
 176   GLint           viewport[4];
 177   GLdouble        objrefX, objrefY, objrefZ;
 178   GLdouble        objX, objY, objZ;
 179   GLdouble        obj1X, obj1Y, obj1Z;
 180   GLdouble        obj2X, obj2Y, obj2Z;
 181   GLdouble        obj3X, obj3Y, obj3Z;
 182   GLdouble        winx1, winy1, winz1;
 183   GLdouble        winx, winy, winz;
 184   GLint           status;
 185
 186 #ifdef TEXT_DEGENER
 187   if ( g_nDegenerateModel > 0 && g_fSkipRatio == 1. )
 188     return TSuccess;
 189 #endif
 190
 191   d = (tel_text_data)data.pdata;
 192
 193   if( k[0]->id == TOn )
 194   {                           /* Use highlight colours */
 195     TEL_HIGHLIGHT  hrep;
 196
 197     key.id = TelHighlightIndex;
 198     TsmGetAttri( 1, &key );
 199     if( TelGetHighlightRep( TglActiveWs, key.data.ldata, &hrep )
 200       == TSuccess )
 201       colour = hrep.col;
 202     else
 203     {
 204       TelGetHighlightRep( TglActiveWs, 0, &hrep );
 205       colour = hrep.col;
 206     }
 207   }
 208   else
 209   {
 210     key.id = TelTextColour;
 211     key.data.pdata = &colour;
 212     TsmGetAttri( 1, &key );
 213   }
 214
 215   key.id = TelTextStyle;
 216   key1.id = TelTextDisplayType;
 217   TsmGetAttri( 2, &key, &key1 );
 218   style = key.data.ldata;
 219   display_type = key1.data.ldata;
 220
 221   /* style annotation */
 222   if (style == ASPECT_TOST_ANNOTATION)
 223   {
 224     flag_zbuffer = glIsEnabled(GL_DEPTH_TEST);
 225     if (flag_zbuffer) glDisable(GL_DEPTH_TEST);
 226   }
 227
 228   /* display type of text */
 229   if (display_type != ASPECT_TODT_NORMAL)
 230   {
 231     key.id = TelTextColourSubTitle;
 232     key.data.pdata = &colours;
 233     TsmGetAttri( 1, &key );
 234
 235     /* Optimisation: il faudrait ne faire le Get qu'une fois par Redraw */
 236     glGetIntegerv (GL_VIEWPORT, viewport);
 237     glGetDoublev (GL_MODELVIEW_MATRIX, modelMatrix);
 238     glGetDoublev (GL_PROJECTION_MATRIX, projMatrix);
 239
 240     OpenGl_TextRender* textRender=OpenGl_TextRender::instance();
 241     switch (display_type)
 242     {
 243     case ASPECT_TODT_BLEND:
 244
 245 #if defined(GL_EXT_blend_logic_op)
 246       if ( (PFNGLBLENDEQUATIONEXTPROC)glBlendEquationOp == (PFNGLBLENDEQUATIONEXTPROC)INVALID_EXT_FUNCTION_PTR )
 247       {
 248         if(QueryExtension("GL_EXT_blend_logic_op")) {
 249 #ifdef WNT
 250           glBlendEquationOp = (PFNGLBLENDEQUATIONEXTPROC)wglGetProcAddress("glBlendEquationOp");
 251 #else
 252           glBlendEquationOp = (PFNGLBLENDEQUATIONEXTPROC)glXGetProcAddress((GLubyte*)"glBlendEquationOp");
 253 #endif
 254         } else
 255           glBlendEquationOp = NULL;
 256       }
 257
 258       if ( glBlendEquationOp )
 259       {
 260         blend_state = glIsEnabled(GL_BLEND);
 261         if (!blend_state) glEnable(GL_BLEND);
 262         glBlendEquationOp(GL_LOGIC_OP);
 263         glLogicOp(GL_XOR);
 264       }
 265 #else
 266
 267       blend_state = glIsEnabled(GL_BLEND);
 268       if (!blend_state) glEnable(GL_BLEND);
 269       glEnable(GL_COLOR_LOGIC_OP);
 270       glLogicOp(GL_XOR);
 271
 272 #endif
 273       break;
 274     case ASPECT_TODT_SUBTITLE:
 275       textRender->StringSize((char *)d->data, &sWidth, &sAscent, &sDescent);
 276       objrefX = (float)d->attach_pt.xyz[0];
 277       objrefY = (float)d->attach_pt.xyz[1];
 278       objrefZ = (float)d->attach_pt.xyz[2];
 279       status = gluProject (objrefX, objrefY, objrefZ, modelMatrix, projMatrix, viewport,
 280         &winx1, &winy1, &winz1);
 281
 282       winx = winx1;
 283       winy = winy1-sDescent;
 284       winz = winz1+0.00001;
 285       status = gluUnProject (winx, winy, winz, modelMatrix, projMatrix, viewport,
 286         &objX, &objY, &objZ);
 287
 288       winx = winx1 + sWidth;
 289       winy = winy1-sDescent;
 290       winz = winz1+0.00001; /* il vaut mieux F+B / 1000000 ? */
 291       status = gluUnProject (winx, winy, winz, modelMatrix, projMatrix, viewport,
 292         &obj1X, &obj1Y, &obj1Z);
 293
 294       winx = winx1 + sWidth;
 295       winy = winy1 + sAscent;
 296       winz = winz1+0.00001;
 297       status = gluUnProject (winx, winy, winz, modelMatrix, projMatrix, viewport,
 298         &obj2X, &obj2Y, &obj2Z);
 299
 300       winx = winx1;
 301       winy = winy1+ sAscent;
 302       winz = winz1+0.00001;
 303       status = gluUnProject (winx, winy, winz, modelMatrix, projMatrix, viewport,
 304         &obj3X, &obj3Y, &obj3Z);
 305
 306       glColor3fv( colours.rgb );
 307       glBegin(GL_POLYGON);
 308       glVertex3d(objX, objY, objZ);
 309       glVertex3d(obj1X, obj1Y, obj1Z);
 310       glVertex3d(obj2X, obj2Y, obj2Z);
 311       glVertex3d(obj3X, obj3Y, obj3Z);
 312       glEnd();
 313       break;
 314
 315     case ASPECT_TODT_DEKALE:
 316       objrefX = (float)d->attach_pt.xyz[0];
 317       objrefY = (float)d->attach_pt.xyz[1];
 318       objrefZ = (float)d->attach_pt.xyz[2];
 319       status = gluProject (objrefX, objrefY, objrefZ, modelMatrix, projMatrix, viewport,
 320         &winx1, &winy1, &winz1);
 321
 322       winx = winx1+1;
 323       winy = winy1+1;
 324       winz = winz1+0.00001;
 325       status = gluUnProject (winx, winy, winz, modelMatrix, projMatrix, viewport,
 326         &objX, &objY, &objZ);
 327
 328       glColor3fv( colours.rgb );
 329       putText( d->data, (float)objX, (float)objY,(float)objZ );
 330       winx = winx1-1;
 331       winy = winy1-1;
 332       status = gluUnProject (winx, winy, winz, modelMatrix, projMatrix, viewport,
 333         &objX, &objY, &objZ);
 334
 335       putText( d->data, (float)objX, (float)objY,(float)objZ );
 336       winx = winx1-1;
 337       winy = winy1+1;
 338       status = gluUnProject (winx, winy, winz, modelMatrix, projMatrix, viewport,
 339         &objX, &objY, &objZ);
 340
 341       putText( d->data, (float)objX, (float)objY,(float)objZ );
 342       winx = winx1+1;
 343       winy = winy1-1;
 344       status = gluUnProject (winx, winy, winz, modelMatrix, projMatrix, viewport,
 345         &objX, &objY, &objZ);
 346       putText( d->data, (float)objX, (float)objY,(float)objZ );
 347       break;
 348     }
 349   }
 350
 351   glColor3fv( colour.rgb );
 352   putText( d->data, (float)d->attach_pt.xyz[0], (float)d->attach_pt.xyz[1],(float)d->attach_pt.xyz[2] );
 353   /* maj attributs */
 354   if (flag_zbuffer) glEnable(GL_DEPTH_TEST);
 355   if (display_type == ASPECT_TODT_BLEND)
 356   {
 357 #if defined(GL_EXT_blend_logic_op)
 358     if ((!blend_state) && (QueryExtension("GL_EXT_blend_logic_op"))) glDisable(GL_BLEND);
 359 #else
 360     if (!blend_state) glDisable(GL_BLEND);
 361     glDisable(GL_COLOR_LOGIC_OP);
 362 #endif
 363   }
 364
 365   return TSuccess;
 366 }
 367
 368 /*----------------------------------------------------------------------*/
 369
 370 static  TStatus
 371 TextDelete( TSM_ELEM_DATA data, Tint n, cmn_key *k )
 372 {
 373   if (data.pdata)
 374     delete data.pdata;
 375   return TSuccess;
 376 }
 377
 378 /*----------------------------------------------------------------------*/
 379
 380 static  TStatus
 381 TextPrint( TSM_ELEM_DATA data, Tint n, cmn_key *k )
 382 {
 383   tel_text_data p;
 384
 385   p = (tel_text_data)data.pdata;
 386
 387   fprintf( stdout, "TelText.\n" );
 388   fprintf( stdout, "\t\tString : %s\n", p->data );
 389   fprintf( stdout, "\t\tAttach Point : %f %f %f\n", p->attach_pt.xyz[0],
 390     p->attach_pt.xyz[1],
 391     p->attach_pt.xyz[2] );
 392   fprintf( stdout, "\n" );
 393
 394   return TSuccess;
 395 }
 396
 397 /*----------------------------------------------------------------------*/
 398
 399 static TStatus
 400 TextInquire( TSM_ELEM_DATA data, Tint n, cmn_key *k )
 401 {
 402   Tint          i;
 403   tel_text_data d;
 404   Tint          size_reqd=0;
 405   TStatus       status = TSuccess;
 406
 407   d = (tel_text_data)data.pdata;
 408
 409   size_reqd = d->length;
 410
 411   for( i = 0; i < n; i++ )
 412   {
 413     switch( k[i]->id )
 414     {
 415     case INQ_GET_SIZE_ID:
 416       {
 417         k[i]->data.ldata = size_reqd;
 418         break;
 419       }
 420
 421     case INQ_GET_CONTENT_ID:
 422       {
 423         TEL_INQ_CONTENT *c;
 424         Teldata         *w;
 425
 426         c = (tel_inq_content)k[i]->data.pdata;
 427         c->act_size = size_reqd;
 428         w = c->data;
 429
 430         if( c->size >= size_reqd )
 431         {
 432           w->atext3.string = c->buf;
 433           w->atext3.ref_pt = d->attach_pt;
 434           w->atext3.anno.xyz[0] = ( float )0.0;
 435           w->atext3.anno.xyz[1] = ( float )0.0;
 436           w->atext3.anno.xyz[2] = ( float )0.0;
 437           strcpy( (char*)w->atext3.string, (char*)d->data );
 438           status = TSuccess;
 439         }
 440         else
 441           status = TFailure;
 442         break;
 443       }
 444     }
 445   }
 446   return status;
 447 }
 448
 449 /*----------------------------------------------------------------------*/