source: Sophya/trunk/Poubelle/archediab.old/archediab.sources/c/sstbrut-ab.c@ 2016

#include "diabolo.h" 
#include "sstbrut.h" 
#include "compress.h" 



//--------------------  fonction  exec  de  la  fenetre : senseur_stellaire  -------------------------------


void exec_sstbrut(int fen,int item,double valeur,...) 
{
if(item>1000) item-=1000;               // pour appeler le case pour tous les cara d'un edit texte

switch(item)
    {
    case ouverture               :
                        
                 break;
    case fermeture               :
                 break;
    case sstb_azer :
                 break;
    case sstb_sortie_brute :
                 break;
    default  :   break;
    }
}

//#define       bit_sst(i,j,k)  (((blk->sst[i][i*3+k/4])>>(j+8*k%4))&1)   


//   i est le numero du point dans le block de 72
//      j       est le numero de la diode  de 0 a 47
//      j%8     est la place du bit dans le mot de 8 bit 
//      j/8     (de 0 a 5 ) est la serie de mesure
//      k est le numero du bit dans le mot de 12 bits
//              les k se suivent dans les données

//   k est le numero du point dans le block de 72
//      i       est le numero de la diode  de 0 a 47
//      j       est le paquet de 4 bits de 0 a 2 


// on prend des paquets de 4 bits
// chaque diode est formee de 3 paquets
// dans l'ordre :  les paquets de 8 diodes  (8 paquets)
//  recommencer 3 fois  (24 paquets)
// enfin, faire 6 fois cette operation  (144 paquets)

// soit q  la place du paquet  i,j,k
#define place_paquet(i,j)        (i/8) * 24  + j*8 + (i%8) 

void    traite_block_sst_comprime_brut  (block_type_sst_comprime*       blk)
{
int i,q,k,j,prem_d;
double x;
int temps_cntl;
double secondes;
double  y[15];

long sst[nb_photo_diodes][nb_per_block*2];

if(!fenetre(fenetre_sstbrut)) return;

printf(" k de la photodiode N03  (2 dans tableau = %d \n",blk->sst[2][1]&0xf);

for(j=0;j<nb_photo_diodes;j++)   decompress_4_1((long *)blk->sst[j],sst[j],nb_per_block*2);

prem_d=litD(fenetre_sstbrut,sstb_prem_diode,0L);

for(k=0;k<72;k++)
        {
        for(i=0;i<10;i++)               //  seulement 12 diodes 
                {
                q=i+prem_d-1;
                                        
                if(q<nb_photo_diodes) x=(double)(sst[q][k]&0xfff) ;     else x=0;
                x-=2048;
                y[i]=x;
                }
        //      printf(" y = %g %g %g %g %g \n",y[0],y[1],y[2],y[3],y[4]);
        temps_cntl =numero_block(blk)*nb_per_block*2+k;
        secondes=gg->periode_echantillonage*(double)temps_cntl-gg->temps_origine;
        tracen(fenetre_sstbrut,10,secondes,y);
        }



}



void    traite_block_sst_brut(block_type_sst*   blk)
{
int i,j,k;
double  y[15];
double  x;

int temps_cntl;
double secondes;
int a,b,b0,b1,b2;
int prem_d;

if(!fenetre(fenetre_sstbrut)) return;
//  ecriture des valeurs brutes du senseur stellaire
//  les numero 0 et 4  sont dediés aux thermometres
//  pour l'instant machent bien 1 2 3   8 9 10 11   
if(litD(fenetre_sstbrut,sstb_sortie_brute,0))
        {
        if(!fenetre(fenetre_senseur_stellaire_lecture_brute)) nouveauT(fenetre_senseur_stellaire_lecture_brute,0,"lecture senseur stellaire");

        ecritT(fenetre_senseur_stellaire_lecture_brute,fin_f,"\nsenseur stellaire  \n");


//      k=0;
        for(k=0;k<4;k++)
                {
                for(i=0;i<16;i++)               //  16 senseurs 
                        {
                        for(j=0;j<3;j++)                //  3 paquets
                                {
                                a=place_paquet(i,j);
                                b= ( blk->sst[k][a/8] >>( (a%8)*4) ) & 0xf;
                                ecritT(fenetre_senseur_stellaire_lecture_brute,fin_f,"%x",b);
                                }
                        ecritT(fenetre_senseur_stellaire_lecture_brute,fin_f,"  ");
                        }
                ecritT(fenetre_senseur_stellaire_lecture_brute,fin_f,"\n");
                }

         ecritT(fenetre_senseur_stellaire_lecture_brute,fin_f,"\n");

         }

//k=0;
prem_d=litD(fenetre_sstbrut,sstb_prem_diode,0L);
for(k=0;k<72;k++)
        {
         for(i=0;i<12;i++)              //  seulement 12 diodes 
                {
                int q;
                q=i+prem_d-1;
                                
                a=place_paquet(q,0);
                b0= ( blk->sst[k][a/8] >>( (a%8)*4) ) & 0xf;
                a=place_paquet(q,1);
                b1= ( blk->sst[k][a/8] >>( (a%8)*4) ) & 0xf;
                a=place_paquet(q,2);
                b2= ( blk->sst[k][a/8] >>( (a%8)*4) ) & 0xf;
                

                x=(double)( (b0<<8) | (b1<<4) |  b2 ) ;
                if(x>2047) x-=4096;
                y[i]=x;
                }
//      printf(" y = %g %g %g %g %g \n",y[0],y[1],y[2],y[3],y[4]);
        temps_cntl =numero_block(blk)*nb_per_block*2+k;
        secondes=gg->periode_echantillonage*(double)temps_cntl-gg->temps_origine;
        tracen(fenetre_sstbrut,12,secondes,y);
        }
}


                
//      les 46 valeurs en hexa
//      i=0;                    //  juste le premier point du block
//      for(i=0;i<72;i++)
/*
for(i=0;i<72;i++)
        {

         for(j=0;j<12;j++)              //  seulement les 12 premieres diodes 
                {
                x=0;
                for(k=0;k<12;k++)       x=(x<<1)  | bit_sst(i,j,k);
                y[j]=(double)x;
                }
        temps_cntl =numero_block(blk)*nb_per_block*2+i;
        secondes=gg->periode_echantillonage*(double)temps_cntl-gg->temps_origine;
        tracen(fenetre_senseur_stellaire,12,secondes,y);
        }
                        
*/
/*      i=1;                    //  juste le premier point du block
//      for(i=0;i<72;i++)
                {
                for(k=0;k<12;k++)               //  12 bits
                        {
                        for(j=0;j<35;j++)               //  46 senseurs 
                                {
                                ecritT(fenetre_senseur_stellaire_lecture_brute,fin_f,"%d   ",bit_sst(i,j,k));
                                }
                        ecritT(fenetre_senseur_stellaire_lecture_brute,fin_f,"\n");
                        }
                ecritT(fenetre_senseur_stellaire_lecture_brute,fin_f,"\n");
                }
                
//      les 46 valeurs en hexa
//      i=0;                    //  juste le premier point du block
//      for(i=0;i<72;i++)
        for(i=0;i<10;i++)
                {
                for(j=0;j<35;j++)               //  46 senseurs 
                        {
                        x=0;
                        for(k=0;k<12;k++)       x=(x<<1)  | bit_sst(i,j,k);
                        ecritT(fenetre_senseur_stellaire_lecture_brute,fin_f,"%3x ",x);
                        }
                ecritT(fenetre_senseur_stellaire_lecture_brute,fin_f,"\n");
                }
                        
        
        }

                        
*/