diff yetilab/plot/plot.yeti @ 232:67ff37b03856

Plot the (first few) values and difference from the audiofile read test when they aren't within tolerance

--- a/yetilab/plot/plot.yeti	Sun May 12 21:12:54 2013 +0100
+++ b/yetilab/plot/plot.yeti	Fri May 17 20:24:44 2013 +0100
@@ -49,11 +49,11 @@
     chart#getScene()#getGraph()#add(surface);
     ());
 
-plotCurve chart curve is ~Chart -> 'a -> () =
+plotCurve chart depth curve is ~Chart -> number -> 'a -> () =
    (scene = chart#getScene();
     xx = map (.time) curve;
     yy = map (.value) curve;
-    line = new FlatLine2d(xx as ~float[], yy as ~float[], 1);
+    line = new FlatLine2d(xx as ~float[], yy as ~float[], depth);
     line#setWireframeDisplayed(true);
     line#setWireframeColor(Color#BLACK);
     line#setWireframeWidth(2);
@@ -70,11 +70,11 @@
 */
     ());
 
-plotSeries chart { start, step, values } is ~Chart -> 'a -> () =
+plotSeries chart depth { start, step, values } is ~Chart -> number -> 'a -> () =
    (scene = chart#getScene();
     xx = map do i: start + step * i done [0..length values - 1];
     yy = list values;
-    line = new FlatLine2d(xx as ~float[], yy as ~float[], 0);
+    line = new FlatLine2d(xx as ~float[], yy as ~float[], depth);
     line#setWireframeDisplayed(true);
     line#setWireframeColor(Color#BLACK);
     line#setWireframeWidth(2);
@@ -93,17 +93,20 @@
 
 plot structures =
    (chart = new Chart(Quality#Nicest);
-    for structures
-       \case of
+    var depth = 0;
+    for structures do s:
+        case s of
         Grid matrix:
             plotMatrix chart matrix;
         Curve curve:
-            plotCurve chart curve;
+            plotCurve chart depth curve;
         Series series:
-            plotSeries chart series;
+            plotSeries chart depth series;
         other:
             failWith "Unable to plot \(other)";
         esac;
+        depth := depth + 1;
+    done;
     ChartLauncher#openChart(chart);
     chart);