1 | #include "diabolo.h"
|
---|
2 | #include "bolo.h"
|
---|
3 | #include "acqui.h"
|
---|
4 | #include "carte_acqui.h"
|
---|
5 | #include "carte_pci.h"
|
---|
6 | #include "trace.h"
|
---|
7 | #include "corel.h"
|
---|
8 | #include "montimer.h"
|
---|
9 | #include "synchro.h"
|
---|
10 | #include "fichier.h"
|
---|
11 | #include "onde.h"
|
---|
12 | #include "tm.h"
|
---|
13 | #include "tache.h"
|
---|
14 | #include "compress.h"
|
---|
15 | #include "controle.h"
|
---|
16 | #include "menu.h"
|
---|
17 |
|
---|
18 |
|
---|
19 |
|
---|
20 | //*****************************************************************************************
|
---|
21 | // ***
|
---|
22 | #ifdef _diabolo //--------- pour Diabolo ------------------------------ ***
|
---|
23 | // ***
|
---|
24 | //*****************************************************************************************
|
---|
25 |
|
---|
26 |
|
---|
27 |
|
---|
28 | void lit_block_diabolo(int err)
|
---|
29 |
|
---|
30 | {
|
---|
31 | int i,j;
|
---|
32 | int glitch;
|
---|
33 | glitch=litD(fenetre_acquisition,e_deglitch,0L);
|
---|
34 |
|
---|
35 | for(j=0;j<nb_max_bolo;j++) // lit les courbes de bolos individuelles
|
---|
36 | for (i=0;i<gg->reglage.horloge.nb_mesures;i++)
|
---|
37 | gg->bol_per[j][i]=tt->tm.btm[tt->tm.pos_lit].bol_per[j][i];
|
---|
38 |
|
---|
39 |
|
---|
40 | glitch=litD(fenetre_acquisition,e_deglitch,0L);
|
---|
41 |
|
---|
42 | for (i=0;i<nb_per_block*2;i++)
|
---|
43 | {
|
---|
44 | for(j=0;j<nb_max_bolo;j++)
|
---|
45 | gg->don.don_bolo[j]=tt->tm.btm[tt->tm.pos_lit].don[i].don_bolo[j]; // copy bolos
|
---|
46 |
|
---|
47 | for(j=0;j<nb_sync;j++)
|
---|
48 | gg->don.sync[j]=tt->tm.btm[tt->tm.pos_lit].don[i].sync[j]; // copy synchros
|
---|
49 |
|
---|
50 | gg->temps_cntl=tt->tm.btm[tt->tm.pos_lit].temps_cntl[i];
|
---|
51 | gg->temps_mac=tt->tm.btm[tt->tm.pos_lit].temps_mac[i];
|
---|
52 |
|
---|
53 | exec_synchro(0,100,err); // en premier pour construire le flag scan_en_cours
|
---|
54 | // le trace ds et 1p est fait avec les points corelles du coups precedent !!!
|
---|
55 |
|
---|
56 | if(gg->fichier_dia2_ouvert) ecrit_fichier_dia2(gg->don,gg->temps_cntl,gg->temps_mac);// ecrit les donnees dans le fichier
|
---|
57 | if(gg->fichier_arch_ouvert) fabrique_block_type_bolo_synchro(); // ecrit un block bolo archeops
|
---|
58 |
|
---|
59 | if(glitch) deglitch();
|
---|
60 |
|
---|
61 | corel();
|
---|
62 |
|
---|
63 | // if(gg->trace_ouvert&1) exec_trace_tout(fenetre_trace_tout,tache_de_fond,0);
|
---|
64 | for(j=0;j<8;j++) if(gg->trace_tout[j]) exec_trace_tout(gg->trace_tout[j],tache_de_fond,0);
|
---|
65 | if( (gg->trace_ouvert&16) && // trace carte et pas de select synchro
|
---|
66 | (! (gg->trace_ouvert&32))) trace_annexe(gg->corel);
|
---|
67 | if(gg->flag_fou) foufou();
|
---|
68 | if(gg->trace_ouvert&8) exec_ondelette(fenetre_ondelette,0,0);
|
---|
69 |
|
---|
70 | }
|
---|
71 |
|
---|
72 | // _____________ affichage numerique de la valeur d'un bolometre _______________
|
---|
73 | j=litD(fenetre_acquisition,e_bolo,0L)-1;
|
---|
74 | if( (j<0) ou (j>=nb_max_bolo) ) ecritD(fenetre_acquisition,e_valeur,"--");
|
---|
75 | else ecritD(fenetre_acquisition,e_valeur,"b%d=%g µV",j+1,xbol(j));
|
---|
76 |
|
---|
77 | ecritD(fenetre_controle,con_chauf,tt->tm.btm[tt->tm.pos_lit].chauf_regul);
|
---|
78 |
|
---|
79 | if(gg->fichier_arch_ouvert) fabrique_block_type_une_periode(); // ecrit un block une periode archeops
|
---|
80 | affi_bolo(); // affichage des bolo individuels
|
---|
81 | }
|
---|
82 | //_____________________________________________________________________________________________
|
---|
83 |
|
---|
84 | //*****************************************************************************************
|
---|
85 | // ***
|
---|
86 | #endif //-------------------------------------------------------------------- ***
|
---|
87 | // ***
|
---|
88 | //*****************************************************************************************
|
---|
89 |
|
---|