Context Navigation

source: buchla-68k/ram/nedacc.c@ 3fcb810

Last change on this file since 3fcb810 was fa38804, checked in by Thomas Lopatic <thomas@…>, 7 years ago
Removed form-feed comments.
Property mode set to `100644`
File size: 15.6 KB

Rev	Line
[f40a309]	1	/*
	2	=============================================================================
	3	nedacc.c -- MIDAS-VII note edit functions
	4	Version 11 -- 1988-08-16 -- D.N. Lynx Crowe
	5
	6	This file contains the note edit operations:
	7
	8	NOP_ACC Begin Acc ned_acc()
	9	NOP_NAT Begin Nat ned_nat()
	10	NOP_END End Note ned_end()
	11	NOP_MVN Move Note ned_mvn()
	12	NOP_MVB Move Begin ned_mvb()
	13	NOP_MVE Move End ned_mve()
	14
	15	and some related support functions:
	16
	17	accnote()
	18	donote()
	19	nedesub()
	20	=============================================================================
	21	*/
	22
	23	#undef DEBUGGER /* define to enable debug trace */
	24	#define DEBUGIT 0
	25
[b28a12e]	26	#include "ram.h"
[f40a309]	27
	28	/*
	29	=============================================================================
	30	accnote() -- return accidental note number or -1 for errors
	31	=============================================================================
	32	*/
	33
[7258c6a]	34	int16_t accnote(void)
[f40a309]	35	{
[7258c6a]	36	register int16_t rc;
[f40a309]	37
	38	DB_ENTR("accnote");
	39
	40	rc = -1;
	41
	42	if ((ac_code EQ N_SHARP) AND cflag) {
	43
	44	DB_CMNT("accnote - N_SHARP");
	45	rc = cnote + 1;
	46
	47	} else if ((ac_code EQ N_FLAT) AND cflag) {
	48
	49	DB_CMNT("accnote - N_FLAT");
	50	rc = cnote - 1;
	51
	52	} else {
	53
	54	DB_CMNT("accnote - no accidental possible");
	55	}
	56
	57	#if DEBUGIT
	58	if (debugsw)
	59	printf("accnote(): cnote = %d, ac_code = %d, cflag = %d, rc = %d\n",
	60	cnote, ac_code, cflag, rc);
	61	#endif
	62	DB_EXIT("accnote");
	63	return(rc);
	64	}
	65
	66	/*
	67	=============================================================================
	68	ned_acc() -- enter accidental note
	69	=============================================================================
	70	*/
	71
[7258c6a]	72	int16_t ned_acc(int16_t grp)
[f40a309]	73	{
[7258c6a]	74	register int16_t nn;
[f40a309]	75	register struct n_entry *ep;
	76
	77	DB_ENTR("ned_acc");
	78
	79	if (-1 EQ (nn = accnote())) {
	80
	81	DB_EXIT("ned_acc - accnote() failed");
	82	return(FAILURE);
	83	}
	84
	85	if (E_NULL NE (ep = (struct n_entry *)e_alc(E_SIZE1))) {
	86
	87	#if DEBUGIT
	88	if (debugsw)
	89	printf("ned_acc(): NBEG g=%d, n=%d, t=%ld, ep=$%08lX\n",
	90	grp, nn, ctime, ep);
	91	#endif
	92	DB_CMNT("ned_acc - entering note begin");
	93	ep->e_time = ctime;
	94	ep->e_type = EV_NBEG;
	95	ep->e_note = nn;
	96	ep->e_group = grp;
	97	ep->e_vel = SM_SCALE(64);
	98	e_ins((struct s_entry *)ep, ep_adj(p_cur, 0, ctime));
	99	noteop = NOP_END; /* setup for end of note */
	100	DB_EXIT("ned_acc - note begin entered");
	101	return(SUCCESS);
	102	}
	103
	104	noteop = NOP_NUL; /* clear pending operation code */
	105	DB_EXIT("ned_acc - no space for note begin");
	106	return(FAILURE);
	107	}
	108
	109	/*
	110	=============================================================================
	111	ned_nat() -- enter natural note
	112	=============================================================================
	113	*/
	114
