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

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

archediab version 24 initial import
File size: 1.9 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 }
33
34}
35
36
37
38
39
40
41
42
43
44//-------------------- fonction exec de la fenetre : choix_corel -------------------------------
45
46
47void exec_choix_corel(int fen,int item,double valeur,...)
48{
49//int i,j;
50//char ss[250];
51
52if(item>1000) item-=1000; // pour appeler le case pour tous les cara d'un edit texte
53
54
55switch(item)
56 {
57 case caseferme : cache(fen);stop_exec(fen); break;
58 case ouverture : cache(fen);
59 case chcr_choix_corel_1 :
60 case chcr_bouton_1 :
61 case chcr_choix_corel_13 :
62 case chcr_bouton_14 :
63 case chcr_choix_corel_15 :
64 case chcr_bouton_16 :
65 case chcr_choix_corel_17 :
66 case chcr_bouton_18 :
67 case chcr_choix_corel_19 :
68 case chcr_bouton_110 :
69 case chcr_choix_corel_111 :
70 case chcr_bouton_112 :
71 case chcr_choix_corel_113 :
72 case chcr_bouton_114 :
73 case chcr_choix_corel_115 :
74 case chcr_bouton_116 :
75 case chcr_choix_corel_117 :
76 case chcr_bouton_118 :
77/* for(i=0;i<nb_max_bolo;i++)
78 if(litD(fen,chcr_bouton_1+2*i,0L))
79 {
80 flag_corel[i]=1;
81 for(j=0;j<nb_max_bolo;j++) coef_corel[i][j]=0;
82 litD(fen,chcr_choix_corel_1+2*i,ss);
83 valeurs(ss,coef_corel[i]);
84 printf("canal%d :",i+1);
85 for(j=0;j<nb_max_bolo;j++)
86 {
87 if(coef_corel[i][j])
88 printf(" b%d * %g ,",j,coef_corel[i][j]);
89 }
90 printf("\n");
91 }
92 else flag_corel[i]=0;
93 printf("\n");
94
95*/
96 default : break;
97 }
98
99}
100
101
Note: See TracBrowser for help on using the repository browser.