source: Sophya/trunk/Poubelle/archediab.old/archediab.sources/c/sstbrut.c@ 2012

#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){
  block_type_sst blk2;
  unsigned long sst_vrai[nb_per_block*2];
  int j,jc,i,k;
  unsigned long a,b0,b1,b2;

  
  for (j=0; j<18; j++)
    for (i=0; i<nb_per_block*2; i++)
      blk2.sst[i][j] = 0;

  jc=0;
  for(j=0;j<48;j++) {
    if ((j!=0) && (j!=4)) 
    {
      decompress_4_1((long*)blk->sst[jc],(long*)sst_vrai,nb_per_block*2);
      for(k=0;k<nb_per_block*2;k++) {
         b2 = sst_vrai[k] & 0xf;
         b1 = (sst_vrai[k] >> 4) & 0xf;
         b0 = (sst_vrai[k] >> 8) & 0xf;
         a=place_paquet(j,0);
         blk2.sst[k][a/8] |= (b0 << (a%8)*4);
         a=place_paquet(j,1);
         blk2.sst[k][a/8] |= (b1 << (a%8)*4);
         a=place_paquet(j,2);
         blk2.sst[k][a/8] |= (b2 << (a%8)*4);
      }
      jc++;
    }
  }
  valide_block((block_type_modele*)&blk2,block_sst,numero_block(blk));  
  traite_block_sst_brut(&blk2);
}


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
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;
                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,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");
                }
                        
        
        }

                        
*/