A third visit to Mozart’s Dice generated minuet using Sonic Pi

Screen Shot 2016-01-20 at 18.11.59

I have previously written two articles  on this topic, the first in August 2013, which used python and lilypond together with timidity to play the midi files produced. Imagemagick was used to facilitate the production a web pages to display the music while it played. Whilst this worked it was quite complex to set up, and fairly slow to generate each minuet.

In the second article in January 2015 I used Sonic Pi to play the minuets, but still used lilypond to produce the music display, and was quite complex to setup.

Now in this third visit, the whole process is controlled by Sonic Pi, and I utilise 176 images of the different bars to build a web page displaying the current minuet being played.
Sonic Pi is helped by an external script, written in Ruby which interacts with the Sonic Pi workspace to produce the webpages which are displayed in the Epiphany browser on Raspbian Jesse, using a Pi2 to run the whole process.

I have taken the opportunity to rework the code in Sonic Pi which produces the sound from the version used in 2015. The present version is much quicker in producing the webpages and the whole process works in a more streamlined manner than previously.

Two additions needs to be installed. The first is the sonic-pi-cli gem. In order to do this, without installing and using a system like rvm, we have to do a bit of preliminary work so that the correct permissions will be in place during the install process. First, if you have switched to booting into a command line environment, start the graphical environment using startx. You may also like to switch back to this environment on boot by using Raspberry Pi Configuration utility in Menu -> Preferences. The graphics environment is needed for Sonic Pi to work.
Start a terminal window and type the following:

sudo mkdir /var/lib/gems
sudo chown pi /var/lib/gems
sudo chown pi /usr/local/bin
gem install sonic-pi-cli

Then revert the ownership of the /usr/local/bin folder

sudo chown root /usr/local/bin

Note if you a have a pre-existing /var/lib/gems folder you will get an error when you try and create it. Ignore the error, but alter the second line above from

sudo chown pi /var/lib/gems

to

sudo chown pi -R /var/lib/gems

Now test the cli by starting Sonic Pi, loading in any piece of reasonable duration, eg one of the example files, and running it. While it is running from the terminal window type:

sonic_pi stop

The piece should stop playing, showing that the cli command is working.

The second addition is to add the package xautomation which is used to switch the browser to full screen view.

sudo apt-get update
sudo apt-get install xautomation

Other than that, you only need to download the Sonic Pi file MozartDiceMinuet.rb and the helper Ruby script minuetcontrol.rb together with the image folder cards which contains the 176 images of the separate bars. Download them all to the pi home folder.

Open MozartDiceMinuets.rb with leafpad and copy the text into an empty Sonic Pi buffer.
start a terminal window, and start the control script running by typing

ruby minuetcontrol.rb

and pressing return

(You will not see anything happening, as the script awaits the creation of a text file which is done by Sonic Pi)
Now switch to Sonic Pi and run the workspace containing MozartDiceMinuet.

As supplied the program should play three waltzes one after the other, displaying the music on the Epiphany web-browser.

To re-run, you just need to start the minuetcontrol.rb script again, before pressing run on Sonic Pi.

In the sonic-pi program there are three user adjustments you can make.

numtunes is a variable that holds the number of minutes to generate. (default value 3)
use_random_seed(123456) is used to adjust the random number generator seed, and hence the sequence of minutes that will be generated. If you leave it unalterd you will always get the SAME three minutes generated. Alter it to produce a different sequence.
testbars=0 is a variable which is normally set to 0. If you set it to 1 then the program will generate 11 sequences, each containing 16 bars in numerical order from the 176 that are available. This is used for testing, to check each bar sequence is correct.

In the accompanying minuetcontrol.rb script there is one user adjustment
The variable bpix=1200 holds the width of the table (in pixels) which will display the bar images in the html page displayed on the Epiphany browser. This should be adjusted to suit the resolution of the screen you are using.  It should be approx 80-100 pixels LESS than the screen width, but should also be a multiple of 8. (I used 1200 for my HDMPPi monitor, 720 when running on a Raspberry Pi official touch screen monitor, and 1840 when running on my 19.5″ BENQ monitor).

The listings for the Sonic-Pi MozartDiceProgram and the minuetcontrol.rb script are shown below.

#Mozart's Musikalisches Wurkfelspiel KV 516f coded for Sonic Pi
#by Robin Newman January 2016
#This version uses a helper ruby script minuetcontrol.rb which should be launched
#prior to starting the Sonic Pi script using: ruby minuetcontrol.rb
#It also requires the folder cards to be located in the pi home directory.
#The music is displayed in the epiphany browser.