[7258c6a]	115	int16_t ned_nat(int16_t grp)
[f40a309]	116	{
	117	register struct n_entry *ep;
	118
	119	DB_ENTR("ned_nat");
	120
	121	if (E_NULL NE (ep = (struct n_entry *)e_alc(E_SIZE1))) {
	122
	123	#if DEBUGIT
	124	if (debugsw)
	125	printf("ned_nat(): NBEG g=%d, n=%d, t=%ld, ep=$%08lX\n",
	126	grp, cnote, ctime, ep);
	127	#endif
	128	DB_CMNT("ned_nat - entering note begin");
	129	ep->e_time = ctime;
	130	ep->e_type = EV_NBEG;
	131	ep->e_note = cnote;
	132	ep->e_group = grp;
	133	ep->e_vel = SM_SCALE(64);
	134	e_ins((struct s_entry *)ep, ep_adj(p_cur, 0, ctime));
	135	noteop = NOP_END; /* set up for end of note */
	136	DB_EXIT("ned_nat - note begin entered");
	137	return(SUCCESS);
	138	}
	139
	140	noteop = NOP_NUL; /* clear pending operation code */
	141	DB_EXIT("ned_nat - no space for note begin");
	142	return(FAILURE);
	143	}
	144
	145	/*
	146	=============================================================================
	147	nedesub() -- enter note end subroutine
	148
	149	Returns:
	150
	151	-1 note end not entered - out of space
	152	0 note end entered OK
	153	1 note end not entered - no matching begin
	154	=============================================================================
	155	*/
	156
[7258c6a]	157	int16_t nedesub(int16_t grp, int16_t note)
[f40a309]	158	{
[df097bf]	159	register struct s_entry *ep;
	160	register struct n_entry *np;
[7258c6a]	161	register int16_t et;
[f40a309]	162
	163	DB_ENTR("nedesub");
	164
	165	ep = ep_adj(p_cur, 0, ctime);
	166
	167	#if DEBUGIT
	168	if (debugsw)
	169	printf("nedesub(%d, %d): ctime=%ld, ep=$%08lX, t_cur=%ld, p_cur=$%08lX\n",
	170	grp, note, ctime, ep, t_cur, p_cur);
	171	#endif
	172
[fa38804]	173
[f40a309]	174	DB_CMNT("nedesub - left scan");
	175
	176	FOREVER { /* left scan */
	177
	178	et = 0x007F & ep->e_type;
	179
	180	switch (et) { /* dispatch off of event type */
	181
	182	case EV_NEND: /* note end */
	183
	184	if ((ep->e_data1 EQ note) AND
	185	(ep->e_data2 EQ grp)) {
	186
	187	DB_EXIT("nedesub - note end hit");
	188	return(1);
	189	} else
	190	break;
	191
	192	case EV_SCORE: /* score begin */
	193
	194	DB_EXIT("nedesub - score begin hit");
	195	return(1);
	196
	197	case EV_NBEG: /* note begin */
	198
	199	if ((ep->e_data1 EQ note) AND
	200	(ep->e_data2 EQ grp)) { /* group and note match */
	201
	202	ep = ep->e_fwd; /* setup for scan */
	203	DB_CMNT("nedesub - NBEG nit - right scan");
[fa38804]	204
[f40a309]	205	FOREVER { /* right scan */
	206
	207	et = 0x007F & ep->e_type;
	208
	209	switch (et) {
	210
	211	case EV_NEND:
	212
	213	if ((ep->e_data1 EQ note) AND
	214	(ep->e_data2 EQ grp)) {
	215
	216	DB_EXIT("nedesub - note end hit");
	217	return(1);
	218
	219	} else
	220	break;
[fa38804]	221
[f40a309]	222	case EV_NBEG:
	223
	224	if ((ep->e_data1 EQ note) AND
	225	(ep->e_data2 EQ grp)) {
	226
	227	case EV_FINI:
	228
	229	DB_CMNT("nedesub - note begin / fini hit");
	230
	231	if (E_NULL NE (np = (struct n_entry *)e_alc(E_SIZE1))) {
	232
	233	#if DEBUGIT
	234	if (debugsw)
	235	printf("nedesub(): note end entered - $%08lX t=%ld g=%d n=%d\n",
	236	np, ctime, grp, note);
	237	#endif
	238	DB_CMNT("nedesub - entering note end");
	239	np->e_time = ctime;
	240	np->e_type = EV_NEND;
	241	np->e_note = note;
	242	np->e_group = grp;
	243	np->e_vel = SM_SCALE(64);
	244	e_ins((struct s_entry *)np, ep_adj(p_cur, 0, ctime));
	245	DB_EXIT("nedesub - note end entered");
	246	return(0);
	247
	248	} else {
	249
	250	DB_EXIT("nedesub - no space for note end");
	251	return(-1);
	252	}
	253
	254	} /* end if */
	255
	256	} /* end switch */
	257
	258	ep = ep->e_fwd; /* point at next event */
	259
	260	} /* end FOREVER - right scan */
	261
	262	} /* end if */
	263
	264	} /* end switch */
	265
	266	ep = ep->e_bak; /* back up to previous event */
	267
	268	} /* end FOREVER - left scan */
	269	}
	270
	271	/*
	272	=============================================================================
	273	ned_end() -- enter note end
	274	=============================================================================
	275	*/
	276
