src/OpenGl/OpenGl_togl_group.cxx

   1 /***********************************************************************
   2
   3 FONCTION :
   4 ----------
   5 File OpenGl_togl_group.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 /*----------------------------------------------------------------------*/
  24
  25 #include <OpenGl_tgl_all.hxx>
  26 #include <InterfaceGraphic_Graphic3d.hxx>
  27 #include <OpenGl_tgl.hxx>
  28 #include <OpenGl_tgl_funcs.hxx>
  29
  30 void EXPORT
  31 call_togl_group
  32 (
  33  CALL_DEF_GROUP * agroup
  34  )
  35 {
  36   call_func_set_edit_mode (CALL_PHIGS_EDIT_INSERT);
  37   call_func_open_struct (agroup->Struct->Id);
  38   call_func_set_elem_ptr (0);
  39   call_func_set_elem_ptr_label (agroup->StructureEnd);
  40   call_func_offset_elem_ptr (-1);
  41   call_func_label (agroup->LabelBegin);
  42   call_func_label (agroup->LabelEnd);
  43   call_func_close_struct ();
  44   return;
  45 }