Changeset 7258c6a in buchla-68k for ram/wscalc.c
- Timestamp:
- 07/09/2017 04:45:34 PM (7 years ago)
- Branches:
- master
- Children:
- 8618599
- Parents:
- 0292fbb
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
ram/wscalc.c
r0292fbb r7258c6a 18 18 #define WAVESMIN 1023 19 19 20 extern short curwhrm;20 extern int16_t curwhrm; 21 21 22 extern longhwave[NUMWPCAL];22 extern int32_t hwave[NUMWPCAL]; 23 23 24 extern short offsets[NUMWPCAL];25 extern short vmtab[NUMHARM];26 extern short wsbuf[NUMWPCAL];24 extern int16_t offsets[NUMWPCAL]; 25 extern int16_t vmtab[NUMHARM]; 26 extern int16_t wsbuf[NUMWPCAL]; 27 27 28 extern longvknm[NUMHARM][NUMWPCAL];28 extern int32_t vknm[NUMHARM][NUMWPCAL]; 29 29 30 30 #include "knmtab.h" /* short knmtab[NUMHARM][NUMWPCAL]; */ … … 40 40 */ 41 41 42 void adj( short wshar)42 void adj(int16_t wshar) 43 43 { 44 register short wspnt;45 register longharval;46 register short *kp;47 register long*vp;44 register int16_t wspnt; 45 register int32_t harval; 46 register int16_t *kp; 47 register int32_t *vp; 48 48 49 49 vp = &vknm[wshar][0]; … … 77 77 void wadj(void) 78 78 { 79 register short wshar;79 register int16_t wshar; 80 80 81 81 for (wshar = 0; wshar < NUMHARM; wshar++) … … 108 108 void wscalc(void) 109 109 { 110 register short wspnt, wshar;111 register longhfac, hmax, temp;110 register int16_t wspnt, wshar; 111 register int32_t hfac, hmax, temp; 112 112 113 113 hmax = WAVESMIN; /* set minimum scaling value */ … … 132 132 /* calculate the scale factor */ 133 133 134 hfac = (( long)WAVESMAX << 16) / hmax;134 hfac = ((int32_t)WAVESMAX << 16) / hmax; 135 135 136 136 /* scale the waveshape */
Note:
See TracChangeset
for help on using the changeset viewer.