[7258c6a]	277	int16_t ned_end(int16_t grp)
[f40a309]	278	{
[7258c6a]	279	register int16_t rc;
[f40a309]	280
	281	DB_ENTR("ned_end");
	282
	283	#if DEBUGIT
	284	if (debugsw)
	285	printf("ned_end(): trying grp = %d, note = %d\n",
	286	grp, cnote);
	287	#endif
	288	DB_CMNT("ned_end - trying natural");
	289
	290	if (-1 EQ (rc = nedesub(grp, cnote))) { /* try for a natural */
	291
	292	noteop = NOP_NUL; /* clear pending operation code */
	293	DB_EXIT("ned_end - nedesub returned -1 (no space)");
	294	return(FAILURE);
	295
	296	} else if (0 EQ rc) {
	297
	298	noteop = NOP_NUL; /* clear pending operation code */
	299	DB_EXIT("ned_end - natural note end entered");
	300	return(SUCCESS);
	301
	302	} else if (1 NE rc) {
	303
	304	#if DEBUGIT
	305	if (debugsw)
	306	printf("ned_end(): nedesub(%d, %d) returned %d\n",
	307	grp, cnote + 1, rc);
	308	#endif
	309
	310	noteop = NOP_NUL; /* clear pending operation code */
	311	DB_EXIT("ned_end - nedesub returned non-zero (unknown error)");
	312	return(FAILURE);
	313	}
[fa38804]	314
[f40a309]	315	#if DEBUGIT
	316	if (debugsw)
	317	printf("ned_end(): trying grp = %d, note = %d\n",
	318	grp, cnote + 1);
	319	#endif
	320
	321	DB_CMNT("ned_end - trying accidental");
	322
	323	if (-1 EQ (rc = nedesub(grp, cnote + 1))) { /* try for an accidental */
	324
	325	noteop = NOP_NUL; /* clear pending operation code */
	326	DB_EXIT("ned_end - nedesub returned -1 (no space)");
	327	return(FAILURE);
	328
	329	} else if (1 EQ rc) {
	330
	331	noteop = NOP_NUL; /* clear pending operation code */
	332	DB_EXIT("ned_end - nedesub returned 1 (no match)");
	333	return(FAILURE);
	334
	335	} else if (0 NE rc) {
	336
	337	#if DEBUGIT
	338	if (debugsw)
	339	printf("ned_end(): nedesub(%d, %d) returned %d\n",
	340	grp, cnote + 1, rc);
	341	#endif
	342
	343	noteop = NOP_NUL; /* clear pending operation code */
	344	DB_EXIT("ned_end - nedesub returned non-zero (unknown error)");
	345	return(FAILURE);
	346	}
	347
	348	noteop = NOP_NUL; /* clear pending operation code */
	349	DB_EXIT("ned_end - accidental note end entered");
	350	return(SUCCESS);
	351	}
	352
	353	/*
	354	=============================================================================
	355	ned_mvn() -- move entire note
	356	=============================================================================
	357	*/
	358
