source: buchla-68k/ram/swinit.c@ 0c834c5

Last change on this file since 0c834c5 was 0c834c5, checked in by Thomas Lopatic <thomas@…>, 7 years ago

Prototypes for global function pointers. Consistent global types.
  • Property mode set to 100644
File size: 8.6 KB
Line 
1/*
2 =============================================================================
3 swinit.c -- MIDAS-VII -- more variable definitions and initializations
4 Version 12 -- 1988-10-12 -- D.N. Lynx Crowe
5 =============================================================================
6*/
7
8#define FET_DEFS 1 /* so fields.h gets things right */
9
10#include "stddefs.h"
11#include "scwheel.h"
12#include "score.h"
13#include "fields.h"
14#include "vsdd.h"
15#include "vsddsw.h"
16#include "vsddvars.h"
17
18#include "midas.h"
19
20#include "scdsp.h"
21#include "libdsp.h"
22#include "wsdsp.h"
23
24extern short swctrl;
25extern short swdir;
26extern short swfiin;
27extern short swflag;
28
29extern short swfifo[NSWFIFO];
30
31/*
32
33*/
34
35BOOL se_chg; /* Score free list changed flag */
36
37PFS (*oldsw)[]; /* saved swpt value */
38PFS (*swpt)[]; /* switch dispatch table pointer */
39
40PFS aswtbl[14]; /* assignment switch table */
41
42void (*curmove)(void); /* cursor move function */
43short (*curtype)(void); /* cursor type function */
44void (*cx_key)(void); /* x rate calculation */
45void (*cx_upd)(void); /* x update */
46void (*cy_key)(void); /* y rate calculation */
47void (*cy_upd)(void); /* y update */
48void (*d_key)(void); /* in-field data key processor */
49void (*e_key)(void); /* E key processor */
50void (*m_key)(void); /* M key processor */
51void (*itxput)(short row, short col, char *txt, short tag);
52 /* instrument menu text put function */
53void (*not_fld)(short k); /* not-in-field data key processor */
54void (*olddkey)(void); /* saved d_key value */
55void (*oldekey)(void); /* saved e_key value */
56void (*oldmkey)(void); /* saved m_key value */
57void (*oldxkey)(void); /* saved x_key value */
58void (*premove)(void); /* cursor pre-move function */
59void (*pstmove)(void); /* cursor post-move function */
60void (*vt_adv)(void); /* vtyper data cursor advance function */
61void (*vt_bsp)(void); /* vtyper data cursor backspace function */
62void (*vt_cdn)(void); /* vtyper data cursor down function */
63void (*vt_cup)(void); /* vtyper data cursor up function */
64void (*vt_dsp)(unsigned *obj, unsigned fg, unsigned bg, short row, short col, char *buf);
65 /* vtyper display function */
66void (*vt_stop)(void); /* vtyper exit function */
67void (*x_key)(void); /* X key processor */
68void (*xy_dn)(void); /* cursor - finger on (down) */
69void (*xy_up)(void); /* cursor - finger off (up) */
70
71short *cratex; /* cursor x rate table pointer */
72short *cratey; /* cursor x rate table pointer */
73
74short BotEdge; /* configuration box bottom edge */
75short LftEdge; /* configuration box left edge */
76short RgtEdge; /* configuration box right edge */
77short TopEdge; /* configuration box top edge */
78
79short BarBcur[14]; /* current bottom-zero bar values */
80short BarCcur[14]; /* current centered-zero bar values */
81short BGeq[14]; /* current EQ bar settings */
82short BGother[14]; /* current other pot bar settings */
83short BGprmtr[14]; /* current parameter pot bar settings */
84
85short articen[12]; /* voice articulation enable status */
86short grpdyn[12]; /* group dynamics table (0..9) */
87short grploc[12]; /* group location table (0..8) */
88short grpmode[12]; /* group mode - 0 = play, 1 = stdby, 2 = rec */
89short grpsel[12]; /* group select status for instrument selection */
90short grpstat[12]; /* group status - 0 = off, non-0 = on */
91short grptmap[12]; /* group map */
92short gtctab[12]; /* group to color table */
93short ins2grp[12]; /* instrument to group table (00..NINST-1) */
94short instmod[12]; /* intrument data modified */
95short key2grp[88]; /* port 1 key to group assignment table */
96short lastart[16]; /* last articulation values (by parameter) */
97short lastvce[12]; /* last voice assigned in each group */
98short lastvel[12]; /* last velocity sent to group */
99short ldmap[N_SCORES]; /* gather read map */
100short mctlnum[4]; /* MIDI controller number table (-1, 00..99) */
101short mpbend[48]; /* MIDI pitch bend data, by port and channel */
102short msmstv[3]; /* MIDI state machine state variables */
103short offsets[NUMWPCAL]; /* offsets for current waveshape */
104short oldtun[128]; /* previous tuning table for undo */
105short prstab[NTRIGS]; /* pressure */
106short s_inst[12]; /* instrument selections */
107short s_trns[12]; /* current transposition values */
108short swfifo[NSWFIFO]; /* scroll wheel fifo */
109short txfifo[NTKFIFO]; /* trackball X fifo */
110short tyfifo[NTKFIFO]; /* trackball Y fifo */
111short tuntab[128]; /* current tuning table */
112short vce2grp[12]; /* voice to group table (-1, 1..12)*/
113short vce2trg[12]; /* voice to trigger map (-1 EQ NULL) */
114short veltab[NTRIGS]; /* velocity */
115short vmtab[NUMHARM]; /* harmonics for current waveshape */
116short wsbuf[NUMWPCAL]; /* final values for current waveshape */
117
118/*
119
120*/
121
122char *lmln22; /* message window line 22 */
123char *lmln23; /* message window line 23 */
124char *lmln24; /* message window line 24 */
125char *vtdeptr; /* virtual typewriter data entry pointer */
126
127char *funcndx[256][2]; /* function header pointers */
128char *vlbptr[3]; /* variable label pointers */
129
130char bfs[128]; /* display generation buffer */
131char caname[16]; /* current assignment table name */
132char dspbuf[65]; /* display generation buffer */
133char ebuf[MAXEBUF+1]; /* edit data entry buffer */
134char errbuf[65]; /* error message build area */
135char idbuf[65]; /* display format conversion work area */
136char keystat[24]; /* front panel key status */
137char ldcmnt[38]; /* comment field */
138char ldfile[9]; /* file name field */
139char ldmsg1[65]; /* messsage build area 1 */
140char ldmsg2[65]; /* messsage build area 2 */
141char ldmsg3[65]; /* messsage build area 3 */
142char loadedc[NLTYPES][37]; /* loaded file comments */
143char loadedf[NLTYPES][8]; /* loaded file names */
144char masens[3]; /* MIDI port active sensing flags */
145char mctlval[NCTRLS]; /* MIDI controller values */
146char mdbyte[3]; /* MIDI data byte buffers */
147char mpsust[48]; /* MIDI sustain status, by port and channel */
148char mrstat[3]; /* MIDI running status */
149char scname[N_SCORES][16]; /* Score names */
150char trgtab[NTRIGS]; /* trigger status */
151char tuncurn[33]; /* current tuning table name */
152char tunname[NTUNS][32]; /* tuning table names */
153
154/*
155
156*/
157
158long *pspool; /* Score storage pool pointer */
159
160long afi; /* analog processor FIFO value */
161long curtime; /* current sqscan time */
162long ctime; /* time at cursor */
163long dvwork; /* divide work area */
164long frags; /* Score storage pool fragment count */
165long iotime; /* saved lcdtime value */
166long lcdontm; /* LCD backlight on time */
167long lcdtime; /* LCD backlight timer */
168long lcsum; /* library checksum */
169long ndbytes; /* bytes needed for storage */
170long noteoff; /* note off time */
171long noteon; /* note on time */
172long noteper; /* note period */
173long noteval; /* note value */
174long nrest; /* number of rests */
175long schksum; /* Score checksum */
176long se1_cnt; /* Score - free list E_SIZE1 entry count */
177long se2_cnt; /* Score - free list E_SIZE2 entry count */
178long se3_cnt; /* Score - free list E_SIZE3 entry count */
179long snbreq; /* Score - disk bytes required */
180long snlreq; /* Score - score bytes required */
181long sntbreq; /* Score - total disk bytes required */
182long sntlreq; /* Score - total score bytes required */
183long spcount; /* Score - storage pool free entry count */
184long swcount; /* scroll wheel counter */
185long swrate; /* scroll wheel rate */
186long swtemp; /* scroll wheel work area */
187long t_bak; /* time at p_bak */
188long t_cbgn; /* time at p_cbgn */
189long t_cend; /* time at p_cend */
190long t_cur; /* time at p_cur */
191long t_ctr; /* time at p_ctr */
192long t_fwd; /* time at p_fwd */
193long t_ins; /* time at peg */
194long t_note; /* note duration between p_nbeg and p_nend */
195long t_sbgn; /* time at p_sbgn */
196long t_sec1; /* time at p_sec1 */
197long t_sec2; /* time at p_sec2 */
198long t_sect; /* section time */
199long t_send; /* time at p_send */
200long wshfac; /* waveshape scale factor */
201
202long hwave[NUMWPCAL]; /* harmonic waveshape generation buffer */
203long nlpersc[N_SCORES]; /* number of longs per score */
204long scsums[N_SCORES]; /* score checksums */
205long spool[MAX_SE]; /* Score storage pool */
206
207long vknm[NUMHARM][NUMWPCAL]; /* scaled harmonics for current ws */
208
209long swrmin = SWRMIN; /* scroll wheel rate threshold */
210
211/*
212
213*/
214
215/*
216 =============================================================================
217 swinit() -- initialize scroll wheel variables
218 =============================================================================
219*/
220
221void swinit(void)
222{
223 swflag = FALSE; /* stop the scroll wheel */
224 swctrl = FALSE; /* ... */
225 swdir = D_FWD; /* ... */
226 swrate = 0; /* ... */
227 swcount = 0; /* ... */
228
229 memsetw(swfifo, 0, NSWFIFO); /* clear scroll wheel fifo */
230 swfiin = 0; /* ... */
231
232 tkinit(); /* initialize the trackball */
233}
Note: See TracBrowser for help on using the repository browser.