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

#include "diabolo.h"
#include "corel.h" 
#include "arcunit.h" 

/*
double coef_corel[nb_max_bolo][nb_max_bolo];
int flag_corel[nb_max_bolo];
*/





void corel(void)
{
int j;
//int k;
def_gains;
/*if(gg->flag_corel)
        for(j=0;j<nb_max_bolo;j++)
                {
                gg->corel[j]=0;
                if(flag_corel[j])
                        {
                        for(k=0;k<parametres.nb_bolo;k++)       gg->corel[j]+=xbolbrut(k)*coef_corel[j][k];
                        gg->nb_trace=j+1;
                        } 
                }
else
*/
        {
        for(j=0;j<nb_max_bolo;j++)      gg->corel[j]=xbolbrut(j);
        for(j=0;j<3;j++)                gg->corel[nb_max_bolo+j]=gg->don.gyro[j];
        for(j=0;j<46;j++)               gg->corel[nb_max_bolo+3+j]=xbolbrut(j);
        }
        
}                                       









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


void exec_choix_corel(int fen,int item,double valeur,...) 
{
//int i,j;
//char ss[250];

if(item>1000) item-=1000;               // pour appeler le case pour tous les cara d'un edit texte


switch(item)
    {
        case caseferme  :       cache(fen);stop_exec(fen);      break;
    case ouverture               : cache(fen);
    case chcr_choix_corel_1 :
    case chcr_bouton_1 :
    case chcr_choix_corel_13 :
    case chcr_bouton_14 :
    case chcr_choix_corel_15 :
    case chcr_bouton_16 :
    case chcr_choix_corel_17 :
    case chcr_bouton_18 :
    case chcr_choix_corel_19 :
    case chcr_bouton_110 :
    case chcr_choix_corel_111 :
    case chcr_bouton_112 :
    case chcr_choix_corel_113 :
    case chcr_bouton_114 :
    case chcr_choix_corel_115 :
    case chcr_bouton_116 :
    case chcr_choix_corel_117 :
    case chcr_bouton_118 :
/*      for(i=0;i<nb_max_bolo;i++)
                if(litD(fen,chcr_bouton_1+2*i,0L))
                        {
                        flag_corel[i]=1;
                        for(j=0;j<nb_max_bolo;j++)      coef_corel[i][j]=0;
                        litD(fen,chcr_choix_corel_1+2*i,ss);
                        valeurs(ss,coef_corel[i]);
                        printf("canal%d :",i+1); 
                        for(j=0;j<nb_max_bolo;j++)
                                {
                                if(coef_corel[i][j])
                                printf("   b%d * %g  ,",j,coef_corel[i][j]);
                                }
                        printf("\n");
                        }
                else    flag_corel[i]=0;
        printf("\n");

*/    
    default                      :   break;
    }

}