[7258c6a]	359	int16_t ned_mvn(int16_t grp)
[f40a309]	360	{
	361	register struct n_entry bp, ep;
[7258c6a]	362	register int16_t note;
[f40a309]	363
	364	DB_ENTR("ned_mvn");
	365
	366	if (notesel) { /* note selected -- now do the dirty work */
	367
	368	bp = p_nbeg; /* point at note begin event */
	369	ep = p_nend; /* point at note end event */
	370
	371	/* clip out the note begin event */
	372
	373	DB_CMNT("ned_mvn - clipping out begin");
	374
	375	if (p_bak EQ bp)
	376	p_bak = bp->e_fwd;
	377
	378	if (p_ctr EQ bp)
	379	p_ctr = bp->e_fwd;
	380
	381	if (p_cur EQ bp)
	382	p_cur = bp->e_fwd;
	383
	384	if (p_fwd EQ bp)
	385	p_fwd = bp->e_fwd;
	386
	387	e_rmv((struct s_entry *)bp);
[fa38804]	388
[f40a309]	389	/* clip out the note end event */
	390
	391	DB_CMNT("ned_mvn - clipping out end");
	392
	393	if (p_bak EQ ep)
	394	p_bak = ep->e_fwd;
	395
	396	if (p_ctr EQ ep)
	397	p_ctr = ep->e_fwd;
	398
	399	if (p_cur EQ ep)
	400	p_cur = ep->e_fwd;
	401
	402	if (p_fwd EQ ep)
	403	p_fwd = ep->e_fwd;
	404
	405	e_rmv((struct s_entry *)ep);
	406
	407	bp->e_time = ctime; /* correct begin time */
	408	ep->e_time = ctime + t_note; /* correct end time */
	409
	410	/* re-insert the note */
	411
	412	DB_CMNT("ned_mvn - re-inserting note");
	413
	414	e_ins((struct s_entry *)bp, ep_adj(p_cur, 0, ctime));
	415	e_ins((struct s_entry *)ep, ep_adj(p_cur, 0, ctime + t_note));
	416
	417	notesel = FALSE; /* note not selected */
	418	noteop = NOP_NUL; /* clear pending operation code */
	419	DB_EXIT("ned_mvn - note moved");
	420	return(SUCCESS);
	421
	422	} else {
	423
	424	if (E_NULL NE fcnote(grp, cnote)) {
	425
	426	notesel = TRUE; /* note selected */
	427	DB_EXIT("ned_mvn - natural selected");
	428	return(FAILURE);
	429
	430	} else if (-1 NE (note = accnote())) {
	431
	432	if (E_NULL NE (bp = fcnote(grp, note))) {
	433
	434	notesel = TRUE; /* note selected */
	435	DB_EXIT("ned_mvn - accidental selected");
	436	return(FAILURE);
	437	}
	438	}
	439
	440	notesel = FALSE; /* note not selected */
	441	noteop = NOP_NUL; /* clear pending operation code */
	442	DB_EXIT("ned_mvn - uanble to find note");
	443	return(FAILURE);
	444	}
	445	}
	446
	447	/*
	448	=============================================================================
	449	ned_mvb() -- move beginning of note
	450	=============================================================================
	451	*/
	452
