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

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

archediab 26

File size: 1.3 KB
RevLine 
[643]1SUPPRIME DU PROGRAMME
2
[637]3#include "diabolo.h"
4#include "config_transputer.h"
5
6
7
8//-------------------- fonction exec de la fenetre : config_transputer -------------------------------
9
10
11void exec_config_transputer(int fen,int item,double valeur,...)
12{
13int i;
14if(item>1000) item-=1000;
15if( (item!=ouverture) && (item<0) )return;
16if(gg->flag_tc_reduite)
17// for(i=0;i<nb_type_blocks;i++)
18 for(i=0;i<14;i++)
19 {
20 int a;
21 a=litD(fen,ct_cadence+i,0);
22 if((gg->reglage.vitesse[i]!=a)
23 ou (clavier(touche_alt) && (item==ct_cadence+i) ) )
24 emission_tc_reduite(tc2_horloge,tc3_vitesse+i,a);
25// gg->reglage.vitesse[i]=a;
26 }
27
28else {
29 char mot_tc[10];
30 if(item>0)
31 {
32 mot_tc[0]=tc_cadence1;
33 for(i=0;i<7;i++) mot_tc[i+1]=litD(fen,ct_cadence+i,0);
34 emission_telecommande(tc_dir_transputer,mot_tc);
35 mot_tc[0]=tc_cadence2;
36 for(i=0;i<7;i++) mot_tc[i+1]=litD(fen,ct_cadence+7+i,0);
37 emission_telecommande(tc_dir_transputer,mot_tc);
38 mot_tc[0]=tc_cadence3;
39 for(i=0;i<2;i++) mot_tc[i+1]=litD(fen,ct_cadence+14+i,0);
40 emission_telecommande(tc_dir_transputer,mot_tc);
41 /*
42 mot_tc[0]=tc_switch_dil;
43 for(i=0;i<7;i++) mot_tc[i+1]=litD(fen,ct_dil+i,0);
44 emission_telecommande(tc_dir_transputer,mot_tc);
45 */
46 }
47 for(i=0;i<16;i++)
48 gg->reglage.vitesse[i]=litD(fen,ct_cadence+i,0);
49
50 }
51
52
53}
54
55
Note: See TracBrowser for help on using the repository browser.