+++ /dev/null
-/***********************************************************************
-
-FONCTION :
-----------
-Gestion des light sous OpenGL
-
-
-REMARQUES:
-----------
-
-HISTORIQUE DES MODIFICATIONS :
---------------------------------
-25-06-97 : PCT ; Appel de la toolkit OpenGl_LightBox
-et correction de bug passage
-plusieurs lights -> aucune lights
-
-************************************************************************/
-
-#include <OpenGl_tgl_all.hxx>
-
-#include <InterfaceGraphic_Labels.hxx>
-#include <InterfaceGraphic_Graphic3d.hxx>
-#include <InterfaceGraphic_Visual3d.hxx>
-
-#include <OpenGl_tgl_funcs.hxx>
-#include <OpenGl_tgl_subrvis.hxx>
-#include <OpenGl_inquire.hxx>
-
-#include <OpenGl_LightBox.hxx>
-#include <OpenGl_Memory.hxx>
-
-void EXPORT
-call_togl_setlight
-(
- CALL_DEF_VIEW * aview
- )
-{
- Tint *actl=0;
- Tint i;
- CALL_DEF_LIGHT alight;
- CMN_KEY k;
-
- actl = new Tint[call_facilities_list.MaxLights];
- if( !actl )
- return;
-
- /* PCT ; 25-06-97 */
- ResetWksLight(aview->WsId);
-
- for( i =0; i < aview->Context.NbActiveLight &&
- i < call_facilities_list.MaxLights; i++ )
- {
- alight = aview->Context.ActiveLight[i];
- actl[i] = alight.LightId;
- call_subr_set_light_src_rep( &alight );
- }
-
- call_func_set_edit_mode(CALL_PHIGS_EDIT_REPLACE);
- call_func_open_struct(aview->ViewId);
- call_func_set_elem_ptr(0);
- call_func_set_elem_ptr_label(View_LABLight);
- call_func_offset_elem_ptr(1);
- k.id = aview->Context.NbActiveLight;
- k.data.pdata = actl;
- TsmAddToStructure( TelLightSrcState, 1, &k );
- call_func_close_struct();
-
- delete[] actl;
-
- return;
-}