[7258c6a]	453	int16_t ned_mvb(int16_t grp)
[f40a309]	454	{
	455	register struct n_entry bp, ep;
[7258c6a]	456	register int16_t note;
[f40a309]	457
	458	DB_ENTR("ned_mvb");
	459
	460	if (notesel) { /* note selected -- now do the dirty work */
	461
	462	bp = p_nbeg; /* point at note begin event */
	463	ep = p_nend; /* point at note end event */
	464
	465	if (ctime GE ep->e_time) { /* check move point */
	466
	467	noteop = NOP_NUL; /* clear pending operation */
	468	notesel = FALSE; /* note not selected */
	469	DB_EXIT("ned_mvb - move point after end");
	470	return(FAILURE);
	471	}
	472
	473	/* clip out the note begin event */
	474
	475	DB_CMNT("ned_mvb - clipping out begin");
	476
	477	if (p_bak EQ bp)
	478	p_bak = bp->e_fwd;
	479
	480	if (p_ctr EQ bp)
	481	p_ctr = bp->e_fwd;
	482
	483	if (p_cur EQ bp)
	484	p_cur = bp->e_fwd;
	485
	486	if (p_fwd EQ bp)
	487	p_fwd = bp->e_fwd;
	488
	489	e_rmv((struct s_entry *)bp);
	490
	491	bp->e_time = ctime; /* correct begin time */
	492
	493	/* re-insert begin event */
	494
	495	e_ins((struct s_entry *)bp, ep_adj(p_cur, 0, ctime));
	496
	497	noteop = NOP_NUL; /* clear pending operation */
	498	notesel = FALSE; /* note not selected */
	499	DB_EXIT("ned_mvb - begin moved");
	500	return(SUCCESS);
[fa38804]	501
[f40a309]	502	} else {
	503
	504	if (E_NULL NE fcnote(grp, cnote)) { /* natural ? */
	505
	506	notesel = TRUE; /* note selected */
	507	DB_EXIT("ned_mvb - natural selected");
	508	return(FAILURE);
	509
	510	} else if (-1 NE (note = accnote())) { /* accidental ? */
	511
	512	if (E_NULL NE (bp = fcnote(grp, note))) {
	513
	514	notesel = TRUE; /* note selected */
	515	DB_EXIT("ned_mvb - accidental selected");
	516	return(FAILURE);
	517	}
	518	}
	519
	520	notesel = FALSE; /* note not selected */
	521	noteop = NOP_NUL; /* clear pending operation code */
	522	DB_EXIT("ned_mvb - unable to find note");
	523	return(FAILURE);
	524	}
	525	}
	526
	527	/*
	528	=============================================================================
	529	ned_mve() -- move end of note
	530	=============================================================================
	531	*/
	532
[7258c6a]	533	int16_t ned_mve(int16_t grp)
[f40a309]	534	{
	535	register struct n_entry bp, ep;
[7258c6a]	536	register int16_t note;
[f40a309]	537
	538	DB_ENTR("ned_mve");
	539
	540	if (notesel) { /* note selected -- now do the dirty work */
	541
	542	bp = p_nbeg; /* point at note begin event */
	543	ep = p_nend; /* point at note end event */
	544
	545	if (ctime LE bp->e_time) { /* check move point */
	546
	547	noteop = NOP_NUL; /* clear pending operation */
	548	notesel = FALSE; /* note not selected */
	549	DB_EXIT("ned_mve - move point before begin");
	550	return(FAILURE);
	551	}
	552
	553	/* clip out the note end event */
	554
	555	DB_CMNT("ned_mve - clipping out end");
	556
	557	if (p_bak EQ ep)
	558	p_bak = ep->e_fwd;
	559
	560	if (p_ctr EQ ep)
	561	p_ctr = ep->e_fwd;
	562
	563	if (p_cur EQ ep)
	564	p_cur = ep->e_fwd;
	565
	566	if (p_fwd EQ ep)
	567	p_fwd = ep->e_fwd;
	568
	569	e_rmv((struct s_entry *)ep);
	570
	571	ep->e_time = ctime; /* correct end time */
	572
	573	/* re-insert end event */
	574
	575	e_ins((struct s_entry *)ep, ep_adj(p_cur, 0, ctime));
	576
	577	noteop = NOP_NUL; /* clear pending operation */
	578	notesel = FALSE; /* note not selected */
	579	DB_EXIT("ned_mve - end moved");
	580	return(SUCCESS);
	581
	582	} else {
	583
	584	if (E_NULL NE fcnote(grp, cnote)) { /* natural ? */
	585
	586	notesel = TRUE; /* note selected */
	587	DB_EXIT("ned_mve - natural selected");
	588	return(FAILURE);
	589
	590	} else if (-1 NE (note = accnote())) {
	591
	592	if (E_NULL NE (bp = fcnote(grp, note))) { /* accidental ? */
	593
	594	notesel = TRUE; /* note selected */
	595	DB_EXIT("ned_mve - accidental selected");
	596	return(FAILURE);
	597	}
	598	}
	599
	600	notesel = FALSE; /* note not selected */
	601	noteop = NOP_NUL; /* clear pending operation code */
	602	DB_EXIT("ned_mve - unable to find note");
	603	return(FAILURE);
	604	}
	605	}
	606
	607	/*
	608	=============================================================================
	609	donote() -- do a note operation
	610	=============================================================================
	611	*/
	612
