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

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

archediab 28 vol
File size: 5.1 KB
Line 
1#include "diabolo.h"
2#include "sstbrut.h"
3#include "compress.h"
4
5
6
7//-------------------- fonction exec de la fenetre : senseur_stellaire -------------------------------
8
9
10void exec_sstbrut(int fen,int item,double valeur,...)
11{
12if(item>1000) item-=1000; // pour appeler le case pour tous les cara d'un edit texte
13
14switch(item)
15 {
16 case ouverture :
17
18 break;
19 case fermeture :
20 break;
21 case sstb_azer :
22 break;
23 case sstb_sortie_brute :
24 break;
25 default : break;
26 }
27}
28
29//#define bit_sst(i,j,k) (((blk->sst[i][i*3+k/4])>>(j+8*k%4))&1)
30
31
32// i est le numero du point dans le block de 72
33// j est le numero de la diode de 0 a 47
34// j%8 est la place du bit dans le mot de 8 bit
35// j/8 (de 0 a 5 ) est la serie de mesure
36// k est le numero du bit dans le mot de 12 bits
37// les k se suivent dans les données
38
39// k est le numero du point dans le block de 72
40// i est le numero de la diode de 0 a 47
41// j est le paquet de 4 bits de 0 a 2
42
43
44// on prend des paquets de 4 bits
45// chaque diode est formee de 3 paquets
46// dans l'ordre : les paquets de 8 diodes (8 paquets)
47// recommencer 3 fois (24 paquets)
48// enfin, faire 6 fois cette operation (144 paquets)
49
50// soit q la place du paquet i,j,k
51#define place_paquet(i,j) (i/8) * 24 + j*8 + (i%8)
52
53void traite_block_sst_comprime_brut (block_type_sst_comprime* blk){
54 block_type_sst blk2;
55 unsigned long sst_vrai[nb_per_block*2];
56 int j,jc,i,k;
57 unsigned long a,b0,b1,b2;
58
59
60 for (j=0; j<18; j++)
61 for (i=0; i<nb_per_block*2; i++)
62 blk2.sst[i][j] = 0;
63
64 jc=0;
65 for(j=0;j<48;j++) {
66 if ((j!=0) && (j!=4))
67 {
68 decompress_4_1((long*)blk->sst[jc],(long*)sst_vrai,nb_per_block*2);
69 for(k=0;k<nb_per_block*2;k++) {
70 b2 = sst_vrai[k] & 0xf;
71 b1 = (sst_vrai[k] >> 4) & 0xf;
72 b0 = (sst_vrai[k] >> 8) & 0xf;
73 a=place_paquet(j,0);
74 blk2.sst[k][a/8] |= (b0 << (a%8)*4);
75 a=place_paquet(j,1);
76 blk2.sst[k][a/8] |= (b1 << (a%8)*4);
77 a=place_paquet(j,2);
78 blk2.sst[k][a/8] |= (b2 << (a%8)*4);
79 }
80 jc++;
81 }
82 }
83 valide_block((block_type_modele*)&blk2,block_sst,numero_block(blk));
84 traite_block_sst_brut(&blk2);
85}
86
87
88void traite_block_sst_brut(block_type_sst* blk)
89{
90int i,j,k;
91double y[15];
92double x;
93
94int temps_cntl;
95double secondes;
96int a,b,b0,b1,b2;
97int prem_d;
98
99if(!fenetre(fenetre_sstbrut)) return;
100// ecriture des valeurs brutes du senseur stellaire
101if(litD(fenetre_sstbrut,sstb_sortie_brute,0))
102 {
103 if(!fenetre(fenetre_senseur_stellaire_lecture_brute)) nouveauT(fenetre_senseur_stellaire_lecture_brute,0,"lecture senseur stellaire");
104
105 ecritT(fenetre_senseur_stellaire_lecture_brute,fin_f,"\nsenseur stellaire \n");
106
107
108// k=0;
109 for(k=0;k<4;k++)
110 {
111 for(i=0;i<16;i++) // 16 senseurs
112 {
113 for(j=0;j<3;j++) // 3 paquets
114 {
115 a=place_paquet(i,j);
116 b= ( blk->sst[k][a/8] >>( (a%8)*4) ) & 0xf;
117 ecritT(fenetre_senseur_stellaire_lecture_brute,fin_f,"%x",b);
118 }
119 ecritT(fenetre_senseur_stellaire_lecture_brute,fin_f," ");
120 }
121 ecritT(fenetre_senseur_stellaire_lecture_brute,fin_f,"\n");
122 }
123
124 ecritT(fenetre_senseur_stellaire_lecture_brute,fin_f,"\n");
125
126 }
127
128//k=0;
129prem_d=litD(fenetre_sstbrut,sstb_prem_diode,0L);
130for(k=0;k<72;k++)
131 {
132 for(i=0;i<12;i++) // seulement 12 diodes
133 {
134 int q;
135 q=i+prem_d-1;
136
137 a=place_paquet(q,0);
138 b0= ( blk->sst[k][a/8] >>( (a%8)*4) ) & 0xf;
139 a=place_paquet(q,1);
140 b1= ( blk->sst[k][a/8] >>( (a%8)*4) ) & 0xf;
141 a=place_paquet(q,2);
142 b2= ( blk->sst[k][a/8] >>( (a%8)*4) ) & 0xf;
143
144
145 x=(double)( (b0<<8) | (b1<<4) | b2 ) ;
146 //if(x>2047) x-=4096;
147 x-=2048;
148 y[i]=x;
149 }
150// printf(" y = %g %g %g %g %g \n",y[0],y[1],y[2],y[3],y[4]);
151 temps_cntl =numero_block(blk)*nb_per_block*2+k;
152 secondes=gg->periode_echantillonage*(double)temps_cntl-gg->temps_origine;
153 tracen(fenetre_sstbrut,12,secondes,y);
154 }
155}
156
157
158
159// les 46 valeurs en hexa
160// i=0; // juste le premier point du block
161// for(i=0;i<72;i++)
162/*
163for(i=0;i<72;i++)
164 {
165
166 for(j=0;j<12;j++) // seulement les 12 premieres diodes
167 {
168 x=0;
169 for(k=0;k<12;k++) x=(x<<1) | bit_sst(i,j,k);
170 y[j]=(double)x;
171 }
172 temps_cntl =numero_block(blk)*nb_per_block*2+i;
173 secondes=gg->periode_echantillonage*(double)temps_cntl-gg->temps_origine;
174 tracen(fenetre_senseur_stellaire,12,secondes,y);
175 }
176
177*/
178/* i=1; // juste le premier point du block
179// for(i=0;i<72;i++)
180 {
181 for(k=0;k<12;k++) // 12 bits
182 {
183 for(j=0;j<35;j++) // 46 senseurs
184 {
185 ecritT(fenetre_senseur_stellaire_lecture_brute,fin_f,"%d ",bit_sst(i,j,k));
186 }
187 ecritT(fenetre_senseur_stellaire_lecture_brute,fin_f,"\n");
188 }
189 ecritT(fenetre_senseur_stellaire_lecture_brute,fin_f,"\n");
190 }
191
192// les 46 valeurs en hexa
193// i=0; // juste le premier point du block
194// for(i=0;i<72;i++)
195 for(i=0;i<10;i++)
196 {
197 for(j=0;j<35;j++) // 46 senseurs
198 {
199 x=0;
200 for(k=0;k<12;k++) x=(x<<1) | bit_sst(i,j,k);
201 ecritT(fenetre_senseur_stellaire_lecture_brute,fin_f,"%3x ",x);
202 }
203 ecritT(fenetre_senseur_stellaire_lecture_brute,fin_f,"\n");
204 }
205
206
207 }
208
209
210*/
Note: See TracBrowser for help on using the repository browser.