src/OpenGl/OpenGl_togl_element_exploration.cxx

   1 /***********************************************************************
   2
   3 FONCTION :
   4 ----------
   5 File OpenGl_togl_element_exploration :
   6
   7
   8 REMARQUES:
   9 ----------
  10
  11
  12 HISTORIQUE DES MODIFICATIONS   :
  13 --------------------------------
  14 xx-xx-xx : xxx ; Creation.
  15 11-03-96 : FMN ; Correction warning compilation
  16 01-04-96 : CAL ; Integration MINSK portage WNT
  17
  18 ************************************************************************/
  19
  20 /*----------------------------------------------------------------------*/
  21 /*
  22 * Includes
  23 */
  24
  25
  26 #include <OpenGl_tgl_all.hxx>
  27 #include <InterfaceGraphic_Graphic3d.hxx>
  28 #include <OpenGl_tgl.hxx>
  29 #include <OpenGl_tgl_subrs.hxx>
  30 #include <OpenGl_tgl_elems.hxx>
  31
  32 void EXPORT
  33 call_togl_element_exploration
  34 (
  35  long Id,
  36  long elem_num,
  37  long *type,
  38  CALL_DEF_POINT *pt,
  39  CALL_DEF_NORMAL *npt,
  40  CALL_DEF_COLOR *cpt,
  41  CALL_DEF_NORMAL *nfa
  42  )
  43 {
  44   call_subr_structure_exploration (Id, 0, 0, elem_num, (Tint *)type,
  45     pt, npt, cpt, nfa);
  46
  47   switch( *type )
  48   {
  49   case CALL_PHIGS_ELEM_POLYLINE_SET3_DATA :
  50     *type = 1;
  51     break;
  52
  53   case CALL_PHIGS_ELEM_FILL_AREA3 :
  54     *type = 2;
  55     break;
  56
  57   case CALL_PHIGS_ELEM_TRI_STRIP3_DATA :
  58     *type = 3;
  59     break;
  60
  61   case CALL_PHIGS_ELEM_QUAD_MESH3_DATA :
  62     *type        = 4;
  63     break;
  64
  65   case CALL_PHIGS_ELEM_ANNO_TEXT_REL3 :
  66     *type = 5;
  67     break;
  68
  69   case CALL_PHIGS_ELEM_POLYMARKER3 :
  70     *type = 6;
  71     break;
  72
  73   default :
  74     *type = 0;
  75     break;
  76   }
  77   return;
  78 }