#include "diabolo.h"
#include "bolo.h"
#include "acqui.h"
#include "carte_acqui.h"
#include "carte_pci.h"
#include "trace.h"
#include "corel.h" 
#include "montimer.h"
#include "synchro.h"
#include "fichier.h"
#include "onde.h"
#include "tm.h"
#include "tache.h"
#include "compress.h"
#include "controle.h"
#include "menu.h"



//*****************************************************************************************
//											***
#ifdef _diabolo		//---------   pour  Diabolo    ------------------------------	***
//											***
//*****************************************************************************************



void lit_block_diabolo(int err)

{
int i,j;
int glitch;
glitch=litD(fenetre_acquisition,e_deglitch,0L);

for(j=0;j<nb_max_bolo;j++)				//  lit les courbes de bolos individuelles
	for (i=0;i<gg->reglage.horloge.nb_mesures;i++)
		gg->bol_per[j][i]=tt->tm.btm[tt->tm.pos_lit].bol_per[j][i];

					
glitch=litD(fenetre_acquisition,e_deglitch,0L);

for (i=0;i<nb_per_block*2;i++)
	{
	for(j=0;j<nb_max_bolo;j++)	
		gg->don.don_bolo[j]=tt->tm.btm[tt->tm.pos_lit].don[i].don_bolo[j];		// copy bolos
		
	for(j=0;j<nb_sync;j++)			
		gg->don.sync[j]=tt->tm.btm[tt->tm.pos_lit].don[i].sync[j];				// copy synchros

	gg->temps_cntl=tt->tm.btm[tt->tm.pos_lit].temps_cntl[i];		
	gg->temps_mac=tt->tm.btm[tt->tm.pos_lit].temps_mac[i];		

	exec_synchro(0,100,err);		// en premier pour construire le flag  scan_en_cours 
		//  le trace ds et 1p est fait avec les points corelles du coups precedent !!!

	if(gg->fichier_dia2_ouvert)  	ecrit_fichier_dia2(gg->don,gg->temps_cntl,gg->temps_mac);// ecrit les donnees dans le fichier  
	if(gg->fichier_arch_ouvert)  	fabrique_block_type_bolo_synchro();		// ecrit un block bolo archeops 
	
	if(glitch)	deglitch();

	corel();
	
//	if(gg->trace_ouvert&1)		exec_trace_tout(fenetre_trace_tout,tache_de_fond,0);
	for(j=0;j<8;j++)	if(gg->trace_tout[j]) exec_trace_tout(gg->trace_tout[j],tache_de_fond,0);
	if( (gg->trace_ouvert&16)  && 	// trace carte et pas de select synchro
	  (! (gg->trace_ouvert&32)))	trace_annexe(gg->corel);
	if(gg->flag_fou)		foufou();	
	if(gg->trace_ouvert&8)		exec_ondelette(fenetre_ondelette,0,0);
	
	}

	// _____________  affichage numerique de la valeur d'un bolometre  _______________
j=litD(fenetre_acquisition,e_bolo,0L)-1;  
	if( (j<0) ou (j>=nb_max_bolo) ) ecritD(fenetre_acquisition,e_valeur,"--");
				else		ecritD(fenetre_acquisition,e_valeur,"b%d=%g µV",j+1,xbol(j));

ecritD(fenetre_controle,con_chauf,tt->tm.btm[tt->tm.pos_lit].chauf_regul);

if(gg->fichier_arch_ouvert)  		fabrique_block_type_une_periode();	// ecrit un block une periode archeops  
affi_bolo();			// affichage des bolo individuels
}
//_____________________________________________________________________________________________

//*****************************************************************************************
//											***
#endif		//--------------------------------------------------------------------	***
//											***
//*****************************************************************************************