blob: 26ab17eef41b19dd38769dba775f135690c9566d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
|
/***********************************************************************
FONCTION :
----------
File OpenGl_togl_removegroup.c :
REMARQUES:
----------
HISTORIQUE DES MODIFICATIONS :
--------------------------------
xx-xx-xx : xxx ; Creation.
03-03-98 : CAL ; Modification des structures CALL_DEF_GROUP et STRUCTURE
************************************************************************/
/*----------------------------------------------------------------------*/
/*
* Includes
*/
#include <OpenGl_tgl_all.hxx>
#include <InterfaceGraphic_Graphic3d.hxx>
#include <OpenGl_tgl.hxx>
#include <OpenGl_tgl_funcs.hxx>
/*----------------------------------------------------------------------*/
void EXPORT
call_togl_removegroup
(
CALL_DEF_GROUP * agroup
)
{
call_func_set_edit_mode (CALL_PHIGS_EDIT_REPLACE);
call_func_open_struct (agroup->Struct->Id);
call_func_set_elem_ptr (0);
call_func_del_elems_labels (agroup->LabelBegin, agroup->LabelEnd);
call_func_set_elem_ptr (0);
call_func_set_elem_ptr_label (agroup->LabelBegin);
call_func_del_elem ();
call_func_set_elem_ptr_label (agroup->LabelEnd);
call_func_del_elem ();
call_func_close_struct ();
return;
}
|