source: Sophya/trunk/Poubelle/archediab.old/archediab.sources/c/acquisition_diabolo.c@ 637

Last change on this file since 637 was 637, checked in by ansari, 26 years ago

archediab version 24 initial import

File size: 3.0 KB
Line 
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
28void lit_block_diabolo(int err)
29
30{
31int i,j;
32int glitch;
33glitch=litD(fenetre_acquisition,e_deglitch,0L);
34
35for(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
40glitch=litD(fenetre_acquisition,e_deglitch,0L);
41
42for (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 _______________
73j=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
77ecritD(fenetre_controle,con_chauf,tt->tm.btm[tt->tm.pos_lit].chauf_regul);
78
79if(gg->fichier_arch_ouvert) fabrique_block_type_une_periode(); // ecrit un block une periode archeops
80affi_bolo(); // affichage des bolo individuels
81}
82//_____________________________________________________________________________________________
83
84//*****************************************************************************************
85// ***
86#endif //-------------------------------------------------------------------- ***
87// ***
88//*****************************************************************************************
89
Note: See TracBrowser for help on using the repository browser.