Intervals

score interval2 170;
start 11
/************************************************************/

parameter voice =
	v0 v1 v2 v3
pattern 
	v0 v1 v2 v3 : 170
/************************************************************/

parameter pitch = 
	c c_sharp d d_sharp e f f_sharp g g_sharp a a_sharp b

/* we produce 4 sections of different intervallic quality */
/* first seconds */

intervals between c b
	given 1 permitted 2 1 
	given 2 permitted 1 2 : 50

/* then minor thirds, fourths and fifths where after a 4th/5th  there must be
 a  third */

intervals between c b
	given 3 permitted 5 7
	given 5 permitted 3
	given 7 permitted 3 : 50

/* then fourths and fifths only */

intervals between c b
	given 5 permitted 5 7
	given 7 permitted 5 7 : 70

/************************************************************/

parameter register =
   r0 r1 r2 r3 r4

/* we want to prefer the middle octave to the outer ones */
ratio
 	r0 r1 r2 r3 r4
        1   2  5  2  1 : 170

/************************************************************/

parameter entrydelay = quarter  1 half 2 pointed_half 3 full 4 five_quarters 5
/* we want  mostly medium notes least often the shorter or longer ones */
/* but we will take a higher tempo than in the ratio example */
ratio
	quarter  half    pointed_half  full five_quarters
	1	  3      8             3      1          : 170

/************************************************************/
/*  by allowing only one step, we guaranty slow dynamic changes only
    except for a wraparound at fff/ppp 
*/

parameter volume = ppp pp p mp mf f ff fff
intervals between ppp fff
	given 1 permitted 1 : 170
/************************************************************/
end

/* eof intervl2.ppp */