0022792: Globally defined symbol PI conflicts with VTK definition (Intel compiler)
[occt.git] / src / OpenGl / OpenGl_intshademtd.cxx
1
2 #include <OpenGl_tgl_all.hxx>
3
4 #include <stddef.h>
5 #include <stdio.h>
6 #include <GL/gl.h>
7 #include <GL/glu.h>
8
9 #include <OpenGl_cmn_varargs.hxx>
10 #include <OpenGl_telem_attri.hxx>
11 #include <OpenGl_tsm.hxx>
12 #include <OpenGl_telem.hxx>
13 #include <OpenGl_telem_inquire.hxx>
14
15 static  TStatus  InteriorShadingMethodAdd( TSM_ELEM_DATA, Tint, cmn_key* );
16 static  TStatus  InteriorShadingMethodDisplay( TSM_ELEM_DATA, Tint, cmn_key* );
17 static  TStatus  InteriorShadingMethodPrint( TSM_ELEM_DATA, Tint, cmn_key* );
18 static  TStatus  InteriorShadingMethodInquire( TSM_ELEM_DATA, Tint, cmn_key* );
19
20 static  TStatus  (*MtdTbl[])( TSM_ELEM_DATA, Tint, cmn_key* ) =
21 {
22   0,             /* PickTraverse */
23   InteriorShadingMethodDisplay,
24   InteriorShadingMethodAdd,
25   0,             /* Delete */
26   InteriorShadingMethodPrint,
27   InteriorShadingMethodInquire
28 };
29
30
31 MtblPtr
32 TelInteriorShadingMethodInitClass( TelType *el )
33 {
34   *el = TelInteriorShadingMethod;
35   return MtdTbl;
36 }
37
38 static  TStatus
39 InteriorShadingMethodAdd( TSM_ELEM_DATA d, Tint n, cmn_key *k )
40 {
41   ((tsm_elem_data)(d.pdata))->ldata = k[0]->data.ldata;
42
43   return TSuccess;
44 }
45
46
47 static  TStatus
48 InteriorShadingMethodDisplay( TSM_ELEM_DATA d, Tint n, cmn_key *k )
49 {
50   CMN_KEY  key;
51
52   key.id = TelInteriorShadingMethod;
53   key.data.ldata = d.ldata;
54   TsmSetAttri( 1, &key );
55   return TSuccess;
56 }
57
58
59 static  TStatus
60 InteriorShadingMethodPrint( TSM_ELEM_DATA data, Tint n, cmn_key *k )
61 {
62   switch( data.ldata )
63   {
64   case TEL_SM_FLAT:
65     fprintf( stdout, "TelInteriorShadingMethod. Value = GL_FLAT\n" );
66     break;
67
68   case TEL_SM_GOURAUD:
69     fprintf( stdout, "TelInteriorShadingMethod. Value = GL_SMOOTH\n" );
70     break;
71   }
72
73   fprintf( stdout, "\n" );
74
75   return TSuccess;
76 }
77
78
79 static TStatus
80 InteriorShadingMethodInquire( TSM_ELEM_DATA data, Tint n, cmn_key *k )
81 {
82   Tint i;
83
84   for( i = 0; i < n; i++ )
85   {
86     switch( k[i]->id )
87     {
88     case INQ_GET_SIZE_ID:
89       {
90         k[i]->data.ldata = sizeof( Tint );
91         break;
92       }
93     case INQ_GET_CONTENT_ID:
94       {
95         TEL_INQ_CONTENT *c;
96         Teldata         *w;
97
98         c = (tel_inq_content)k[i]->data.pdata;
99         w = c->data;
100         c->act_size = 0;
101         w->idata = data.ldata;
102         break;
103       }
104     }
105   }
106
107   return TSuccess;
108 }