source: Sophya/trunk/Poubelle/archediab.old/archediab.sources/c/corel.c@ 649

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

archediab 28 vol
File size: 2.0 KB
Line 
1#include "diabolo.h"
2#include "corel.h"
3
4/*
5double coef_corel[nb_max_bolo][nb_max_bolo];
6int flag_corel[nb_max_bolo];
7*/
8
9
10
11
12
13void corel(void)
14{
15int j;
16//int k;
17def_gains;
18/*if(gg->flag_corel)
19 for(j=0;j<nb_max_bolo;j++)
20 {
21 gg->corel[j]=0;
22 if(flag_corel[j])
23 {
24 for(k=0;k<parametres.nb_bolo;k++) gg->corel[j]+=xbolbrut(k)*coef_corel[j][k];
25 gg->nb_trace=j+1;
26 }
27 }
28else
29*/
30 {
31 for(j=0;j<nb_max_bolo;j++) gg->corel[j]=xbolbrut(j);
32 for(j=0;j<3;j++) gg->corel[nb_max_bolo+j]=gg->don.gyro[j];
33 for(j=0;j<46;j++) gg->corel[nb_max_bolo+3+j]=xbolbrut(j);
34 }
35
36}
37
38
39
40
41
42
43
44
45
46//-------------------- fonction exec de la fenetre : choix_corel -------------------------------
47
48
49void exec_choix_corel(int fen,int item,double valeur,...)
50{
51//int i,j;
52//char ss[250];
53
54if(item>1000) item-=1000; // pour appeler le case pour tous les cara d'un edit texte
55
56
57switch(item)
58 {
59 case caseferme : cache(fen);stop_exec(fen); break;
60 case ouverture : cache(fen);
61 case chcr_choix_corel_1 :
62 case chcr_bouton_1 :
63 case chcr_choix_corel_13 :
64 case chcr_bouton_14 :
65 case chcr_choix_corel_15 :
66 case chcr_bouton_16 :
67 case chcr_choix_corel_17 :
68 case chcr_bouton_18 :
69 case chcr_choix_corel_19 :
70 case chcr_bouton_110 :
71 case chcr_choix_corel_111 :
72 case chcr_bouton_112 :
73 case chcr_choix_corel_113 :
74 case chcr_bouton_114 :
75 case chcr_choix_corel_115 :
76 case chcr_bouton_116 :
77 case chcr_choix_corel_117 :
78 case chcr_bouton_118 :
79/* for(i=0;i<nb_max_bolo;i++)
80 if(litD(fen,chcr_bouton_1+2*i,0L))
81 {
82 flag_corel[i]=1;
83 for(j=0;j<nb_max_bolo;j++) coef_corel[i][j]=0;
84 litD(fen,chcr_choix_corel_1+2*i,ss);
85 valeurs(ss,coef_corel[i]);
86 printf("canal%d :",i+1);
87 for(j=0;j<nb_max_bolo;j++)
88 {
89 if(coef_corel[i][j])
90 printf(" b%d * %g ,",j,coef_corel[i][j]);
91 }
92 printf("\n");
93 }
94 else flag_corel[i]=0;
95 printf("\n");
96
97*/
98 default : break;
99 }
100
101}
102
103
Note: See TracBrowser for help on using the repository browser.