src/OpenGl/OpenGl_togl_contextstructure.cxx

   1 /***********************************************************************
   2
   3 FONCTION :
   4 ----------
   5 File OpenGl_contextstructure.c :
   6
   7
   8 REMARQUES:
   9 ----------
  10
  11
  12 HISTORIQUE DES MODIFICATIONS   :
  13 --------------------------------
  14 05-08-97 : PCT ; Support texture mapping
  15 23-12-97 : FMN ; Suppression TelBackInteriorStyle, TelBackInteriorStyleIndex
  16 30-12-97 : FMN ; CTS18312: Correction back material
  17 15-01-98 : FMN ; Ajout Hidden line
  18 03-03-98 : CAL ; Modification des structures CALL_DEF_GROUP et STRUCTURE
  19 08-04-98 : FGU ; Ajout Emission
  20 30-11-98 : FMN ; S4069 : Textes toujours visibles
  21 02.14.100 : JR : Warnings on WNT #include ,stdio.h>
  22 22-03-04 : SAN ; OCC4895 High-level interface for controlling polygon offsets
  23
  24 ************************************************************************/
  25
  26 #define OCC1174 /* SAV 08/01/03 : Added back face interior color management*/
  27
  28
  29 /*----------------------------------------------------------------------*/
  30 /*
  31 * Includes
  32 */
  33
  34 #include <stdio.h>
  35
  36 #include <OpenGl_tgl_all.hxx>
  37
  38 #include <InterfaceGraphic_Labels.hxx>
  39 #include <InterfaceGraphic_Graphic3d.hxx>
  40
  41 #include <OpenGl_tgl.hxx>
  42 #include <OpenGl_tgl_funcs.hxx>
  43 #include <OpenGl_tgl_subrs.hxx>
  44
  45 #include <OSD_FontAspect.hxx>
  46
  47
  48 void EXPORT
  49 call_togl_contextstructure
  50 (
  51  CALL_DEF_STRUCTURE * astructure
  52  )
  53 {
  54   Tfloat liner, lineg, lineb;
  55   Tfloat fillr, fillg, fillb;
  56 #ifdef OCC1174
  57   Tfloat fillBackr, fillBackg, fillBackb;
  58 #endif
  59   Tint   linetype=0;
  60   Tint   intstyle=0;
  61   Tfloat linewidth;
  62   Tint   hatch=0;
  63   /* OCC4895 SAN 22/03/04 High-level interface for controlling polygon offsets */
  64   Tint   polyOffsetMode;
  65   Tfloat polyOffsetFactor, polyOffsetUnits;
  66   /* OCC4895 SAN 22/03/04 High-level interface for controlling polygon offsets */
  67
  68   Tfloat markr, markg, markb;
  69   Tint   markertype=0;
  70   Tfloat markerscale;
  71
  72   Tchar  *fontid=NULL;
  73   Tfloat textr, textg, textb;
  74   Tfloat textrs, textgs, textbs;
  75   Tfloat textspace;
  76   Tfloat textexpan;
  77   int    textstyle, textdisplaytype;
  78   Tint   textzoomable;
  79   Tfloat textangle;
  80   OSD_FontAspect textfontaspect;
  81   /* Flag de mise a jour des composants materiel */
  82   Tint lightbool = 0x0;
  83   CALL_DEF_TRANSFORM_PERSISTENCE transPers =  astructure->TransformPersistence;
  84
  85   /* Destruction */
  86   if( astructure->ContextLine.IsDef == -1 )
  87   {
  88   }
  89   if( astructure->ContextFillArea.IsDef == -1 )
  90   {
  91   }
  92   if( astructure->ContextMarker.IsDef == -1 )
  93   {
  94   }
  95   if( astructure->ContextText.IsDef == -1 )
  96   {
  97   }
  98   call_func_open_struct( astructure->Id );
  99   call_func_set_elem_ptr( 0 );
 100   call_func_set_elem_ptr_label( Structure_LABTransPersistence );
 101   if( astructure->TransformPersistence.IsSet == 1 )
 102   {
 103     call_func_set_edit_mode( CALL_PHIGS_EDIT_REPLACE );
 104     call_func_offset_elem_ptr( 1 );
 105   }
 106   else
 107     call_func_set_edit_mode( CALL_PHIGS_EDIT_INSERT );
 108   /*call_func_set_transform_persistence( transPersFlag );*/
 109   call_func_set_transform_persistence( transPers.Flag, transPers.Point.x, transPers.Point.y, transPers.Point.z );
 110   call_func_close_struct();
 111   /* }*/
 112   /* ABD 29/10/04  Transform Persistence of Presentation( pan, zoom, rotate ) */
 113   if( astructure->ContextLine.IsDef == 1 )
 114   {
 115     liner = astructure->ContextLine.Color.r;
 116     lineg = astructure->ContextLine.Color.g;
 117     lineb = astructure->ContextLine.Color.b;
 118
 119     switch( astructure->ContextLine.LineType )
 120     {
 121     case 0 : /* Aspect_TOL_SOLID */
 122       linetype = CALL_PHIGS_LINE_SOLID;
 123       break;
 124     case 1 : /* Aspect_TOL_DASH */
 125       linetype = CALL_PHIGS_LINE_DASH;
 126       break;
 127     case 2 : /* Aspect_TOL_DOT */
 128       linetype = CALL_PHIGS_LINE_DOT;
 129       break;
 130     case 3 : /* Aspect_TOL_DOTDASH */
 131       linetype = CALL_PHIGS_LINE_DASH_DOT;
 132       break;
 133     default :
 134       break;
 135     }
 136
 137     linewidth = (Tfloat)astructure->ContextLine.Width;
 138
 139     if( astructure->ContextLine.IsSet )
 140       call_func_set_edit_mode( CALL_PHIGS_EDIT_REPLACE );
 141     else
 142       call_func_set_edit_mode( CALL_PHIGS_EDIT_INSERT );
 143     call_func_open_struct( astructure->Id );
 144     call_func_set_elem_ptr( 0 );
 145     call_func_set_elem_ptr_label( Structure_LABContextLine );
 146
 147     if( astructure->ContextLine.IsSet )
 148       call_func_offset_elem_ptr( 1 );
 149     call_subr_set_line_colr( liner, lineg, lineb );
 150     if( astructure->ContextLine.IsSet )
 151       call_func_offset_elem_ptr( 1 );
 152     call_func_set_linetype( linetype );
 153     if( astructure->ContextLine.IsSet )
 154       call_func_offset_elem_ptr( 1 );
 155     call_func_set_linewidth( linewidth );
 156     call_func_close_struct();
 157   }
 158
 159   if( astructure->ContextFillArea.IsDef == 1 )
 160   {
 161     switch( astructure->ContextFillArea.Style )
 162     {
 163     case 0 : /* Aspect_IS_EMPTY */
 164       intstyle = CALL_PHIGS_STYLE_EMPTY;
 165       break;
 166     case 1 : /* Aspect_IS_HOLLOW */
 167       intstyle = CALL_PHIGS_STYLE_HOLLOW;
 168       break;
 169     case 2 : /* Aspect_IS_HATCH */
 170       intstyle = CALL_PHIGS_STYLE_HATCH;
 171       break;
 172     case 3 : /* Aspect_IS_SOLID */
 173       intstyle = CALL_PHIGS_STYLE_SOLID;
 174       break;
 175     case 4 : /* Aspect_IS_HIDDENLINE */
 176       intstyle = CALL_PHIGS_STYLE_HIDDENLINE;
 177       break;
 178     default :
 179       break;
 180     }
 181
 182     switch( astructure->ContextFillArea.Hatch )
 183     {
 184     case 0 : /* Aspect_HS_HORIZONTAL */
 185       hatch = CALL_PHIGS_HATCH_HORIZ;
 186       break;
 187     case 1 : /* Aspect_HS_HORIZONTAL_WIDE */
 188       hatch = CALL_PHIGS_HATCH_HORIZ_DBL;
 189       break;
 190     case 2 : /* Aspect_HS_VERTICAL */
 191       hatch = CALL_PHIGS_HATCH_VERT;
 192       break;
 193     case 3 : /* Aspect_HS_VERTICAL_WIDE */
 194       hatch = CALL_PHIGS_HATCH_VERT_DBL;
 195       break;
 196     case 4 : /* Aspect_HS_DIAGONAL_45 */
 197       hatch = CALL_PHIGS_HATCH_DIAG_45;
 198       break;
 199     case 5 : /* Aspect_HS_DIAGONAL_45_WIDE */
 200       hatch = CALL_PHIGS_HATCH_DIAG_45_DBL;
 201       break;
 202     case 6 : /* Aspect_HS_DIAGONAL_135 */
 203       hatch = CALL_PHIGS_HATCH_DIAG_135;
 204       break;
 205     case 7 : /* Aspect_HS_DIAGONAL_135_WIDE */
 206       hatch = CALL_PHIGS_HATCH_DIAG_135_DBL;
 207       break;
 208     case 8 : /* Aspect_HS_GRID */
 209       hatch = CALL_PHIGS_HATCH_GRID_R;
 210       break;
 211     case 9 : /* Aspect_HS_GRID_WIDE */
 212       hatch = CALL_PHIGS_HATCH_GRID_R_DBL;
 213       break;
 214     case 10 : /* Aspect_HS_GRID_DIAGONAL */
 215       hatch = CALL_PHIGS_HATCH_GRID_D;
 216       break;
 217     case 11 : /* Aspect_HS_GRID_DIAGONAL_WIDE */
 218       hatch = CALL_PHIGS_HATCH_GRID_D_DBL;
 219       break;
 220     default :
 221       break;
 222     }
 223
 224     fillr = astructure->ContextFillArea.IntColor.r;
 225     fillg = astructure->ContextFillArea.IntColor.g;
 226     fillb = astructure->ContextFillArea.IntColor.b;
 227
 228 #ifdef OCC1174
 229     fillBackr = astructure->ContextFillArea.BackIntColor.r;
 230     fillBackg = astructure->ContextFillArea.BackIntColor.g;
 231     fillBackb = astructure->ContextFillArea.BackIntColor.b;
 232 #endif
 233
 234     liner = astructure->ContextFillArea.EdgeColor.r;
 235     lineg = astructure->ContextFillArea.EdgeColor.g;
 236     lineb = astructure->ContextFillArea.EdgeColor.b;
 237
 238     /* OCC4895 SAN 22/03/04 High-level interface for controlling polygon offsets */
 239     polyOffsetMode   = astructure->ContextFillArea.PolygonOffsetMode;
 240     polyOffsetFactor = astructure->ContextFillArea.PolygonOffsetFactor;
 241     polyOffsetUnits  = astructure->ContextFillArea.PolygonOffsetUnits;
 242     /* OCC4895 SAN 22/03/04 High-level interface for controlling polygon offsets */
 243
 244     switch( astructure->ContextFillArea.LineType )
 245     {
 246     case 0 : /* Aspect_TOL_SOLID */
 247       linetype = CALL_PHIGS_LINE_SOLID;
 248       break;
 249     case 1 : /* Aspect_TOL_DASH */
 250       linetype = CALL_PHIGS_LINE_DASH;
 251       break;
 252     case 2 : /* Aspect_TOL_DOT */
 253       linetype = CALL_PHIGS_LINE_DOT;
 254       break;
 255     case 3 : /* Aspect_TOL_DOTDASH */
 256       linetype = CALL_PHIGS_LINE_DASH_DOT;
 257       break;
 258     default :
 259       break;
 260     }
 261
 262     linewidth = (Tfloat)astructure->ContextFillArea.Width;
 263
 264     if( astructure->ContextFillArea.IsSet )
 265       call_func_set_edit_mode( CALL_PHIGS_EDIT_REPLACE );
 266     else
 267       call_func_set_edit_mode( CALL_PHIGS_EDIT_INSERT );
 268     call_func_open_struct( astructure->Id );
 269     call_func_set_elem_ptr( 0 );
 270     call_func_set_elem_ptr_label( Structure_LABContextFillArea );
 271
 272     /* interior */
 273     if( astructure->ContextFillArea.IsSet )
 274       call_func_offset_elem_ptr( 1 );
 275     call_func_set_int_style( intstyle );
 276     if( astructure->ContextFillArea.IsSet )
 277       call_func_offset_elem_ptr( 1 );
 278     call_subr_set_int_colr( fillr, fillg, fillb, ( float )1.0 );
 279     if( astructure->ContextFillArea.IsSet )
 280       call_func_offset_elem_ptr( 1 );
 281 #ifdef OCC1174
 282     call_subr_set_back_int_colr( fillBackr, fillBackg, fillBackb, ( float )1.0 );
 283 #else
 284     call_subr_set_back_int_colr( fillr, fillg, fillb, ( float )1.0 );
 285 #endif
 286     /* edge */
 287     if( astructure->ContextFillArea.IsSet )
 288       call_func_offset_elem_ptr( 1 );
 289     if( astructure->ContextFillArea.Edge )
 290       call_func_set_edge_flag( CALL_PHIGS_EDGE_ON );
 291     else
 292       call_func_set_edge_flag( CALL_PHIGS_EDGE_OFF );
 293     if( astructure->ContextFillArea.IsSet )
 294       call_func_offset_elem_ptr( 1 );
 295     call_subr_set_edge_colr( liner, lineg, lineb );
 296     if( astructure->ContextFillArea.IsSet )
 297       call_func_offset_elem_ptr( 1 );
 298     call_func_set_edge_type( linetype );
 299     if( astructure->ContextFillArea.IsSet )
 300       call_func_offset_elem_ptr( 1 );
 301     call_func_set_edgewidth( linewidth );
 302     /* hatch */
 303     if( astructure->ContextFillArea.IsSet )
 304       call_func_offset_elem_ptr( 1 );
 305     if( intstyle == CALL_PHIGS_STYLE_HATCH )
 306       call_func_set_int_style_ind( hatch );
 307     else
 308       call_func_appl_data( 0 );
 309     /* front and back face */
 310     if( astructure->ContextFillArea.IsSet )
 311       call_func_offset_elem_ptr( 1 );
 312     if( astructure->ContextFillArea.Distinguish )
 313       call_func_set_face_disting_mode(CALL_PHIGS_DISTING_YES);
 314     else
 315       call_func_set_face_disting_mode(CALL_PHIGS_DISTING_NO);
 316     if( astructure->ContextFillArea.IsSet )
 317       call_func_offset_elem_ptr( 1 );
 318     if( astructure->ContextFillArea.BackFace )
 319       call_func_set_face_cull_mode(CALL_PHIGS_CULL_BACKFACE);
 320     else
 321       call_func_set_face_cull_mode( CALL_PHIGS_CULL_NONE );
 322     /* front face */
 323     if( astructure->ContextFillArea.IsSet )
 324       call_func_offset_elem_ptr( 1 );
 325
 326     /* Front face */
 327     /* Gestion Lumiere */
 328     if( astructure->ContextFillArea.Front.IsAmbient )
 329       lightbool = lightbool | AMBIENT_MASK;
 330
 331     if( astructure->ContextFillArea.Front.IsDiffuse )
 332       lightbool = lightbool | DIFFUSE_MASK;
 333
 334     if( astructure->ContextFillArea.Front.IsSpecular )
 335       lightbool = lightbool | SPECULAR_MASK;
 336
 337     if( astructure->ContextFillArea.Front.IsEmission )
 338       lightbool = lightbool | EMISSIVE_MASK;
 339
 340     if( !lightbool )
 341       call_func_set_refl_eqn( CALL_PHIGS_REFL_NONE );
 342     else
 343       call_func_set_refl_eqn( lightbool );
 344
 345     if( astructure->ContextFillArea.IsSet )
 346       call_func_offset_elem_ptr( 1 );
 347     call_subr_set_refl_props( &astructure->ContextFillArea.Front, 0 );
 348
 349     /* back face */
 350     /* Gestion lumiere */
 351     if( astructure->ContextFillArea.IsSet )
 352       call_func_offset_elem_ptr( 1 );
 353
 354     if( astructure->ContextFillArea.Back.IsAmbient )
 355       lightbool = lightbool | AMBIENT_MASK;
 356
 357     if( astructure->ContextFillArea.Back.IsDiffuse )
 358       lightbool = lightbool | DIFFUSE_MASK;
 359
 360     if( astructure->ContextFillArea.Back.IsSpecular )
 361       lightbool = lightbool | SPECULAR_MASK;
 362
 363     if( astructure->ContextFillArea.Back.IsEmission )
 364       lightbool = lightbool | EMISSIVE_MASK;
 365
 366     if( !lightbool )
 367       call_func_set_back_refl_eqn( CALL_PHIGS_REFL_NONE );
 368     else
 369       call_func_set_back_refl_eqn( lightbool );
 370
 371     if( astructure->ContextFillArea.IsSet )
 372       call_func_offset_elem_ptr( 1 );
 373     call_subr_set_refl_props( &astructure->ContextFillArea.Back, 1 );
 374
 375     if( astructure->ContextFillArea.IsSet )
 376       call_func_offset_elem_ptr( 1 );
 377     call_func_set_do_texturemap(astructure->ContextFillArea.Texture.doTextureMap);
 378
 379     if( astructure->ContextFillArea.IsSet )
 380       call_func_offset_elem_ptr( 1 );
 381     call_func_set_texture_id(astructure->ContextFillArea.Texture.TexId);
 382
 383     /* OCC4895 SAN 22/03/04 High-level interface for controlling polygon offsets */
 384     if( astructure->ContextFillArea.IsSet )
 385       call_func_offset_elem_ptr( 1 );
 386     call_func_set_polygon_offset_params( polyOffsetMode, polyOffsetFactor, polyOffsetUnits );
 387     /* OCC4895 SAN 22/03/04 High-level interface for controlling polygon offsets */
 388     call_func_close_struct();
 389   }
 390
 391   if( astructure->ContextMarker.IsDef == 1 )
 392   {
 393     markr = astructure->ContextMarker.Color.r;
 394     markg = astructure->ContextMarker.Color.g;
 395     markb = astructure->ContextMarker.Color.b;
 396
 397     switch( astructure->ContextMarker.MarkerType )
 398     {
 399     case 0 : /* Aspect_TOM_POINT */
 400       markertype = CALL_PHIGS_MARKER_DOT;
 401       break;
 402     case 1 : /* Aspect_TOM_PLUS */
 403       markertype = CALL_PHIGS_MARKER_PLUS;
 404       break;
 405     case 2 : /* Aspect_TOM_STAR */
 406       markertype = CALL_PHIGS_MARKER_ASTERISK;
 407       break;
 408     case 3 : /* Aspect_TOM_O */
 409       markertype = CALL_PHIGS_MARKER_CIRCLE;
 410       break;
 411     case 4 : /* Aspect_TOM_X */
 412       markertype = CALL_PHIGS_MARKER_CROSS;
 413       break;
 414     case 5 : /* Aspect_TOM_USERDEFINED*/
 415       markertype = CALL_PHIGS_MARKER_USER_DEFINED;
 416       break;
 417     default :
 418       printf( "\n\tINVALID MARKER TYPE %d",
 419         astructure->ContextMarker.MarkerType );
 420       break;
 421     }
 422
 423     markerscale = (Tfloat)astructure->ContextMarker.Scale;
 424
 425     if( astructure->ContextMarker.IsSet )
 426       call_func_set_edit_mode( CALL_PHIGS_EDIT_REPLACE );
 427     else
 428       call_func_set_edit_mode( CALL_PHIGS_EDIT_INSERT );
 429     call_func_open_struct( astructure->Id );
 430     call_func_set_elem_ptr( 0 );
 431     call_func_set_elem_ptr_label( Structure_LABContextMarker );
 432     if( astructure->ContextMarker.IsSet )
 433       call_func_offset_elem_ptr( 1 );
 434     call_subr_set_marker_colr( markr, markg, markb );
 435     if( astructure->ContextMarker.IsSet )
 436       call_func_offset_elem_ptr( 1 );
 437     call_func_set_marker_type( markertype );
 438     if( astructure->ContextMarker.IsSet )
 439       call_func_offset_elem_ptr( 1 );
 440     call_func_set_marker_size( markerscale );
 441     call_func_close_struct();
 442   }
 443
 444 #ifdef TRACE
 445   cout << "TKOpenGl::OpenGl_togl_contextstructure"
 446     << "\t is defined : " << astructure->ContextText.IsDef << endl;
 447 #endif
 448   if( astructure->ContextText.IsDef == 1 )
 449   {
 450     textr = astructure->ContextText.Color.r;
 451     textg = astructure->ContextText.Color.g;
 452     textb = astructure->ContextText.Color.b;
 453
 454     textrs = astructure->ContextText.ColorSubTitle.r;
 455     textgs = astructure->ContextText.ColorSubTitle.g;
 456     textbs = astructure->ContextText.ColorSubTitle.b;
 457
 458     fontid = new Tchar[strlen((char*)astructure->ContextText.Font)+1];
 459     strcpy((char*)fontid,(char*)astructure->ContextText.Font);
 460
 461     textspace = (Tfloat)astructure->ContextText.Space;
 462     textexpan = (Tfloat)astructure->ContextText.Expan;
 463     textstyle = (int) astructure->ContextText.Style;
 464     textdisplaytype = (int) astructure->ContextText.DisplayType;
 465     textzoomable = (int) astructure->ContextText.TextZoomable;
 466     textangle = (float) astructure->ContextText.TextAngle;
 467     textfontaspect = (OSD_FontAspect)astructure->ContextText.TextFontAspect;
 468
 469     if( astructure->ContextText.IsSet )
 470       call_func_set_edit_mode( CALL_PHIGS_EDIT_REPLACE );
 471     else
 472       call_func_set_edit_mode( CALL_PHIGS_EDIT_INSERT );
 473     call_func_open_struct( astructure->Id );
 474     call_func_set_elem_ptr( 0 );
 475     call_func_set_elem_ptr_label( Structure_LABContextText );
 476     if( astructure->ContextText.IsSet )
 477       call_func_offset_elem_ptr( 1 );
 478     call_func_set_text_zoomable( textzoomable );
 479     call_func_set_text_angle( textangle );
 480     call_func_set_text_fontaspect( textfontaspect );
 481
 482     if( astructure->ContextText.IsSet )
 483       call_func_offset_elem_ptr( 1 );
 484     call_func_set_text_font( fontid );
 485     if( astructure->ContextText.IsSet )
 486       call_func_offset_elem_ptr( 1 );
 487     call_func_set_char_space( textspace );
 488     if( astructure->ContextText.IsSet )
 489       call_func_offset_elem_ptr( 1 );
 490     call_func_set_char_expan( textexpan );
 491     if( astructure->ContextText.IsSet )
 492       call_func_offset_elem_ptr( 1 );
 493     call_subr_set_text_colr( textr, textg, textb );
 494     if( astructure->ContextText.IsSet )
 495       call_func_offset_elem_ptr( 1 );
 496     call_func_set_text_style( textstyle );
 497     if( astructure->ContextText.IsSet )
 498       call_func_offset_elem_ptr( 1 );
 499     call_func_set_text_display_type( textdisplaytype );
 500     if( astructure->ContextText.IsSet )
 501       call_func_offset_elem_ptr( 1 );
 502     call_subr_set_text_colr_subtitle( textrs, textgs, textbs );
 503
 504     call_func_close_struct();
 505   }
 506   return;
 507 }