###### user adjustable parameters ####################
#set the number of minuets (numtunes) to play and the random number seed
numtunes=3
use_random_seed(123456)
testbars=0 #set to 1 to test all bars in sequence
###### end of user adjustable parameters #############

numtunes=11 if testbars==1
set_sched_ahead_time! 5 #give SP plenty of time to setup notes
use_debug false
use_synth :tri
#define arrays to holds note info for each bar lh and rh
rn=[]
ln=[]
rd=[]
ld=[]
#duration info: s is tempo scale factor
s=0.2
dsq=0.5*s
sq=1*s
q=2*s
qd=3*s
c=4*s
cd=6*s

p1=[sq]*6 #rhythm patterns
p2=[sq,sq,sq,sq,q]
p3=[q,sq,sq,sq,sq]
p4=[q,q,q]
p5=[c,q]
p6=[q,c]
p7=[q,sq,sq,q]
p8=[sq,sq,q,q]
p9=[sq,sq,q,sq,sq]
#plays a given bar, rh and lh, flip is used for 2nd time bar change
define :pb do |n,flip=0|
in_thread do
rn[n].zip(rd[n]).each do |p,d|
play p,attack:0.08*d,sustain: 0.82*d,release: 0.1*d,amp: 0.8
sleep d
end
end
nl=n
#change lh for repeat bars
if (flip==1) and [5,24,30,33,81,91,94,100,107,123,127].include? n then
nl=177 #alternative lh for second time bar
end
ln[nl].zip(ld[nl]).each do |p,d|
play p,attack:0.08*d,sustain: 0.82*d,release: 0.1*d,amp: 0.8
sleep d
end
end
define :trn do |n,num,offset=2| #produces trill sequence using n and tone (or semitone) above: n notes total
n = note_info(n).midi_note
return [n,n+offset]*(num / 2) #trill set to start on lower note. Can be swapped over
end
define :trd do |d,num| #produces trill note durations. d is total duration, num number of notes
return [d/num]*num
end
#define lookup table which selects bar numbers to play
tbl=[[96, 22, 141, 41, 105, 122, 11, 30, 70, 121, 26, 9, 112, 49, 109, 14],
[32, 6, 128, 63, 146, 46, 134, 81, 117, 39, 126, 56, 174, 18, 116, 83],
[69, 95, 158, 13, 153, 55, 110, 24, 66, 139, 15, 132, 73, 58, 145, 79],
[40, 17, 113, 85, 161, 2, 159, 100, 90, 176, 7, 34, 67, 160, 52, 170],
[148, 74, 163, 45, 80, 97, 36, 107, 25, 143, 64, 125, 76, 136, 1, 93],
[104, 157, 27, 167, 154, 68, 118, 91, 138, 71, 150, 29, 101, 162, 23, 151],
[152, 60, 171, 53, 99, 133, 21, 127, 16, 155, 57, 175, 43, 168, 89, 172],
[119, 84, 114, 50, 140, 86, 169, 94, 120, 88, 48, 166, 51, 115, 72, 111],
[98, 142, 42, 156, 75, 129, 62, 123, 65, 77, 19, 82, 137, 38, 149, 8],
[3, 87, 165, 61, 135, 47, 147, 33, 102, 4, 31, 164, 144, 59, 173, 78],
[54, 130, 10, 103, 28, 37, 106, 5, 35, 20, 108, 92, 12, 124, 44, 131]]

define :throw do #throws two dice and returns total (throws offset 0-5 to match arrays)