[0580615]	613	void donote(void)
[f40a309]	614	{
[7258c6a]	615	register int16_t grp, i, gs;
[f40a309]	616
	617	DB_ENTR("donote");
	618
	619	if (scmctl NE -1) { /* area 1 menu must be down */
	620
	621	DB_EXIT("donote - scmctl NE -1");
	622	return;
	623	}
	624
	625	if (NOT recsw) { /* must be in record mode */
	626
	627	DB_EXIT("donote - not in record mode");
	628	return;
	629	}
	630
	631	/* determine which group we want to work with */
	632
	633	gs = 0;
	634	grp = -1;
	635
	636	for (i = 0; i < 12; i++) { /* scan the groups */
	637
	638	if ((grpmode[i] EQ 2) AND grpstat[i]) {
	639
	640	grp = i; /* log the group */
	641	++gs; /* count enabled groups */
	642	#if DEBUGIT
	643	if (debugsw)
	644	printf("donote(): gs = %d, grp = %d\n", gs, grp);
	645	#endif
	646	}
	647	}
	648
	649	#if DEBUGIT
	650	if (debugsw)
	651	printf("donote(): final gs = %d, grp = %d\n", gs, grp);
	652	#endif
	653
[fa38804]	654
[f40a309]	655	if (gs NE 1) { /* must have a single group enabled */
	656
	657	DB_EXIT("donote - no single group enabled");
	658	return;
	659	}
	660
[0c834c5]	661	if (pix2mid()) { /* must point at a note position */
[f40a309]	662
	663	#if DEBUGIT
	664	if (debugsw)
	665	printf("donote(): no note at cxval = %d, cyval = %d\n",
	666	cxval, cyval);
	667	#endif
	668	DB_EXIT("donote - not at a note position");
	669	return;
	670	}
[fa38804]	671
[f40a309]	672	#if DEBUGIT
	673	if (debugsw)
	674	printf("donote(): at (cxval=%d, cyval=%d): cnote=%d, cflag=%d, ctime=%ld\n",
	675	cxval, cyval, cnote, cflag, ctime);
	676	#endif
	677
	678	DB_CMNT("donote - dispatching");
	679
	680	switch (noteop) { /* dispatch off of note operation code */
	681
	682	case NOP_ACC: /* Begin Acc */
	683
	684	if (ned_acc(grp))
	685	break;
	686
	687	sc_refr(fc_val); /* refresh screen if successful */
	688	break;
	689
	690	case NOP_NAT: /* Begin Nat */
	691
	692	if (ned_nat(grp))
	693	break;
	694
	695	sc_refr(fc_val); /* refresh screen if successful */
	696	break;
	697
	698	case NOP_END: /* End Note */
	699
	700	if (ned_end(grp))
	701	break;
	702
	703	sc_refr(fc_val); /* refresh screen if successful */
	704	break;
[fa38804]	705
[f40a309]	706	case NOP_MVN: /* Move Note */
	707
	708	if (ned_mvn(grp))
	709	break;
	710
	711	sc_refr(fc_val); /* refresh screen if successful */
	712	break;
	713
	714	case NOP_MVB: /* Move Begin */
	715
	716	if (ned_mvb(grp))
	717	break;
	718
	719	sc_refr(fc_val); /* refresh screen if successful */
	720	break;
	721
	722	case NOP_MVE: /* Move End */
	723
	724	if (ned_mve(grp))
	725	break;
	726
	727	sc_refr(fc_val); /* refresh screen if successful */
	728	break;
	729
	730	default:
	731
	732	DB_CMNT("donote - bad operation");
	733	noteop = NOP_NUL; /* clear pending operation code */
	734	}
	735
	736	dnedmod(); /* update note edit window */
	737	DB_EXIT("donote");
	738	return;
	739	}
[6262b5c]	740

Note: See TracBrowser for help on using the repository browser.

Download in other formats: