0012121: Optimization of existing selection classes
[occt.git] / src / OpenGl / OpenGl_togl_transformstructure.cxx
1
2 #include <OpenGl_tgl_all.hxx>
3
4 #include <InterfaceGraphic_Labels.hxx>
5 #include <InterfaceGraphic_Graphic3d.hxx>
6
7 #include <OpenGl_tgl_funcs.hxx>
8 #include <OpenGl_tgl.hxx>
9
10 void EXPORT
11 call_togl_transformstructure
12 (
13  CALL_DEF_STRUCTURE * astructure
14  )
15 {
16   call_func_set_edit_mode (CALL_PHIGS_EDIT_REPLACE);
17   call_func_open_struct (astructure->Id);
18   call_func_set_elem_ptr (0);
19   call_func_set_elem_ptr_label (Structure_LABTransformation);
20   call_func_offset_elem_ptr (1);
21   call_func_set_local_tran3 (astructure->Transformation, CALL_PHIGS_TYPE_REPLACE);
22   call_func_close_struct ();
23
24   return;
25 }