00001
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013
00014
00015
00016
00017
00018
00019
00020
00021
00022
00023
00024
00025
00026
00027 #define PFRAC1(x) ((MYFLT)((x) & ftp1->lomask) * ftp1->lodiv)
00028
00029 typedef struct ovrlap {
00030 struct ovrlap *nxtact, *nxtfree;
00031 long timrem, dectim, formphs, forminc, risphs, risinc, decphs, decinc;
00032 MYFLT curamp, expamp;
00033 MYFLT glissbas;
00034 long sampct;
00035 } OVRLAP;
00036
00037 typedef struct {
00038 OPDS h;
00039 MYFLT *ar, *xamp, *xfund, *xform, *koct, *kband, *kris, *kdur, *kdec;
00040 MYFLT *iolaps, *ifna, *ifnb, *itotdur, *iphs, *ifmode, *iskip;
00041
00042 OVRLAP basovrlap;
00043 long durtogo, fundphs, fofcount, prvsmps;
00044 MYFLT prvband, expamp, preamp;
00045 short foftype;
00046 short xincod, ampcod, fundcod, formcod, fmtmod;
00047 AUXCH auxch;
00048 FUNC *ftp1, *ftp2;
00049 } FOFS;
00050
00051 typedef struct {
00052 OPDS h;
00053 MYFLT *ar, *asig, *kest, *kvar, *kfrq1, *kfrq2;
00054 MYFLT *icpsmode, *ilowest, *iptrkprd;
00055 long nbufsmps, n2bufsmps, phase1, phase2, period, autoktim, autokcnt;
00056 long mindist, maxdist, max2dist, lomaxdist, cpsmode;
00057 MYFLT c1, c2, prvq, prvest, prvar, minfrq, estprd, lsicvt;
00058 MYFLT *bufp, *midp, *inp1, *inp2;
00059 MYFLT *bufq, *midq, *inq1, *inq2, *autobuf;
00060 MYFLT *puls1, *puls2, *puls3, lin1, lin2, lin3;
00061 MYFLT inc1, inc2, inc11, inc12, inc21, inc22, inc31, inc32;
00062 long cnt1, cnt2, cnt3, pnt1, pnt2, pnt3;
00063 long pnt11, pnt12, pnt13, pnt21, pnt22, pnt23, pnt31, pnt32, pnt33;
00064 AUXCH auxch;
00065 } HARMON;