summaryrefslogtreecommitdiff
path: root/src/OpenGl/OpenGl_togl_element_exploration.cxx
blob: 7b80ec4a6fcfbab6885a0f0698cd3506def6d149 (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
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
/***********************************************************************

FONCTION :
----------
File OpenGl_togl_element_exploration :


REMARQUES:
---------- 


HISTORIQUE DES MODIFICATIONS   :
--------------------------------
xx-xx-xx : xxx ; Creation.
11-03-96 : FMN ; Correction warning compilation
01-04-96 : CAL ; Integration MINSK portage WNT

************************************************************************/

/*----------------------------------------------------------------------*/
/*
* Includes
*/ 


#include <OpenGl_tgl_all.hxx>
#include <InterfaceGraphic_Graphic3d.hxx>
#include <OpenGl_tgl.hxx>
#include <OpenGl_tgl_subrs.hxx>
#include <OpenGl_tgl_elems.hxx>

void EXPORT
call_togl_element_exploration
(
 long Id,
 long elem_num,
 long *type,
 CALL_DEF_POINT *pt,
 CALL_DEF_NORMAL *npt,
 CALL_DEF_COLOR *cpt, 
 CALL_DEF_NORMAL *nfa
 )
{
  call_subr_structure_exploration (Id, 0, 0, elem_num, (Tint *)type,
    pt, npt, cpt, nfa);

  switch( *type )
  {
  case CALL_PHIGS_ELEM_POLYLINE_SET3_DATA :
    *type = 1;
    break;

  case CALL_PHIGS_ELEM_FILL_AREA3 :
    *type = 2;
    break;

  case CALL_PHIGS_ELEM_TRI_STRIP3_DATA :
    *type = 3;
    break;

  case CALL_PHIGS_ELEM_QUAD_MESH3_DATA :
    *type        = 4;
    break;

  case CALL_PHIGS_ELEM_ANNO_TEXT_REL3 :
    *type = 5;
    break;

  case CALL_PHIGS_ELEM_POLYMARKER3 :
    *type = 6;
    break;

  default :
    *type = 0;
    break;
  }
  return;
}