src/OpenGl/OpenGl_togl_opengroup.cxx

   1 /***********************************************************************
   2
   3 FONCTION :
   4 ----------
   5 File OpenGl_togl_opengroup.c :
   6
   7
   8 REMARQUES:
   9 ----------
  10
  11 HISTORIQUE DES MODIFICATIONS   :
  12 --------------------------------
  13 xx-xx-xx : xxx ; Creation.
  14 03-03-98 : CAL ; Modification des structures CALL_DEF_GROUP et STRUCTURE
  15
  16 ************************************************************************/
  17
  18 /*----------------------------------------------------------------------*/
  19 /*
  20 * Includes
  21 */
  22
  23 #include <OpenGl_tgl_all.hxx>
  24
  25 #include <InterfaceGraphic_Graphic3d.hxx>
  26 #include <OpenGl_tgl.hxx>
  27 #include <OpenGl_tgl_funcs.hxx>
  28 #include <OpenGl_tgl_utilgr.hxx>
  29
  30 /*----------------------------------------------------------------------*/
  31
  32 /*
  33 call_togl_opengroup (agroup)
  34 CALL_DEF_GROUP * agroup
  35
  36 Opens the associated structure and sets the pointer
  37 at the end of the primitives.
  38
  39 Method :
  40
  41 - go to the end of the group in the specified structure.
  42 - skip the structure element which set all attributes of the structure.
  43
  44 */
  45
  46 void EXPORT
  47 call_togl_opengroup
  48 (
  49  CALL_DEF_GROUP * agroup
  50  )
  51 {
  52   call_func_set_edit_mode (CALL_PHIGS_EDIT_INSERT);
  53   call_func_open_struct (agroup->Struct->Id);
  54   call_func_set_elem_ptr (0);
  55   call_func_set_elem_ptr_label (agroup->LabelEnd);
  56   call_func_offset_elem_ptr (- call_util_context_group_place (agroup) - 1);
  57 }