return rrand_i(0,5)+rrand_i(0,5)
end
#pick the bars for a minuet
define :minuet do
w=[]
8.times do |i|
w.concat [tbl[throw][i]]
end
8.times do |i|
w.concat [tbl[throw][i+8]]
end
return w
end
rn[1]=[:f5,:d5,:g5];rd[1]=p4
ln[1]=[:f3,:d3,:g3];ld[1]=p4
rn[2]=[:a4,:fs4,:g4,:b4,:g5];rd[2]=p3
ln[2] = ln[86] = ln[121] = ln[133] = [[:b2,:g3],:r];ld[2] = ld[86] = ld[121] = ld[133] =p5
rn[3]=rn[59]=rn[87]=rn[144]=[:g5,:c5,:e5];rd[3]=rd[59]=rd[87]=rd[144]=p4
ln[3] = ln[6] = ln[32] = ln[40] = ln[41] = ln[43] = ln[51] = ln[60] = ln[69] = ln[74] = ln[84] = \
ln[95] = ln[115] = ln[119] = ln[136] = ln[142] = ln[148] = ln[152] = ln[167] = [[:c3,:e3],:r];ld[3] = ld[6] = ld[32] = ld[40] = ld[41] = \
ld[43] = ld[51] = ld[60] = ld[69] = ld[74] = ld[84] = ld[95] = ld[115] = ld[119] = ld[136] = ld[142] = ld[148] = ld[152] = ld[167] = p5
rn[4]=[:g5]+trn(:d5,8);rd[4]=[q]+trd(c,8)
ln[4]=[:g2,:b2,:g3,:b2];ld[4]=p8
rn[5]=rn[24]=rn[30]=rn[33]=rn[81]=rn[91]=rn[94]=rn[100]=rn[107]=rn[123]=rn[127]=[[:g4,:b4,:d5,:g5],:r]; \
rd[5]=rd[24]=rd[30]=rd[33]=rd[81]=rd[91]=rd[94]=rd[100]=rd[107]=rd[123]=rd[127]=p5
ln[5] = ln[24] = ln[30] = ln[33] = ln[81] = ln[91] = ln[94] = ln[100] = ln[107] = ln[123] = ln[127] = [:g2,:g3,:f3,:e3,:d3]; \
ld[5] = ld[24] = ld[30] = ld[33] = ld[81] = ld[91] = ld[94] = ld[100] = ld[107] = ld[123] = ld[127] = p3
rn[6]=rn[32]=rn[174]=[:g4,:c5,:e5];rd[6]=rd[32]=rd[174]=p4
rn[7]=[:e5,:c5,:e5,:g5,:c6,:g5];rd[7]=p1
ln[7]=[[:c3,:g3],:r];ld[7]=p5
rn[8] = rn[14] = rn[79] = rn[83] = rn[93] = rn[111] = rn[131] = rn[151] = rn[170] = rn[172] = [:c5,:r];\
rd[8] = rd[14] = rd[79] = rd[83] = rd[93] = rd[111] = rd[131] = rd[151] = rd[170] = rd[172] = p5
ln[8] = ln[14] = ln[79] = ln[83] = ln[93] = ln[111] = ln[131] = ln[151] = ln[170] = ln[172] = [:c3,:g2,:c2];\
ld[8] = ld[14] = ld[79] = ld[83] = ld[93] = ld[111] = ld[131] = ld[151] = ld[170] = ld[172] = p4
rn[9]=[[:c5,:e5],[:b4,:d5],:r];rd[9]=p4
ln[9]=[:g3,:g2];ld[9]=p5
rn[10]=[:b4,:a4,:b4,:c5,:d5,:b4];rd[10]=[sq]*8
ln[10]= ln[34]= [:g3,:r];ld[10]= ld[34]= p5
rn[11]=[:e5,:c5,:b4,:a4,:g4,:fs4];rd[11]=[sq]*8
ln[11] = ln[21] = ln[36] = ln[62] = ln[106] = ln[110] = ln[118] = ln[134] = ln[147] = ln[159] = ln[169] = [:c3,:d3,:d2];\
ld[11] = ld[21] = ld[36] = ld[62] = ld[106] = ld[110] = ld[118] = ld[134] = ld[147] = ld[159] = ld[169] = p4
rn[12] = rn[54] = rn[124] = rn[130] = [[:e4,:c5]]*3;rd[12] = rd[54] = rd[124] = rd[130] =p4
ln[12] = ln[54] = ln[75] = ln[124] = ln[130] = ln[146] = ln[161]= [:c3,:c3,:c3];\
ld[12] = ld[54] = ld[75] = ld[124] = ld[130] = ld[146] = ld[161]= p4
rn[13]=[:c5,:g4,:e4];rd[13]=p4
ln[13] = ln[17] = ln[45] = ln[50] = ln[61] = ln[85] = ln[103] = ln[156] = [[:e3,:g3],:r];\
ld[13] = ld[17] = ld[45] = ld[50] = ld[61] = ld[85] = ld[103] = ld[156] = p5
rn[15]=[:e5,:g5,:e5,:c5];rd[15]=p7
ln[15] = ln[19] = ln[48] = ln[101] = ln[108] = ln[162] = [[:c3,:g3],[:c3,:e3]];\
ld[15] = ld[19] = ld[48] = ld[101] = ld[108] = ld[162] = p5
rn[16]=[:a5,:fs5,:d5];rd[16]=p4
ln[16]=ln[120]=[[:d3,:fs3],[:c3,:fs3]];ld[16]=ld[120]=p5
rn[17]=[:c5,:g4,:c5,:e5,:g4,:c5];rd[17]=p1
rn[18]=[:g4,:c5,:e5];rd[18]=p4
ln[18] = ln[76] = ln[87] = [[:c3,:e3],[:c3,:g3]];ld[18] = ld[76] = ld[87] = p5
rn[19]=[:e5,:c5,:e5,:g5];rd[19]=p8
rn[20]=[:g5,:b5,:d6,:d5];rd[20]=p7
ln[20]=ln[139]=[:b2,:r];ld[20]=ld[139]=p5
rn[21]=[:c5,:e5,:g5,:d5,:a4,:fs5];rd[21]=p1
rn[22]=rn[57]=rn[96]=rn[112]=[:e5,:c5,:g4];rd[22]=rd[57]=rd[96]=rd[112]=p4
ln[22] = ln[53] = ln[63] = ln[80] = ln[96] = ln[104] = ln[105] = ln[153] = ln[154] = ln[157] = [:c3,:r];\
ld[22] = ld[53] = ld[63] = ld[80] = ld[96] = ld[104] = ld[105] = ld[153] = ld[154] = ld[157] = p5
rn[23]=[:f5,:e5,:d5,:e5,:f5,:g5];rd[23]=p1
ln[23]=[:f3,:e3,:d3,:e3,:f3,:g3];ld[23]=p1
rn[25]=[:d4,:fs4,:a4,:d5,:fs5,:a5];rd[25]=p1
ln[25]=ln[70]=[:d3,:c3];ld[25]=ld[70]=p5
rn[26]=[[:c5,:e5]]*3;rd[26]=p4
ln[26]=[:c3,:e3,:g3,:e3,:c4,:c3];ld[26]=p1
rn[27]=[:f5,:e5,:f5,:d5,:c5,:b4];rd[27]=p1
ln[27] = ln[113]=ln[166]=[[:g3,:b3],:r];ld[27]=ld[113]=ld[166]=p5
rn[28]=[:fs5,:d5,:a4,:a5,:fs5,:d5];rd[28]=p1
ln[28]=[[:c3,:a3],:r];ld[28]=p5
rn[29]=[:b4,:d5,:g5,:d5,:b4];rd[29]=p2
ln[29]=[:g3,:g2];ld[29]=p5
rn[31]=[:e5,:c5,:g4,:e5];rd[31]=p8
ln[31]=ln[64]=[[:c3,:g3],[:c3,:g3]];ld[31]=ld[64]=p5
rn[34]=[:e5,:c5,:d5,:b4,:g4];rd[34]=p2
rn[35]=[:c5,:d5,:fs5];rd[35]=p4
ln[35]=[[:d3,:fs3],[:c3,:a3]];ld[35]=p5
rn[36]=[:a4,:e5,:d5,:g5,:fs5,:a5];rd[36]=p1
rn[37]=[:g5,:b5,:g5,:d5,:b4];rd[37]=p2
ln[37] = ln[46] = ln[47] = ln[55] = ln[155] = ln[163] =[[:b2,:d3],:r];\
ld[37] = ld[46] = ld[47] = ld[55] = ld[155] = ld[163] =p5
rn[38]=rn[98]=rn[137]=rn[142]=[:c5,:g4,:e5];rd[38]=rd[98]=rd[137]=rd[142]=p4
ln[38] = ln[49] = ln[57] = ln[58] = ln[59] = ln[73] = ln[98] = ln[112] = ln[137] = ln[144] = ln[174] =[[:c3,:e3],:g3]*3;\
ld[38] = ld[49] = ld[57] = ld[58] = ld[59] = ld[73] = ld[98] = ld[112] = ld[137] = ld[144] = ld[174] = p1
rn[39]=[:g5,:g4,:g4];rd[39]=p4
ln[39]=[:b2,:d3,:g3,:d3,:b2,:g2];ld[39]=p1
rn[40]=rn[67]=rn[160]=[:c5,:b4,:c5,:e5,:g4,:c5];\
rd[40]=rd[67]=rd[160]=p1
rn[41]=[:c5,:b4,:c5,:e5,:g4];rd[41]=p2
rn[42]=[:b4,:c5,:d5,:b4,:a4,:g4];rd[42]=p1
ln[42] = ln[128] = ln[158] =[:g2,:r];ld[42] = ld[128] = ld[158] =p5
rn[43]=rn[60]=rn[152]=rn[168]=[:g5,:f5,:e5,:d5,:c5];\
rd[43]=rd[60]=rd[152]=rd[168]=p3
rn[44]=[:a4,:f5,:d5,:a4,:b4];rd[44]=p3
ln[44] = ln[52] = ln[72] = ln[116] = ln[145] = ln[149] = ln[173] =[:f3,:g3];\
ld[44] = ld[52] = ld[72] = ld[116] = ld[145] = ld[149] = ld[173] =p5
rn[45]=[:c5,:b4,:c5,:g4,:e4,:c4];rd[45]=p1
rn[46]=[:g5,:b5,:g5,:d5,:b4];rd[46]=p3
rn[47]=[:g5,:g5,:d5,:b5];rd[47]=p7
rn[48]=[:e5,:c5,:e5,:g5,:c6];rd[48]=p3
rn[49]=[:e5,:c5,:g4];rd[49]=p4
rn[50]=[:c5,:e5,:c5,:g4];rd[50]=p7
rn[51]=rn[84]=rn[115]=[:c5,:g4,:e5,:c5,:g5,:e5];rd[51]=rd[84]=rd[115]=p1
rn[52]=[:d5,:cs5,:d5,:f5,:g4,:b4];rd[52]=p1
rn[53]=[[:c5,:e5],[:c5,:e5],[:d5,:f5],[:e5,:g5]];rd[53]=p7
rn[54]=[[:e4,:c5]]*3;rd[54]=p4
rn[55]=[:g5,:b5,:d5];rd[55]=p4
ln[55]=[[:b2,:d3],:r];ld[55]=p5
rn[56]=[:d5,:b4,:g4,:r];rd[56]=p8
ln[56] = ln[92] = [[:g2,:g3],:g3];ld[56] = ld[92] = p5
rn[58]=[:g5,:e5,:c5];rd[58]=p4
rn[61]=[:c5,:e5,:c5,:g5];rd[61]=p7
rn[62]=[:e5,:c5,:b4,:g4,:a4,:fs4];rd[62]=p1
rn[63]=[:e5,:c5,:b4,:c5,:g4];rd[63]=p2
rn[64]=[:e5,:g5,:c6,:g5,:e5,:c5];rd[64]=p1
rn[65]=[:d5,:a4,:d5,:fs5];rd[65]=p8
ln[65]=ln[117]=[[:d3,:fs3],:r];ld[65]=ld[117]=p5
rn[66]=[:fs5,:a5,:fs5];rd[66]=p4
ln[66]=[[:d3,:a3],[:d3,:fs3],[:c3,:d3]];ld[66]=p4
ln[67] = ln[168] =[[:c3,:e3],[:e3,:g3]];ld[67] = ld[168] =p5
rn[68]=[:g5,:b5,:g5,:d5,:g5];rd[68]=p3
ln[68] = ln[165] = [:b2,:r];ld[68] = ld[165] = p5
rn[69]=[:g5,:e5,:c5];rd[69]=p4
rn[70]=rn[105]=[:fs5,:a5,:fs5,:d5,:fs5];rd[70]=rd[105]=p3
rn[71]=[:g5,:b5,:d6,:b5,:g5];rd[71]=p2
ln[71] = ln[88] = ln[143] = ln[176] = [[:b2,:d3]]*2;ld[71] = ld[88] = ld[143] = ld[176] =p5
rn[72]=[:f5,:e5,:d5,:c5,:b4,:d5];rd[72]=p1
rn[73]=[:g5,:e5,:c5];rd[73]=p4
rn[74] = rn[76] = rn[136] = rn[148] = [:c6,:b5,:c6,:g5,:e5,:c5];rd[74] = rd[76] = rd[136] = rd[148] = p1
rn[75]=[[:d5,:fs5]]*3;rd[75]=p4
rn[77]=[:g5,:b5,:g5,:d5];rd[77]=p8
ln[77]=[[:b2,:d3],[:b2,:g3]];ld[77]=p5
rn[78]=[:c5,:c4,:r];rd[78]=p4
ln[78]=[:c3,:c2];ld[78]=p5
rn[80]=[:d5,:b4,:a4,:g4,:a4,:fs5];rd[80]=[q,dsq,dsq,dsq,dsq,q]
rn[82]=[:d5,:b4,:g4,:g5];rd[82]=p8
ln[82]=[[:b2,:g3],[:b2,:d3]];ld[82]=p5
rn[85]=[:c5,:e5,:g4];rd[85]=p4
rn[86]=[:d5,:d5,:g5,:b5];rd[86]=p7
rn[88]=[:g5,:d5,:g5,:b5,:g5,:d5];rd[88]=p1
rn[89]=[:f5,:e5,:d5,:g5];rd[89]=p8
ln[89]=[:f3,:e3,:d3,:g3];ld[89]=p8
rn[90]=[:fs5,:a5,:d6,:a5,:fs5,:a5];rd[90]=p1
ln[90]=[[:c3,:a3]]*2;ld[90]=p5
rn[92]=[[:b4,:d5],:g5,:b5,:d5];rd[92]=p7
rn[95]=[:g5,:e5,:c5];rd[95]=p4
rn[97]=rn[163]=[:g5,:fs5,:g5,:d5,:b4,:g4];rd[97]=rd[163]=p1
ln[97]=[[:b2,:d3],[:b2,:g3]];ld[97]=p5
rn[99]=[:fs5,:a5,:d5];rd[99]=p4
ln[99] = ln[102] =[[:c3,:a3]]*2;ld[99] = ld[102]=p5
rn[101]=rn[104]=rn[157]=rn[162]=[:e5,:d5,:e5,:g5,:c6,:g5];\
rd[101]=rd[104]=rd[157]=rd[162]=p1
rn[102]=[:fs5,:d5,:a4,:fs5];rd[102]=p8
rn[103]=[:c5,:e5,:c5,:g4,:e4];rd[103]=p2
rn[106]=[:a4,:d5,:c5,:b4,:a4];rd[106]=p3
rn[108]=[:e5,:g5,:c6];rd[108]=p4
rn[109]=[:d5,:f5,:d5,:f5,:b4,:d5];rd[109]=p1
ln[109]=[[:f3,:a3],[:g3,:d4]];ld[109]=p5
rn[110]=[[:b4,:d5],[:a4,:c5],[:a4,:c5],[:g4,:b4],[:g4,:b4],[:fs4,:a4]];rd[110]=p1
rn[113]=[:f5,:d5,:b4];rd[113]=p4
rn[114]=[[:b4,:d5]]*3;rd[114]=p4
ln[114]=[:g3,:g3,:g3];ld[114]=p4
rn[116]=[:d5,:f5,:a5,:f5,:d5,:b4];rd[116]=p1
rn[117]=[:d5,:a4,:d5,:fs5,:a5,:fs5];rd[117]=p1
rn[118]=[:e5,:a5,:g5,:b5,:fs5,:a5];rd[118]=p1
rn[119]=[:e5,:c5,:g5,:e5,:c6,:g5];rd[119]=p1
rn[120]=[:d6,:a5,:fs5,:d5,:a4];rd[120]=p1
rn[121]=[:g5,:b5,:g5,:d5];rd[121]=p7
rn[122]=[:g5,:fs5,:g5,:b5,:d5];rd[122]=p2
ln[122]=[[:b2,:d3]]*3;ld[122]=p4
rn[125]=[:g5,:e5,:d5,:b4,:g4];rd[125]=p2
ln[125]=ln[132]=ln[175]=[:g3,:g2,:r];ld[125]=ld[132]=ld[175]=p4
rn[126]=[:c5,:g4,:c5,:e5,:g5,[:c5,:e5]];rd[126]=p1
ln[126]=[:e3,:e3,:c3];ld[126]=[c,sq,sq]
rn[128]=[:b4,:d5,:g5];rd[128]=p4
rn[129]=[:a5,:g5,:fs5,:g5,:d5];rd[129]=p2
ln[129]=[[:b2,:d3],[:b2,:d3],[:b2,:g3]];ld[129]=p4
rn[132]=[[:c5,:e5],[:b4,:d5],[:g4,:b4],:g4];rd[132]=p7
rn[133]=[:d5,:g5,:d5,:b4,:d5];rd[133]=p3
rn[134]=[:a4,:e5,[:b4,:d5],[:a4,:c5],[:g4,:b4],[:fs4,:a4]];rd[134]=p1
rn[135]=[:fs5,:fs5,:d5,:a5];rd[135]=p7
ln[135]=[[:c3,:d3]]*3;ld[135]=p4
rn[138]=[[:a4,:d5,:fs5]]+trn(:g5,8,-1);rd[138]=[q]+trd(c,8)
ln[138]=[:d2,:d3,:cs3,:d3,:c3,:d3];ld[138]=p1
rn[139]=[:g5,:b5,:g5,:b5,:d5];rd[139]=p2
rn[140]=[:a4,:a4,:d5,:fs5];rd[140]=p7
ln[140]=[[:c3,:fs3],[:c3,:fs3],[:c3,:a3]];ld[140]=p4
rn[141]=[:d5,:e5,:f5,:d5,:c5,:b4];rd[141]=p1
ln[141]=[[:b2,:g3],:g2];ld[141]=p5
rn[143]=[:g5,:d5,:b4,:g4];rd[143]=p7
rn[145]=[:d5,:f5,:a4,:d5,:b4,:d5];rd[145]=p1
rn[146]=[[:fs4,:d5],[:d5,:fs5],[:fs5,:a5]];rd[146]=p4
rn[147]=[:e5,:c6,:b5,:g5,:a5,:fs5];rd[147]=p1
rn[149]=[:f5,:d5,:a4,:b4];rd[149]=p8
rn[150]=[[:g4,:c5,:e5]]+trn(:f5,8,-1);rd[150]=[q]+trd(c,8)
ln[150]=[:c3,:b2,:c3,:d3,:e3,:fs3];ld[150]=p1
rn[153]=[:d5,:a4,:fs5,:d5,:a5,:fs5];rd[153]=p1
rn[154]=[:d5,:cs5,:d5,:fs5,:a5,:fs5];rd[154]=p1
rn[155]=[:g5,:b5,:g5,:d5,:b4,:g4];rd[155]=p1
rn[156]=[:c5,:g4,:e5,:c5,:g5];rd[156]=p1
rn[158]=[:b4,:d5,:b4,:a4,:g4];rd[158]=p3
rn[159]=[:e5,:g5,:d5,:c5,:b4,:a4];rd[159]=p1
ln[160]=[[:c3,:e3]]*2;ld[160]=p5
rn[161]=[[:fs4,:d5]]*3;rd[161]=p4
rn[164]=[:d5,:g4];rd[164]=p6
ln[164]=[:g3,:fs3,:g3,:d3,:b2,:g2];ld[164]=p1
rn[165]=[:d5,:b4,:g4];rd[165]=p4
rn[166]=[:d5,:b5,:g5,:d5,:b4];rd[166]=p2
rn[167]=[:c5,:c5,:d5,:e5];rd[167]=p7
rn[169]=[:e5,:g5,:d5,:g5,:a4,:fs5];rd[169]=p1
rn[171]=[:b4,:c5,:d5,:e5,:f5,:d5];rd[171]=p1
ln[171]=[[:g2,:g3],[:b2,:g3]];ld[171]=p5
rn[173]=[:f5,:a5,:a4,:b4,:d5];rd[173]=p9
rn[175]=[:e5,:c5,:b4,:d5,:g5];rd[175]=p2
rn[176]=[:a5,:g5,:b5,:g5,:d5,:g5];rd[176]=p1
#second time bars
ln[177]=[:g2,:b3,:g3,:fs3,:e3];ld[177]=p3

