Changeset 651 in Sophya for trunk/Poubelle/archediab.old/archediab.sources/c

Timestamp:

Nov 25, 1999, 3:05:04 PM (26 years ago)

Author:

ansari

Message:

archediab 29

Location:

trunk/Poubelle/archediab.old/archediab.sources/c

Files:

• acquisition_archeops.c (modified) (2 diffs)
• arcunit.c (added)
• auto.c (modified) (1 diff)
• corel.c (modified) (1 diff)
• courbeVI.c (modified) (1 diff)
• diabolo.c (modified) (3 diffs)
• dilution.c (modified) (1 diff)
• fichier_archeops.c (modified) (1 diff)
• fichier_relit_ARCH.c (modified) (2 diffs)
• fichier_relit_DIA2.c (modified) (1 diff)
• mesures_bolo.c (modified) (1 diff)
• sstbrut-ab.c (added)
• telecommande.c (modified) (3 diffs)

trunk/Poubelle/archediab.old/archediab.sources/c/acquisition_archeops.c

@@ -339 +339 @@
 //  -------------     block type 8 : block_bolo   ------------------    ------------
 //-----------------------------------------------------------------------------------------     
+#define  temps_UT(block)        (8.0609925+0.00011673636*(double)(block))
+
 void    traite_block_bolo(block_type_bolo*      blk)
 {
@@ -354 +356 @@
 //printf("numblock=%d  sec=%d \n",num_block_local,secondes);
 ecritD(fenetre_controle,con_time,"%d",secondes);
+ecritD(fenetre_controle,con_time,"%6.3f",temps_UT(num_block_local));
 
 nb_coups= gg->reglage.horloge.nb_mesures/2 - gg->reglage.horloge.temp_mort;

trunk/Poubelle/archediab.old/archediab.sources/c/auto.c

@@ -2 +2 @@
 #include "bolo.h" 
 #include "auto.h" 
+#include "arcunit.h" 
 #include "tm.h" 
 

trunk/Poubelle/archediab.old/archediab.sources/c/corel.c

@@ -1 +1 @@
 #include "diabolo.h"
 #include "corel.h" 
+#include "arcunit.h" 
 
 /*

trunk/Poubelle/archediab.old/archediab.sources/c/courbeVI.c

@@ -4 +4 @@
 #include "courbeVI.h"
 #include "fenetres_diabolo.h"
+#include "arcunit.h"
 
 int voie_bit;           // octet contenant dans chaque bit le flag qui dit si on equiloibre cette voie

trunk/Poubelle/archediab.old/archediab.sources/c/diabolo.c

@@ -46 +46 @@
 //flag=alerte(3,"   Archeops ou Planck  \r\r acquisition avec carte PCI ??"); // vaut 1 pour acquisition PCI
 //flag=2;       // en mode simulation
-if(clavier(touche_alt) ) flag=2; else flag=1;           // en mode acquisition
+flag=2;
+if(clavier(touche_alt) ) flag=1;                                        // en mode acquisition
 if(clavier(touche_controle) ) flag=4;                           // avec emission des telecommandes au demarrage
 if(clavier(touche_alt) && clavier(touche_controle) ) {
@@ -54 +55 @@
 #endif
 
-
+//alerte(1,"on a flag=%d ",flag);
 
 init_struct(flag);
@@ -71 +72 @@
 nouveautypefichier('DIA2',exec_DIA2);
 nouveautypefichier('ARCH',exec_ARCH);
+nouveautypefichier('TEXT',exec_ARCH);
 
 //nouveautypefichier('TEXT',exec_DIA2);

trunk/Poubelle/archediab.old/archediab.sources/c/dilution.c

@@ -2 +2 @@
 #include "dilution.h" 
 #include "controle.h" 
+#include "arcunit.h" 
 
 

trunk/Poubelle/archediab.old/archediab.sources/c/fichier_archeops.c

@@ -151 +151 @@
                         {
 #ifdef _archeops
-                        ouvre('ACTI',0,10,"lit_fichier_arch",exec_lit_fichier_ARCH,(void*)fen);
+                        ouvre('ACTI',0,1,"lit_fichier_arch",exec_lit_fichier_ARCH,(void*)fen);
 #else
                         printf(" ne peut pas relire les fichiers archeops \n");

trunk/Poubelle/archediab.old/archediab.sources/c/fichier_relit_ARCH.c

@@ -21 +21 @@
         {
         case ouverture  :       printf("\nlecture du fichier %s  \n",titre(fich));
+                                        {
+                                        char cc[12];
+                                        litF(fich,12,cc);
+                                        printf("debut fich= %x %x %x %x %x %x %x %x \n",cc[0],cc[1],cc[2],cc[3],cc[4],cc[5],cc[6],cc[7]);
+                                        }
                                 pos=0;
+                                select(fen);
                                 break;
 
@@ -30 +36 @@
         case tache_de_fond :
 
-                        if (  (pos+12) >  longueur(fich) )
-                                {
-                                printf("fin du fichier \n");
-                                ferme(fen);
+                        {
+                        int u;
+                        int nn,nb,ll;
+                        def_nom_block
+                                
+                        nn=0;
+                        do      {
+                                
+                                if (  (pos+12) >  longueur(fich) )
+                                        {
+                                        printf("fin du fichier \n");
+                                        ferme(fen);nn=-1;nb=0;
+                                        }
+                                else    {
+
+                                        position(fich,pos);
+                                        litF(fich,sizeof(block_type_modele),&bkt);
+                                        type=type_block(&bkt);
+                                        ll=longueur_block(&bkt);
+                                        if( (ll<16) ou (ll>50000) ) {pos+=4;printf(" erreur longueur ");nn=-1;nb=0;}
+                                        else    {
+                                                pos+=ll;
+                                                printf("block %d  :  %s \n",numero_block(&bkt),nom_block[type]);
+                                                if(!nn) nn=numero_block(&bkt);
+                                                u=tt->tm.pos_ecrit;
+                                                tt->tm.btm[u].tmtrx=bkt;
+                                                u++; if(u>=longueur_table_tm) u=0;
+                                                tt->tm.pos_ecrit=u;
+                                                nb=numero_block(&bkt);
+                                                }
+                                        }
                                 }
-
-                        else
-                                {
-                                int u;
-                                def_nom_block
-                                
-                                position(fich,pos);
-                                litF(fich,sizeof(block_type_modele),&bkt);
-                                type=type_block(&bkt);
-                                pos+=longueur_block(&bkt);
-                                printf("block %d  :  %s \n",numero_block(&bkt),nom_block[type]);
-                                
-                                u=tt->tm.pos_ecrit;
-                                tt->tm.btm[u].tmtrx=bkt;
-                                u++; if(u>=longueur_table_tm) u=0;
-                                tt->tm.pos_ecrit=u;
-                                }
+                        while(nb==nn);
+                        }
 
                         break;

trunk/Poubelle/archediab.old/archediab.sources/c/fichier_relit_DIA2.c

@@ -2 +2 @@
 #include "fichier.h"
 #include "bolo.h"
+#include "arcunit.h"
 
 

trunk/Poubelle/archediab.old/archediab.sources/c/mesures_bolo.c

@@ -1 +1 @@
 #include "diabolo.h"
 #include "bolo.h"
+#include "arcunit.h"
 
 //*********  coefficients  pour  les  mesures  bolo    ***************************************************

trunk/Poubelle/archediab.old/archediab.sources/c/telecommande.c

@@ -253 +253 @@
                                 if(ss[16]!='7') erreur("adresse not equal to 7");
                                 if(ss[25]!='7') erreur("adresse not equal to 7");
-                                while( (TickCount()>t) et (TickCount()<(t+60*15)) )     // 15sec 
+/*                              while( (TickCount()>t) et (TickCount()<(t+60*15)) )     // 15sec 
                                         {
                                         static int q;
@@ -261 +261 @@
                                         controlemanip(0);
                                         }
-                                son(133);
+*/                              son(133);
 
                                 printf(" envoi de la telecommande : %s \n",ss);
@@ -267 +267 @@
                                 t=TickCount();                  //  10 secondes  (tick = 1/60 sec) 
                                 }
-/*                      else    {
-                                tc_char(0x11);  //  synchro
-                                tc_int(debut_telecommande);
-                                for(j=0;j<8;j++)        tc_char(mot[j]);
-                                tc_int(fin_telecommande);
-                                tc_char(0x00);tc_char(0x00);    //  synchro
-                                }
-*/
                         break;