Permute

score permute2 164;
start 11

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

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

/* produce two complete 12-tone row */
permute
	c c_sharp d d_sharp e f f_sharp g g_sharp a a_sharp b 12 : 24

/* repeat the last of it*/
pattern last 11 0 : 12

/* produce random selection with more renundancy */
permute last 11 0 8 : 16

/* repeat the last 8 notes 3 times */
pattern last 7 0 : 24

/* produce random selection with even more renundancy from the last pattern */
permute last 7 0  4 : 12

/* repeat the last 6 notes  six times */
pattern last 5 0 : 36

/* randomize 5 notes, just forbid triple reps */
permute last 5 0 2 : 10

/* repeat the last 5 notes  eight times */
pattern last 4 0 : 30

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

parameter entrydelay =
  ed1 ed2 ed3 ed4 ed5 ed6 ed7 ed8 ed9 ed10

/* first two complete "rows" */
permute
  ed1 ed2 ed3 ed4 ed5 ed6 ed7 ed8 ed9 ed10 10 : 20

/* repeat the last of it two times */
pattern last 9 0 : 20

/* now with more values repeated */
permute last 9 0 7 : 14

/* repeat the last 7 values 5 times */
pattern last 6 0 : 35

/* now with even more renundancy */
permute last 6 0 4 : 8

/* repeat the last 5 values 6 times */
pattern last 4 0 : 30

/* now a nearly complete random selection */
permute last 4 0 2 : 6

/* repeat the last 4 values upto the end */
pattern last 3 0 : 31

end
/* eof permute2.ppp */