define :playminuets do |numtimes,test=0| #test=1 when testing all bars
numtunes.times do |i|
if test==0 then
perform=minuet #for normal use test = 0 setup minuet
else
perform =range(16*i+1,16*i+17) #otherwise set up bar linear list
end
puts perform
performplus=[numtunes]+perform
file=File.open("/tmp/perform.txt","w") #write current bar numbers to a file
file.puts performplus.to_s
file.close
puts"wait for sync via sonic-pi-cli"
sync :go
if test==0 then #if not testing then do repeats: y=2
y=2
else #if testing y=1
y=1
end
y.times do |k|
8.times do |i|
pb(perform[i],k)
end
end
y.times do
8.times do |i|
pb(perform[i+8])
end
end
sleep 3*c
end
end

playminuets(numtunes,testbars) #play the minuets
#setup epiphany kill
file=File.open("/tmp/kill.txt","w")
file.puts "kill"
file.close
sleep 5 #allow for sched ahead
set_sched_ahead_time! 1 #reset
#Ruby control program for Sonic Pi Mozart Dice Minuet by Robin Newman, January 2016
#use in conjunction with SP MozartDiceMinuet.rb
#requires sonic-pi-cli gem to be installed
#requires a Pi2. Will NOT work on a Mac or PC
#requires folder "cards" containing images of the 176 bars
#This script reads the bar numbers for each minuet from the perform.txt file
#and creates an html page of the relevant bar number images
#which it then displays in the Epiphany browser.
#It polls for the existance of the perform.txt file
#reads its data, which consists of the number of minuets to be played,
#followed by the bar numbers for the current minuet.
#Having read the data, it creates a web page and displays it, then sends a cue to Sonic Pi
#to start playing the minuet, before deleting the perform.txt file.
#A "while" loop is used to repeat this process till all the minuets have been played.
#After the loop ends it waits for a file kill.txt to be generated by Sonic Pi,
#then after a pause to allow SP to finish playing the final minuet, because of the set_sched_ahead! 5s value,
#it quits the epiphany browser, and deletes temp files to clean up and exits.

