source: Sophya/trunk/Poubelle/archediab.old/archediab.sources/c/FindPeri.c@ 2012

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

archediab 28 vol
File size: 2.1 KB
RevLine 
[649]1#include "manip.h"
2#include "FindPeri.h"
3#include "recons_sst.h"
4static float Liminffene=10.,Limsupfene=40.;
5double memocoupflux;
6float pasx;
7
8
9
10//nouveauD(0,FindPeri_id,"FindPeri",exec_FindPeri);
11
12
13//-------------------- fonction exec de la fenetre : FindPeri -------------------------------
14
15
16void exec_FindPeri(int fen,int item,double valeur,...)
17{
18if(item>1000) item-=1000; // pour appeler le case pour tous les cara d'un edit texte
19
20switch(item)
21 {
22 case ouverture :
23 selectgra(fen);
24 graph->ymin=0.;
25 graph->ymax=500.;
26 graph->ypas=100;
27 graph->xmin=Liminffene;
28 graph->xmax=Limsupfene;
29// printf("limites a l'ouverture %f %f \n",Liminffene,Limsupfene);
30 pasx=10.;
31 if(Liminffene!=10.)pasx=1.;
32 graph->xpas=pasx;
33 graph->grille=0;
34 graph->graduations=1;
35 graph->taille_graduations=10;
36 graph->sans_image=0;
37 graph->avec_icones=0;
38 strcpy(graph->xtitre, "delta temps");
39 strcpy(graph->ytitre, "flux");
40 efface(fen);
41 retrace(fen);
42 ecritD(fen,FP_unite6,"%d",CpFl()); //corFC
43 ecritD(fen,FP_vperesti," %7.3f ",DonnePeriod());//corFC
44// graph->ytitre[0]=0;
45
46// setup_gra(fen);
47
48 break;
49 case fermeture :
50 memocoupflux=Rd_CpFl(fen);
51// Liminffene=graph->xmin;
52// Limsupfene=graph->xmax;
53// printf("limites a la fermeture %f %f \n",Liminffene,Limsupfene);
54
55 break;
56 case FP_cpfl :
57 break;
58 case FP_vcpfl :
59 init_recons_sst();
60 efface(fen);
61 break;
62 case FP_periodest :
63 break;
64 case FP_vperesti :
65 break;
66 case FP_unite :
67 break;
68 case FP_unite6 :
69 break;
70 default : break;
71 }
72}
73
74
75void passargu(float Liminff,float Limsupf,float Papa)
76{
77Liminffene=Liminff;
78Limsupfene=Limsupf;
79pasx=Papa;
80}
81
82double Rd_CpFl(int fen)
83{
84double argfen;
85if(fen)
86{
87 argfen=litD(fen,FP_unite6,0L);
88 if(argfen<1)argfen=1;
89 if(argfen>2047)argfen=2047;
90 ecritD(fen,FP_unite6,"%d",(int)(argfen));
91 memocoupflux=argfen;
92 }else
93 {
94 argfen=memocoupflux;
95 }
96 return argfen;
97}
Note: See TracBrowser for help on using the repository browser.