From 4cb61ce8dfcbba0d6421434cb6c67fb2d20af1f8 Mon Sep 17 00:00:00 2001
From: David Runge <david.runge@frqrec.com>
Date: Thu, 22 May 2014 01:30:16 +0200
Subject: Quick and dirty first version of a GUI monitoring the currently
 running chromosome sounds per speaker

---
 SNPGUI.sc | 175 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 175 insertions(+)
 create mode 100644 SNPGUI.sc

diff --git a/SNPGUI.sc b/SNPGUI.sc
new file mode 100644
index 0000000..8121af2
--- /dev/null
+++ b/SNPGUI.sc
@@ -0,0 +1,175 @@
+SNPGUI {
+
+  var <speakerSetup;//Array holding the chromosome numbers for each speaker
+  var <mainView;// main view object
+  var <drawView;// main view object
+  var <speakerDict;//Dictionary of Views (per speaker)
+  var <textDict;//Dictionary of StaticText obbjects
+  var <taskSNP;//task for updating the SNP texts of chromosomes
+  var <snpDict; //Dictionary of texts for SNPs on chromosomes (replaceable)
+  var <arcRadius = 200;//size of the arc, surrounded by speakers
+  var <radiusOffset = 75;//size of the arc, surrounded by speakers
+  var <mainWidth = 800;
+  var <mainHeight = 800;
+  var <speakerHeight = 50;
+  var <speakerWidth = 50;
+  var <lineHeight = 12;
+
+  *new{
+    arg setup;
+    ^super.new.snpGUIInit(setup);
+  }
+
+  snpGUIInit{
+    arg setup;
+    setup.size.postln;
+    speakerSetup = setup;
+    this.setupViews(setup.size);
+    //create a dictionary the size of the setup
+  }
+  // initialize Dictionaries for all things
+  initDicts{
+    arg setup;
+    speakerDict = Dictionary.new(setup.size+1);
+    //textDict = Dictionary.new(setup.size);
+    textDict = Dictionary.new(25);//Dictionary holding all StaticText objects that can be modified
+    snpDict = Dictionary.new(25);
+    //taskDict = Dictionary.new(25);
+    //add each speaker number
+    setup.do({|speaker,i|
+      var tmp = Dictionary.new(setup[0].size);
+      // Adds a View with speaker information to the speakerDict
+      speakerDict.add((i+1).asSymbol -> this.initSpeakerView(i, setup.size, setup[0].size));
+      // iterate all chromosome information from original setup
+      speaker.do({|chromosome, j|
+        //add chromosome number -> replaceable SNP StaticText object to temporary Dictionary
+        //tmp.add(chromosome.asSymbol -> this.initChromosomeText(chromosome.asSymbol, (i+1).asSymbol, j+1));
+        textDict.add(chromosome.asSymbol -> this.initChromosomeText(chromosome.asSymbol, (i+1).asSymbol, j+1));
+        snpDict.add(chromosome.asSymbol -> "");
+      });
+      //textDict.add((i+1).asSymbol -> tmp);
+    });
+    // Adds a View for MT chromosome with speaker information to the speakerDict
+    speakerDict.add(\all -> this.initSpeakerView(-1, setup.size, 1));
+    // add chromosome text for MT to the speaker called all
+    textDict.add(\25 -> this.initChromosomeText(\25, \all, 1));
+    //
+    snpDict.add(25.asSymbol -> "");
+    //start a Task to update the SNP currently playing
+    this.startSNPTask;
+    //snpDict.postln;
+    //speakerDict.postln;
+    //textDict.postln;
+  }
+
+  //init a StaticText for a chromosome in its speaker View, returns its replaceable component (for SNPs)
+  initChromosomeText{
+    arg chromosome, number, position;
+    var snpText, chromosomeText;
+    chromosomeText = StaticText.new(speakerDict.at(number), Rect(0, lineHeight*position, (speakerDict.at(number).bounds.width/2), lineHeight));
+    chromosomeText.string = (chromosome.asString++": ");
+    chromosomeText.align = \left;
+    snpText = StaticText.new(speakerDict.at(number), Rect((speakerDict.at(number).bounds.width/2), lineHeight*position, (speakerDict.at(number).bounds.width/2), lineHeight));
+    snpText.string = "Test";
+    snpText.align = \right;
+    ^snpText;
+  }
+
+  //inits a View for one speaker, adds its name as StaticText object and returns itself
+  initSpeakerView{
+    arg number, total, perSpeaker;
+    var mid, radius, radianOffset, radian, x, y, speakerContainer, text;
+    mid = Point.new(mainWidth/2,mainHeight/2);//mid of the circle
+    radius = arcRadius+radiusOffset;//make a slightly bigger radius for the text objects
+    radianOffset = 360/total*2;// radian offset used to make speaker 1 be positioned front left
+    radian = 360/total*number;//segment of the circle the speaker is placed in
+    //Calculating x and y coordinates for the View to be created
+    x = mid.x+(radius*cos(degrad(radian-radianOffset)));
+    y = mid.y+(radius*sin(degrad(radian-radianOffset)));
+    //setting up the View container for a speaker
+    speakerContainer = View.new(drawView, Rect(x, y, speakerWidth, (perSpeaker+1)*lineHeight));
+    speakerContainer.visible = true;
+    speakerContainer.background = Color.green;
+
+    // adding the speaker number
+    text = StaticText(speakerContainer, Rect(0, 0, speakerContainer.bounds.width, lineHeight));
+    text.string = (number+1).asString;
+    text.align = \center;
+    //add exception for no/ all speaker
+    if(number<0,{
+      //recalculate radius and offset
+      radius = radius+radiusOffset;
+      radian = 360/total*0;
+      //Calculating x and y coordinates for the View to be created
+      x = mid.x+(radius*cos(degrad(radian-radianOffset)));
+      y = mid.y+(radius*sin(degrad(radian-radianOffset)));
+      speakerContainer.moveTo(x, y);
+      text.string = "all";
+    });
+//    ("Speaker: "++number.asString).postln;
+//    ("cos("++radian.asString++"): "++cos(degrad(radian)).asString).postln;
+//    ("sin("++radian.asString++"): "++sin(degrad(radian)).asString).postln;
+    ^speakerContainer;
+  }
+
+  /*
+  * Setup the initial window and all of its StaticText elements
+  */
+  setupViews{
+    arg numChannels;
+    mainView = View.new(nil,Rect(50,50,mainWidth,mainHeight));
+    //mainView.front;
+    mainView.fixedSize=mainWidth@mainHeight;
+    mainView.enabled = true;
+    mainView.userCanClose = true;
+    mainView.alwaysOnTop;
+    mainView.visible = true;
+    mainView.name = "The Sound Of People";
+    mainView.background = Color.white;
+    mainView.bounds.postln;
+    //make a UserView for drawing with Pen
+    drawView = UserView.new(mainView, Rect(0, 0, mainView.bounds.width, mainView.bounds.height));
+    drawView.animate = true;
+    drawView.frameRate = 60.0;
+    // draw a circle
+    drawView.drawFunc = {
+      Pen.translate(drawView.bounds.width/2, drawView.bounds.height/2);
+      Pen.strokeColor = Color.black;
+      Pen.color = Color.black;
+      Pen.addArc(0@0, arcRadius, 0, 2pi);
+      Pen.stroke;
+    };
+    //add StaticText objects for names of speakers, names of chromosomes and names of SNPs
+    this.initDicts(speakerSetup);
+  }
+  //Starts a task to update texts for SNP of chromosomes on AppClock
+  startSNPTask{
+    taskSNP = Task.new({
+      {
+        //get all values from the dictionary and update the corresponding StaticText objects
+        snpDict.keysValuesDo({|key, value|
+          textDict.at(key.asSymbol).string_(value.asString);
+        });
+        0.02.wait;
+      }.loop;
+    });
+    taskSNP.play(AppClock);
+  }
+
+  //set the text of a specific chromosome (aka.: which SNP is currently playing?)
+  setSNPText{
+    arg chromosome, text;
+    //delete all strings first
+//    snpDict.keysValuesChange{|key,value|
+//      ^"";
+//    };
+    //add the current SNP text to the dictionary
+    snpDict.put(chromosome.asSymbol, text.asString);
+  }
+  // get the current SNP text of a chromosome
+  getSNPText{
+    arg chromosome;
+    var text = snpDict.at(chromosome.asSymbol);
+    ^text;
+  }
+}
-- 
cgit v1.2.3-54-g00ecf