0022819: Redesign of OpenGl driver
[occt.git] / 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 }