bpix=1200 #browser width in pixels: adjust as desired 1200 for HDMIPi, 1840 for my 1920x1080 monitor, 740 for RP touch screen monitor

#function todelete any leftover files
def cleanup()
system("rm /tmp/kill.txt >/dev/null 2>&1") #ignore errors if file not found
  system("rm /tmp/minuet.html >/dev/null 2>&1")
  system("rm /tmp/go.txt >/dev/null 2>&1")
system("rm /tmp/perform.txt >/dev/null 2>&1")
end

cleanup()

imgwidth=bpix/8 #image width
imgheight=imgwidth*1.58
cnt=0 #variable for current minuet number
flag=false #flag set to true when final minuet is played.
file=File.open("/tmp/go.txt","w") #create cue :go file used to send cue to Sonic Pi
file.puts "cue :go"
file.close

#start main loop
while flag==false do
    while not File.file?("/tmp/perform.txt") #wait for next perform.txt file to be generated by Sonic Pi
      sleep 0.25 #pause before next poll
    end
    sleep 5 #wait to make sure file is fully written and closed by Sonic Pi
    file=File.open("/tmp/perform.txt","r") #read the data
    l=file.gets
    file.close
    l=l[1..-3] #tidy up l
    l=l.split(",").map(&:to_i) #convert to integer array
    numtunes=l[0] #first entry is number of minuets to play (set by Sonic Pi)
    cnt +=1 #bump for next minuet number
    l=l[1..-1] #strip numtunes leaving bar number data list
    file=File.open("/tmp/minuet.html","w") #write html file for displaying selected bars in a table
    file.puts "<html><head><title>minuet "+cnt.to_s+" of "+numtunes.to_s+"</title></head>"
    file.puts"
