1 | /*
|
---|
2 | =============================================================================
|
---|
3 | fcnote.c -- MIDAS-VII note edit -- find complete note
|
---|
4 | Version 1 -- 1988-05-17 -- D.N. Lynx Crowe
|
---|
5 | =============================================================================
|
---|
6 | */
|
---|
7 |
|
---|
8 | #include "ram.h"
|
---|
9 |
|
---|
10 | #define TO_LFT (TO_BAK + 1)
|
---|
11 |
|
---|
12 | /*
|
---|
13 | =============================================================================
|
---|
14 | fcnote() -- find complete note
|
---|
15 |
|
---|
16 | Arguments:
|
---|
17 |
|
---|
18 | grp group number
|
---|
19 | tnote note number
|
---|
20 |
|
---|
21 | ctime cursor time to search from
|
---|
22 |
|
---|
23 | Returns:
|
---|
24 |
|
---|
25 | E_NULL couldn't find the note
|
---|
26 | ptr pointer to the begin event for the note
|
---|
27 |
|
---|
28 | p_nbeg pointer to note begin event
|
---|
29 | p_nend pointer to note end event
|
---|
30 | t_note duration of the note
|
---|
31 | =============================================================================
|
---|
32 | */
|
---|
33 |
|
---|
34 | /* |
---|
35 |
|
---|
36 | */
|
---|
37 |
|
---|
38 | struct n_entry *fcnote(int16_t grp, int16_t tnote)
|
---|
39 | {
|
---|
40 | register struct n_entry *bp, *ep;
|
---|
41 | register int16_t en, eg, et;
|
---|
42 | int32_t t_left;
|
---|
43 |
|
---|
44 | /* setup initial search parameters */
|
---|
45 |
|
---|
46 | bp = (struct n_entry *)ep_adj(p_cur, 0, ctime); /* cursor loc */
|
---|
47 | t_left = t_cur - TO_LFT; /* time at left edge of screen */
|
---|
48 | p_nbeg = (struct n_entry *)E_NULL; /* no begin yet */
|
---|
49 | p_nend = (struct n_entry *)E_NULL; /* no end yet */
|
---|
50 | t_note = 0L; /* no duration yet */
|
---|
51 |
|
---|
52 | FOREVER { /* scan left from cursor */
|
---|
53 |
|
---|
54 | et = 0x007F & bp->e_type;
|
---|
55 | en = bp->e_note;
|
---|
56 | eg = bp->e_group;
|
---|
57 |
|
---|
58 | if ((bp->e_time LT t_left) OR (et EQ EV_SCORE)) {
|
---|
59 |
|
---|
60 | /* done -- can't see begin, or note not there */
|
---|
61 |
|
---|
62 | return(E_NULL);
|
---|
63 |
|
---|
64 | } else if ((et EQ EV_NEND) AND (en EQ tnote) AND (eg EQ grp)) {
|
---|
65 |
|
---|
66 | /* done -- hit note end first -- notes overlap */
|
---|
67 |
|
---|
68 | return(E_NULL);
|
---|
69 | /* |
---|
70 |
|
---|
71 | */
|
---|
72 | } else if ((et EQ EV_NBEG) AND (en EQ tnote) AND (eg EQ grp)) {
|
---|
73 |
|
---|
74 | /* found note begin -- possible note starting at bp */
|
---|
75 |
|
---|
76 | ep = bp->e_fwd; /* scan to right of begin */
|
---|
77 |
|
---|
78 | FOREVER { /* scan right from note begin */
|
---|
79 |
|
---|
80 | et = 0x007F & ep->e_type; /* event type */
|
---|
81 | en = ep->e_note; /* note */
|
---|
82 | eg = ep->e_group; /* group */
|
---|
83 |
|
---|
84 | if ((et EQ EV_NBEG) AND (en EQ tnote) AND
|
---|
85 | (eg EQ grp)) {
|
---|
86 |
|
---|
87 | /* hit note begin first -- done -- notes overlap */
|
---|
88 |
|
---|
89 | return(E_NULL);
|
---|
90 | /* |
---|
91 |
|
---|
92 | */
|
---|
93 | } else if ((et EQ EV_NEND) AND (en EQ tnote) AND
|
---|
94 | (eg EQ grp)) {
|
---|
95 |
|
---|
96 | /* hit note end -- done -- found complete note */
|
---|
97 |
|
---|
98 | p_nbeg = bp; /* note begin */
|
---|
99 | p_nend = ep; /* note end */
|
---|
100 | t_note = ep->e_time - bp->e_time;
|
---|
101 | return(bp);
|
---|
102 |
|
---|
103 | } else if (et EQ EV_FINI) {
|
---|
104 |
|
---|
105 | /* hit score end -- done -- can't find end */
|
---|
106 |
|
---|
107 | return(E_NULL);
|
---|
108 | }
|
---|
109 |
|
---|
110 | ep = ep->e_fwd; /* scan right */
|
---|
111 |
|
---|
112 | } /* end FOREVER */
|
---|
113 |
|
---|
114 | } /* end if */
|
---|
115 |
|
---|
116 | bp = bp->e_bak; /* scan left */
|
---|
117 |
|
---|
118 | } /* end FOREVER */
|
---|
119 | }
|
---|
120 |
|
---|