<h1 align='center'>Sonic Pi plays Mozart Minuet "+cnt.to_s+" of "+numtunes.to_s+"</h1>
"
    file.puts"
<h2 align='center'>Generated from Musikalisches W&uuml;rfelspiel FV 516 f</h2>
"
    file.puts "
<table align='center' width='"+bpix.to_s+"' cellspacing='0' cellpadding='0'>
<tr>"
    8.times do |i|
      file.puts "
<td><img src='file:///home/pi/cards/"+l[i].to_s.rjust(4,"0")+".jpg' style='width:"+imgwidth.to_s+";height:"+imgheight.to_s+"'>
<td>"
    end
    file.puts"</tr>
<tr>"
    8.times do |i|
      file.puts "
<td><img src='file:///home/pi/cards/"+l[i+8].to_s.rjust(4,"0")+".jpg' style='width:"+imgwidth.to_s+";height:"+imgheight.to_s+"'>
<td>"
    end
    file.puts"</tr>
</table>
"
    file.close
   system("epiphany-browser file:///tmp/minuet.html &") #open epiphany-browser with next web page
    if cnt==1 then
        system("xte 'sleep 6' 'key F11'&")
    end
     sleep 1 #allow to open
    system('cat /tmp/go.txt | sonic_pi&') #send cue: go to SP using sonic-pi-cli to start playing
    system("rm /tmp/perform.txt&") #delete perform.txt file ready for next minuet (if any) to be created
    sleep 10 #pause while minuet plays. Makes sure don't poll for next perform.txt too early
    flag=true if (cnt == numtunes)
  end
  while not File.file?("/tmp/kill.txt") #last time, wait for SP to create kill file
    sleep 0.25 #pause between polls
  end
  sleep 7 #pause to make sure SP finshed playing, allowng for 5s sched_ahead_time
  system("killall epiphany-browser&") #shut down browser
  sleep 2
cleanup()

The file spmozart.tar.gz  can be downloaded as described below.
This contains the two files above, plus the cards folder containing the 176 images for the different bars. It also has a README.txt file with installation details.
To install the system on your Pi2 use the following procedure.

open a terminal window on the Pi2

cd ~/
wget http://r.newman.ch/rpi/spmozart.tar.gz
tar zxvf spmozart.tar.gz
mv spmozart/cards ~/
mv spmozart/minuetcontrol.rb ~/

Open a FileManager Window and navigate to spmozart
Right click MozartDiceMinuet.rb and select Text Editor to open it with the leafpad text editor.
Select all (ctrl+A) and copy (ctrl+C) (leave the window open)
Switch to Sonic Pi and select a blank buffer space.
Paste the file data in. (Alt+V)

Switch back to the terminal window, and start the minuetcontrol script by typing
ruby minuetcontrol.rb
(then press return)
You will not see anything happening, as the script is waiting for Sonic Pi to generate a text file.
Switch back to Sonic Pi and click RUN to run the workspace containing the MozartDiceMinuet program.

 

 

 

 

 

Advertisements

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s